Controlar si no encuentra .Seek
Pido un dato y lo busco en la bD, pero no se como controlar si la búsqueda es nula el .Seek. Provee varias formas (IsNull, etc. ) pero no lo consigo. Ahora si no existe el campo, se me referencia por On Error GoTo. ¿Podéis ayudar?.Gracias de todas formas.
Public eluno As String
Private Sub Alternar1_Click()
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Pacientes")
With rst
.Index = "PrimaryKey"
eluno = InputBox("Entre el si a buscar:", , "555")
On Error GoTo salida
.Seek "=", eluno
MsgBox (!SI & "-" & !Nombre)
MsgBox (.SI & "-" & .Nombre & " " & .Apellidos & " GEnial")
DoCmd.OpenForm "Pacientes2", , , "[SI] ='" & eluno & " ' ", acFormEdit
salida:
MsgBox Err.Description
End With
' PacientesF6
End Sub