Access - Contraseña tipo NIP

Muy buenas tardes:

Mi consulta es la siente, dentro de un formulario deseo que por medio de un "NIP" me agregue un nombre en específico en mi campo, es decir, si tecleo "1234" me ponga el nombre "Juan Perez", o si tecleo "5678" me ponga el nombre de "José Lopez" realicé lo suiguiente: cree un botón dentro del formulario que al darle click me abriera un formulario en donde tengo el cuadro de texto con el nombre "AbogadoResponsable" y un botón con el siguiente código:

Private Sub Abogado1_Click()
On Error GoTo Err_Abogado1_Click

Dim stDocName As String
Dim stLinkCriteria As String
Dim abo As String


abo = Me![AbogadoResponsable]


If "1234" = abo Then
DoCmd.Close
abo = "Juan Perez"
[AbogadoResponsable] = abo
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
DoCmd.GoToControl "AbogadoResponsable"
End If



If "5678" = abo Then
DoCmd.Close
abo = "José Lopez"
[AbogadoResponsable] = abo
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else

DoCmd.GoToControl "AbogadoResponsable"
End If


Exit_Abogado1_Click:
Exit Sub

Err_Abogado1_Click:
MsgBox " NIP NO VALIDO. "
DoCmd.GoToControl "AbogadoResponsable"
Resume Exit_Abogado1_Click

End Sub


Pero cuando ingreso los números, solo me dice "NIP NO VALIDO" y se cierra, regresandome al formulario pero sin guardar ningún dato.

Espero haberme explicado y les agradecería mucho su ayuda.

Saludos.

Si tienes un error el código salta a la gestión de errores, que en tu caso es el mensaje NIP NO VALIDO, puede ser que:

1) Has definido las variables stDocName y stLinkCriteria y no les has dado valor, por lo que cuando vas a hacer el DoCmd.OpenForm puedes tener algún error.

2) Si haces DoCmd.Close antes de:

abo = "Juan Perez"
[AbogadoResponsable] = abo

También tendrás un error, ya que has cerrado el formulario e intentas ejecutar comandos sobre ese formulario. Coloca después del DoCmd.OpenForm:

DoCmd.Close acForm, "NombredelFormulario"

Hola Jesús:

Antes que nada agradezco infinitamente tu ayuda, realicé los cambios correspondientes con las observaciones y correcto, ya no me envía el error, pero me doy cuenta que tampoco me guarda el nombre correspondiente en el recuadro, te repito que donde quiero que guarde el dato es en otro formulario, es decir cuando se abre este formulario, se le da el pin y al cerrarlo me de el nombre del usuario, pero no lo da ni lo guarda en la tabla, te agradecería si pudieras ayudarme con esta situación.

Mil gracias.

Saludos

Cuando quieres pasar datos de un formulario a otro, primero tienes que abrirlo, luego pasar los datos y hasta entonces puedes cerrar el inicial

Estás en el formulario1

DoCmd.OpenForm "formulario2"

With Forms!formulario2
!Control1= El dato
!Control2= El dato
!Control3= El dato
End With

Hasta aquí, cierra el Primero
DoCmd.Close acForm, "formulario1"

Te adjunto ejemplo
Revisa el botón exportar
tienes dos opciones hacerlo directo como este formulario
o micar el código del botón exportar y poner este formulario como modal al tuyo principal modificar los campos y listo

Saludos Gooo buena respuesta siempre contestamos igual jejejeje
Buena suerte

• Exportar-Datos-cliente.rar(27,6 KB)

Muy buenas tardes:

Quiero agradecerles muchísimo a GOOO y douglas por su tiempo y sus respuestas, ambas me sirvieron mucho, ya me guarda el dato a la tabla, si funciona bien, si doy un NIP equivocado no me plasma ningún resultado, pero ahora el problema es que si tecleo "1234" no me da el nombre correcto, me deja el número, lo mismo con "5678", ya cambié valores pero no obtengo resultados, les agradeceria de nuevo si me pueden apoyar, les dejo el código.

De nuevo les doy las gracias.