Estoy haciendo una base de datos en Access y hay un formulario donde tengo q buscar dos reguistros de una tabla, osea, el usuario los escribe, uno lo elige de un combobox y el otro lo escribe en un cuadro de texto, esos dos datos se comparan para q los muestre y activar ese registro. Mi codigo es este:
Numero = s
txtTarjetas = t

Dim BaseDatos As Database
Dim BDatos As Recordset
Dim existe As Boolean

Set BaseDatos = CurrentDb
Set BDatos = BaseDatos.OpenRecordset(\"BDatos\", dbOpenTable)

existe = False

Do Until BDatos.EOF
If s & t = BDatos!Serie & BDatos!Tarjeta Then
existe = True
Exit Do
End If
BDatos.MoveNext
Loop

If existe = True Then
BDatos.OpenRecordset
Else
p = msgbox(\"¡El registro no existe!\", vbCritical)
Numero.SetFocus
End If
BaseDatos.Close

pero no sirve podrian decirme q le hace falta o alguna otra opcion!! mil GRACIAS!!

Responder