Access - RE:Autorellenar

RE:Autorellenar

Publicado por Unai (14 intervenciones) el 05/04/2004 22:51:05

Tu tienes un formulario con los datos de un cliente y lo q ha comprado. Entonces yo quiero q cuando escribo el dni q es la llave de la tabla se me autorellenen los campos si es q el dni ya existia, y si no existia se queden en blanco para q los rellene. Los campos de la compra siempre quedan vacios pq son de otro tabla diferente.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

RE:Autorellenar

Publicado por Alejandro (4142 intervenciones) el 05/05/2023 00:26:37

Para autorellenar los datos de un cliente cuando se introduce su DNI en un formulario de Access, puedes utilizar la función DLookup en el evento AfterUpdate del cuadro de texto donde se introduce el DNI. Por ejemplo, si el cuadro de texto se llama "txtDNI" y los campos a autorellenar son "txtNombre", "txtApellido" y "txtDireccion", el código podría ser algo como esto:

Private Sub txtDNI_AfterUpdate()

    Dim strDNI As String

    Dim strNombre As String

    Dim strApellido As String

    Dim strDireccion As String

    strDNI = Me.txtDNI.Value

    'Buscar los datos del cliente en la tabla Clientes

    strNombre = DLookup("Nombre", "Clientes", "DNI = '" & strDNI & "'")

    strApellido = DLookup("Apellido", "Clientes", "DNI = '" & strDNI & "'")

    strDireccion = DLookup("Direccion", "Clientes", "DNI = '" & strDNI & "'")

    'Autorellenar los campos si se encontró el cliente

    If Not IsNull(strNombre) Then

        Me.txtNombre.Value = strNombre

        Me.txtApellido.Value = strApellido

        Me.txtDireccion.Value = strDireccion

    Else

        'Limpiar los campos si no se encontró el cliente

        Me.txtNombre.Value = ""

        Me.txtApellido.Value = ""

        Me.txtDireccion.Value = ""

    End If

End Sub

Este código busca los datos del cliente en la tabla "Clientes" utilizando el DNI como criterio de búsqueda, y luego autorellena los campos correspondientes si se encontró el cliente. Si no se encontró el cliente, los campos se quedan vacíos.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar