Gracias karmany!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Command4_Click()
Dim Query As String
Query = InputBox("Ingrese criterio a buscar")
Data1.Recordset.FindFirst Query
If Data1.Recordset.NoMatch Then
MsgBox "El lote numero: " & aux3.cadena & "no se encuentra en la base de datos"
End If
End Sub