¿Cómo consigo un valor que indica si Recordset.Find encontró nada?

Question

he escrito un programa que añadir, borrar, guardar y buscar a través de los registros de una base de datos (registros). Sin embargo lo hacía en un equipo. Mi tarea consistía en agregar la función de búsqueda para el programa, que tengo; Sin embargo, estoy teniendo problemas con la adición de un mensaje de error para cuando alguien escribe una palabra / todo lo que no está en la base de datos / registros.

Así por ejemplo, en el cuadro de texto (txtFindBox.Text) si escribe "ashbndash" Sería llegado con un mensaje de error. Me he comentado mis cuadros de mensaje de error propio pero dime dónde voy mal por favor: (

Aquí está el código para el botón de búsqueda.

Private Sub cmdFindDB_Click()
adoCustomer.Recordset.MoveFirst
If optLastName.Value = True Then
adoCustomer.Recordset.Find "LastName='" & txtFindBox.Text & "'"
'Else
'MsgBox ("NO RECORD FOUND")
End If
If OptFirstName.Value = True Then
adoCustomer.Recordset.Find "FirstName='" & txtFindBox.Text & "'"
'Else
'MsgBox ("NO RECORD FOUND")
End If
End Sub

Edit: Al igual que decir que el problema es que cada vez que me golpeó el botón de 'encontrar' que viene con el mensaje "Ningún registro encontrado" en un MsgBox a pesar de que se encuentra la respuesta, sino que también se le ocurre que MsgBox si escribe en un galimatías también.

Gracias por su tiempo

Saludos Haroon

Answer 1

Este es un ejemplo de cómo hacer lo que usted está tratando de hacer: MÉTODO: Conjunto de registros :: Encuentra

Ejemplo de su código:

adoCustomer.Recordset.MoveFirst
adoCustomer.Recordset.Find "LastName='" & txtFindBox.Text & "'"
If (adoCustomer.Recordset.BOF = True) OR (adoCustomer.Recordset.EOF = True) Then
   MsgBox "Record not found"
End If

En lugar de comprobar que la propiedad Value es cierto, es necesario comprobar EOF y BOF. Estos representan final del archivo y el principio del fichero. Así que si bien es cierto, entonces no está "dentro" del conjunto de registros, es decir, no encuentra nada.