Visual Basic - Comprobar busqueda

Hola amigo de la web.

Tengo un problema con execute, al momento de buscar un campo, no se si realmente lo encontro o no.



codigo que estoy ocupando???
que le falta???

Dim tc_cod As Integer
tc_cod = Val(Trim(InputBox("Introduzca el Número de Código a Buscar:")))

StrSql = "Select * From pry_tipo_costo where tco_codtco=´" & tc_cod & " ´ "
Dbproyecto.Execute (StrSql)



Pero como compruebo que lo encontro el campo???

gracias.

Hola que tal,

Lo que has de hacer es

Dim tc_cod As Integer
Dim recConsulta as RecordSet
tc_cod = Val(Trim(InputBox("Introduzca el Número de Código a Buscar:")))

StrSql = "Select * From pry_tipo_costo where tco_codtco=´" & tc_cod & " ´ "
Set recConsulta = dbProyecto.OpenRecordset(StrSql)

Entonces si recConsulta.Recordcount>0 quiere decir
que si que ha encontrado uno, si quieres saber
cuantos exactamente lo que has de hacer es:
if recConsulta.recordCount > 0 then
recConsulta.MoveLast
recConsulta.MoveFirst
Msgbox(recConsulta.recordCount)
end if

Solo si vas del final al principio el valor de recordCount es fiable, pero eso si te asegura que si ha encontrado alguna, el valor que tendrá será
mayor que 0.

Un saludo.

Bueno es facil ejemplo:

set RS=Cnn.Execute("Select * From Tabla where ID=" _
&"´" Campo &"´")

With RS

´ comprobar Busqueda
if .EOF=False or .BOF=False then
msgbox("Encontro")
else
msgbox("No Encontro")
end if
end with