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
Mis campos son :
Nº Lote
Rango Caravana
Raza
Establecimiento
Vacunacion
Categoria
Si yo pongo por ej, una raza en el inputbox, me devuelva el que encontró o los que hay, algo así sería.
Saludos.