Mensaje enviado por "JANO" <jano@cmactacna.com.pe>

Hola eric; dependiendo de los Objetos de Acceso que este utilizando el metodo Find varia:

con DAO:

rs.find = "campotexto = ' " & sTextobuscado & "' and camponumerico = " & nNumBuscado
luego aplicas
rs.findFirst

con ADO

rs.find "campotexto = '" & stextobuscado & "'"

solo te permite buscar por un campo a la vez si deseas buscar por mas de un campo utilizas el metodo filter y el ctriterio de la misma forma que con el FIND de DAO

rs.filter = "campotexto = ' " & sTextobuscado & "' and camponumerico = " &
nNumBuscado

para el caso de FIND preguntas

if not rs.eof then
    msgbox "se encontro el registro"
else
    msgbox " No se encontro el registro"
end if

para el caso de FILTER

if rs.recordcount>0 then
    hay coindidencias
else
    No hay Coincidencias
end if

para este ultimo caso pues solo puedes obtener el valor de la propiedad recordcount si el objeto recordset es del lado del cliente es decir (rs.CursorLocation=adUseCLient)

aunque te recomiendo un procedimiento extra que te detemine la existencia de registros en un recordser dado asi como cuantos registros hay en total

todo esto respecto a DAO y ADO

espero haber despejado alguna duda


saludos JANO

pd: Diculpen lo extenso del mail



----- Original Message -----
From: "Eric Montes" <egilbertom@yahoo.com>
Subject: (VB-ESP) No me permite Hacer un Find Validando Dos campos
> Hola,
>
> Tengo un Recordset abierto y deseo buscar dentro del
> mismo una coincidencia mediante el metodo
>
> rs.find("criterio")
>
> Lo unico es que esta condicionado a dos valores de la
> tabala por lo cual utilizo la clapsula AND, pero me
> arroja un error mas o menos lo tengo asi
>
> rsBusca.MoveFirst
> rsBusca.find("aduana ='" + txtAduana.Text + "' and
> seccion = '" + txtSeccion.Text + "'")
>
> Todo esto en una sola linea, al dejar unicamente la
> busqueda por un campo si lo realiza, pero debe de
> realizarse mediante los dos campos.
>
> Donde me estoy equivocando..........