cosas más raras haces xD
Private Sub cmdconsultar1_Click()
buscar = InputBox("proporcione la curp")
Data1.Recordset.findfirst "curp='" & buscar & "'"
'pedimos el dato hasta que no sea repe
while data1.recordset.nomatch
msgbox("el curp ya existe")
buscar = InputBox("proporcione la curp")
Data1.Recordset.findfirst "curp='" & buscar & "'"
wend
'ya tienes el dato correcto
End Sub
también puedes así...
Private Sub cmdconsultar1_Click()
buscar = InputBox("proporcione la curp")
Data1.Recordsource="select blablablbal from tablablalbabal where curp='" & buscar & "'"
data1.refresh
'pedimos el dato hasta que no sea repe
while not data1.eof
msgbox("el curp ya existe")
buscar = InputBox("proporcione la curp")
Data1.Recordsource="select blablablbal from tablablalbabal where curp='" & buscar & "'"
data1.refresh
wend
'ya tienes el dato correcto
End Sub
P.D. por si no ta quedao claro te agrego la ayuda
FindFirst, FindLast, FindNext, FindPrevious (Métodos)
Buscan el primero, último, siguiente o anterior registro de un objeto Recordset de tipo Dynaset o Snapshot que cumpla el criterio especificado y lo convierte en el registro activo (sólo espacios de trabajo Microsoft Jet).
Sintaxis
recordset.{FindFirst | FindLast | FindNext | FindPrevious} criterios
Los métodos Find utilizan los siguientes argumentos.
Argumento Descripción
recordset Una variable de objeto que representa un objeto Recordset existente de tipo Dynaset o Snapshot.
criterios Un tipo de datos String utilizado para localizar el registro. Es como la cláusula WHERE en una instrucción SQL, pero sin la palabra WHERE.
Comentarios
Si desea incluir todos los registros en la búsqueda - no sólo aquellos que cumplan un condición específica - utilice los métodos Move para pasar de un registro a otro. Para localizar un registro en un Recordset de tipo Table, utilice el método Seek.
Si no se localiza un registro que coincida con los criterios, el puntero del registro activo será indeterminado y la propiedad NoMatch será True. Si recordset contiene más de un registro que satisfaga el criterio, FindFirst localizará la primera aparición, FindNext localizará la segunda, etc.
Cada método Find comienza a buscar desde la posición y en la dirección especificadas en la siguiente tabla:
Métodos Find
Comienzo Dirección de búsqueda
FindFirst Comienzo del recordset Fin del recordset
FindLast Fin del recordset Comienzo del recordset
FindNext Registro activo Fin del recordset
FindPrevious Registro activo Comienzo del recordset
Copyright (c) 1996 Microsoft Corporation