Como puedo leer datos de una tabla
Hola, tengo una tabla con seis campos, y quiero que cuando teclee el primer campo si ya existe en la tabla, me genere automáticamente los campos 2 y 3 del anterior registro que contiene la misma clave que el primero, no se como es el código para leer. Muchas gracias
1 respuesta
Respuesta de cdiaz_
Puedes usar este código, este código busca la referencia digita si existe le pregunta al usuario si desea modificarla de lo contrario crea una nueva, en ella puedes encontrar como buscar tu campo seleccionar la información que buscas y pegarla a otro campo.
Dim abc As String
Dim mensaje, estilo, titulo, respuesta, micadena
mensaje = "¿Este Referencia ya existe, La Modifica?"
estilo = vbYesNo + vbCritical
titulo = "Información"
abc = Me!Referencia
If (Not IsNull(DLookup("referencia", "Mtr", "[referencia]='" & abc & "'"))) Then
respuesta = MsgBox(mensaje, estilo, titulo)
If respuesta = vbYes Then
Me.Undo
DoCmd.FindRecord abc, , True, , True
Else
Me.Undo
DoCmd.GoToControl "descripcion"
DoCmd.GoToControl "referencia"
End If
Else
End If
Dim abc As String
Dim mensaje, estilo, titulo, respuesta, micadena
mensaje = "¿Este Referencia ya existe, La Modifica?"
estilo = vbYesNo + vbCritical
titulo = "Información"
abc = Me!Referencia
If (Not IsNull(DLookup("referencia", "Mtr", "[referencia]='" & abc & "'"))) Then
respuesta = MsgBox(mensaje, estilo, titulo)
If respuesta = vbYes Then
Me.Undo
DoCmd.FindRecord abc, , True, , True
Else
Me.Undo
DoCmd.GoToControl "descripcion"
DoCmd.GoToControl "referencia"
End If
Else
End If
