Agueda
23 de Junio del 2003

Hola a todos, antes de nada quiero daros las gracias por vuestras respuestas en mi mensaje anterior.

Ahora y para no variar tengo otro problema:

Cuando hago una consulta en la base de datos (que está en Access 2000) a través del NIF de la empresa y ese NIF existe no tengo ningún problema, pero si el NIF en la BBDD no existe me da un error de ejecución, ¿Cual es la instrucción que tengo que ejecutar para saber si se ha encontrado algún registro coincidente en la BBDD?.

Como no me suelo explicar muy bien, aquí os pogo el código que estoy utilizando:

Buscar = txtBuscar.Text
cadena = "CIF='" & Buscar & "'"
Me.AdoConsulta.RecordSource = "select * from tblClientes"
Me.AdoConsulta.Refresh
Me.AdoConsulta.Recordset.Find cadena

'En la siguiente instrucción es donde me da el error cuando no se encuentra el NIF en la BBDD.
txtNIF.Text = Me.AdoConsulta.Recordset.Fields("NIF")


Espero vuestras respuestas. Gracias

angeles
23 de Junio del 2003

Con esto se soluciona el error. El problema está en que no puedes acceder a ningún campo de un Recordset cunado éste está vacío.

Buscar = txtBuscar.Text
cadena = "CIF='" & Buscar & "'"
Me.AdoConsulta.RecordSource = "select * from tblClientes"
Me.AdoConsulta.Refresh
if Me.AdoConsulta.Recordset.EOF and Me.AdoConsulta.Recordset.BOF then
Msgbox "No encontrado"
txtNif.text=""
Else
txtNIF.Text = Me.AdoConsulta.Recordset.Fields("NIF")
End If