No se actualiza el dato en el formulario
Experto, tengo el siguiente código:
Dim db As DAO.Database, rs As DAO.Recordset
Dim Buscar As String
DNItc = dnicaso
Buscar = "SELECT DNI, Apellido, Nombre FROM ParaAltaConsulta WHERE DNI ='" & DNItc & "'"
Set db = CurrentDb()
Set rs = db.OpenRecordset(Buscar)
If rs.RecordCount > 0 Then
APELLIDOS = Apellido
NOMBRES = Nombre
Else
MsgBox "No existe esta persona", vbOKOnly + vbCritical, "Aviso"
End If
rs.Close
Me podrías decir por favor y lo más rápido que puedas, ¿dónde me estoy equivocando porque no aparecen los datos seleccionados en los cuados de texto APELLIDOS Y NOMBRES del formulario?
Muchas gracias
Dim db As DAO.Database, rs As DAO.Recordset
Dim Buscar As String
DNItc = dnicaso
Buscar = "SELECT DNI, Apellido, Nombre FROM ParaAltaConsulta WHERE DNI ='" & DNItc & "'"
Set db = CurrentDb()
Set rs = db.OpenRecordset(Buscar)
If rs.RecordCount > 0 Then
APELLIDOS = Apellido
NOMBRES = Nombre
Else
MsgBox "No existe esta persona", vbOKOnly + vbCritical, "Aviso"
End If
rs.Close
Me podrías decir por favor y lo más rápido que puedas, ¿dónde me estoy equivocando porque no aparecen los datos seleccionados en los cuados de texto APELLIDOS Y NOMBRES del formulario?
Muchas gracias
1 respuesta
Respuesta de kepasada
Pues te contesto lo más rápido posible. ¿Ese código no te da error?, ¿Lo has depurado?,
¿Qué variables son...? ¿Dónde las has declarado?
APELLIDOS = Apellido
NOMBRES = Nombre
Y por otra parte no te aparecen los datos porque en ningún momento haces mención a los controles del formulario (me parece que has copiado un código de algún sitio, pero no sabes cómo funciona).
Para hacer referencia a un control del formulario que se tiene abierto:
Me. Apellido
¿Qué variables son...? ¿Dónde las has declarado?
APELLIDOS = Apellido
NOMBRES = Nombre
Y por otra parte no te aparecen los datos porque en ningún momento haces mención a los controles del formulario (me parece que has copiado un código de algún sitio, pero no sabes cómo funciona).
Para hacer referencia a un control del formulario que se tiene abierto:
Me. Apellido
Gracias por la rapidez de tu repuesta, pero si no quieres contestar preguntas de novatos ponelo en tu perfil y no menosprecies a quien te pregunta suponiendo que no entiende lo que escribe.
Tu respuesta no me sirvió ya que de esa manera (me.apellido) también lo probé y no dio resultado
Saludos
Tu respuesta no me sirvió ya que de esa manera (me.apellido) también lo probé y no dio resultado
Saludos
