Campo de entrada..
Tengo la siguiente rutina:
' ******************************
Dim labpub As String
InputBox labpub, "Pin Number"
Dim stDocNamef4 As String
Dim stLinkCriteriaf4 As String
stDocNamef4 = "Permanent Resident Data Pin Identification"
' stLinkCriteriaf4 = "[Resident Pin Number]=" & "'" & Me![Pin Code Number] & "'"
MsgBox labpub
stLinkCriteriaf4 = "[Resident Pin Number]=" & "'" & labpub & "'"
DoCmd.OpenForm stDocNamef4, , , stLinkCriteriaf4
'******************************
Lo que trato de hacer es entrar el valor que quiero con el campo labpub, pero cuando me lo presenta msgbox esta en cero.. Gracias nuevamente genio..
' ******************************
Dim labpub As String
InputBox labpub, "Pin Number"
Dim stDocNamef4 As String
Dim stLinkCriteriaf4 As String
stDocNamef4 = "Permanent Resident Data Pin Identification"
' stLinkCriteriaf4 = "[Resident Pin Number]=" & "'" & Me![Pin Code Number] & "'"
MsgBox labpub
stLinkCriteriaf4 = "[Resident Pin Number]=" & "'" & labpub & "'"
DoCmd.OpenForm stDocNamef4, , , stLinkCriteriaf4
'******************************
Lo que trato de hacer es entrar el valor que quiero con el campo labpub, pero cuando me lo presenta msgbox esta en cero.. Gracias nuevamente genio..
1 respuesta
Respuesta de telemaco
1
Claro PORQUE NUNCA LO ASIGNO al InputBox...
Debes modificar la linea del inputoBox, por:
********************
labpub = InputBox ("Ingrese el Pin Number", "Pin Number")
********************
Ahora si se asigna el valor que devolverá el inputbox...
Pero te aconsejaría que lo utilices con un campo de texto POR QUE SI DES CANCELAR, DE TODAS MANERAS TE LO HACE
att:telemaco
Debes modificar la linea del inputoBox, por:
********************
labpub = InputBox ("Ingrese el Pin Number", "Pin Number")
********************
Ahora si se asigna el valor que devolverá el inputbox...
Pero te aconsejaría que lo utilices con un campo de texto POR QUE SI DES CANCELAR, DE TODAS MANERAS TE LO HACE
att:telemaco
