Buscar registro(ACCESS)

[Taribo007]

Prueba algo asi:

Private Sub CmdIrARegistro_Click()
Dim Cadena As String
Cadena = InputBox("Introduzca la factura buscada", "IR A...")
If Nz(Cadena, "") <> "" Then
With Me.RecordsetClone
.FindFirst "[nºfactura] ='" & Cadena & "'"
If Not .NoMatch Then
Me.Bookmark = .Bookmark
else
msgbox "factura no encontrada"
End With
End If
End Sub

Con esto te saldra un imputbox solicitando el numero de factura, y si existe se ira a ese registro. Si el numero de factira es un campo numerico (no de texto), quieta lo que hay en rojo

Un saludo