Pily
25 de Mayo del 2006

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!!