Boton buscar en la base de datos access

[ariesagv]

--------------------------------------------------------------------------------
Hola a todos:
mi problema es el siguiente tengo una base de datos en access y estoy haciendo los formularios en visual basic; lo que pasa que no estoy usando el data, sino codigo para jalar la base, si jala los registros, pero cuando haga la busqueda de un registro no lo hace o no me lo muestra; si alguien me pudiera decir en que estoy mal
les mando el codigo del boton

Cita:
Private Sub Buscar_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
'Comprobamos que la caja combinada de la búsqueda no se este vacía.
If Len(Trim(Combo1.Text)) = 0 Then
MsgBox ("Debe especificar el tipo de búsqueda")
Combo1.SetFocus
'Verificamos si la caja del texto a buscar esta vacía.
ElseIf Len(Trim(txtBuscarTexto.Text)) = 0 Then
MsgBox ("Debe especificar el texto a buscar")
txtBuscarTexto.SetFocus
Else
'Verificamos el tipo de búsqueda.
If LCase(Combo1.Text) = LCase("Clave") Then
rs.Find "clave = '" & txtBuscarTexto.Text & "'", , , 1 'Buscamos por clave.
End If
If LCase(Combo1.Text) = LCase("Fecha") Then
rs.Find "fecha = '" & txtBuscarTexto.Text & "'", , , 1 'Buscamos fecha.
End If
If LCase(Combo1.Text) = LCase("Formato") Then
rs.Find "formato = '" & txtBuscarTexto.Text & "'", , , 1 'formato.
End If
'Verificamos si la búsqueda tiene éxito y ponemos los datos en las cajas de texto.
If rs.BOF = False And rs.EOF = False Then
Text1.Text = rs.Fields("clave") 'Ponemos el nombre del registro actual.
Text2.Text = rs.Fields("fecha") 'Ponemos el apellido del registro actual.
Text3.Text = rs.Fields("formato") 'Ponemos el teléfono del registro actual.
Text4.Text = rs.Fields("Descripcion") 'Ponemos la dirección del registro actual.
Text5.Text = rs.Fields("lugar") 'Ponemos el correo del registro actual.
Else
'Mostramos un mensaje si la búsqueda no tiene éxito.
MsgBox ("No se ha podido localizar el registro con el parámetro especificado")
End If
End If
End Sub

ALGUIEN QUE ME PUEDA DECIR QUE FALLA TENGO , PLISS

[Kruzado]

prueba esto :

'Verificamos el tipo de búsqueda.
select case ucase(combo1.text)
case "CLAVE"
llave="clave = '" & txtBuscarTexto.Text & "'" 'Buscamos por clave.
case "FECHA"
llave="fecha = #" & format(txtBuscarTexto.Text,"mm/dd/yyyy") & "#" 'Buscamos fecha.
case "FORMATO"
llave="formato = '" & txtBuscarTexto.Text & "'" 'formato.
end select
rs.findfirst llave
'Verificamos si la búsqueda tiene éxito y ponemos los datos en las cajas de texto.
If not rs.nomatch Then
Text1.Text = rs.Fields("clave") 'Ponemos el nombre del registro actual.
Text2.Text = rs.Fields("fecha") 'Ponemos el apellido del registro actual.
Text3.Text = rs.Fields("formato") 'Ponemos el teléfono del registro actual.
Text4.Text = rs.Fields("Descripcion") 'Ponemos la dirección del registro actual.
Text5.Text = rs.Fields("lugar") 'Ponemos el correo del registro actual.
Else
'Mostramos un mensaje si la búsqueda no tiene éxito.
MsgBox ("No se ha podido localizar el registro con el parámetro especificado")
End If

findfirst busca desde el inicio de la tabla hasta que lo encuentra el valor buscado, si no lo encuentra la propiedad nomach queda en true, las fechas se buscan entre gatos (#12/31/2008#) y con el formato mm/dd/yyyy.

prueba y nos avisas

[ariesagv]

OK, VOY A PROBARLO Y LUEGO TE AVISO QUE ONDA

Iniciado por Kruzado

prueba esto :

'Verificamos el tipo de búsqueda.
select case ucase(combo1.text)
case "CLAVE"
llave="clave = '" & txtBuscarTexto.Text & "'" 'Buscamos por clave.
case "FECHA"
llave="fecha = #" & format(txtBuscarTexto.Text,"mm/dd/yyyy") & "#" 'Buscamos fecha.
case "FORMATO"
llave="formato = '" & txtBuscarTexto.Text & "'" 'formato.
end select
rs.findfirst llave
'Verificamos si la búsqueda tiene éxito y ponemos los datos en las cajas de texto.
If not rs.nomatch Then
Text1.Text = rs.Fields("clave") 'Ponemos el nombre del registro actual.
Text2.Text = rs.Fields("fecha") 'Ponemos el apellido del registro actual.
Text3.Text = rs.Fields("formato") 'Ponemos el teléfono del registro actual.
Text4.Text = rs.Fields("Descripcion") 'Ponemos la dirección del registro actual.
Text5.Text = rs.Fields("lugar") 'Ponemos el correo del registro actual.
Else
'Mostramos un mensaje si la búsqueda no tiene éxito.
MsgBox ("No se ha podido localizar el registro con el parámetro especificado")
End If

findfirst busca desde el inicio de la tabla hasta que lo encuentra el valor buscado, si no lo encuentra la propiedad nomach queda en true, las fechas se buscan entre gatos (#12/31/2008#) y con el formato mm/dd/yyyy.

prueba y nos avisas

[ariesagv]

Iniciado por Kruzado

prueba esto :

'Verificamos el tipo de búsqueda.
select case ucase(combo1.text)
case "CLAVE"
llave="clave = '" & txtBuscarTexto.Text & "'" 'Buscamos por clave.
case "FECHA"
llave="fecha = #" & format(txtBuscarTexto.Text,"mm/dd/yyyy") & "#" 'Buscamos fecha.
case "FORMATO"
llave="formato = '" & txtBuscarTexto.Text & "'" 'formato.
end select
rs.findfirst llave
'Verificamos si la búsqueda tiene éxito y ponemos los datos en las cajas de texto.
If not rs.nomatch Then
Text1.Text = rs.Fields("clave") 'Ponemos el nombre del registro actual.
Text2.Text = rs.Fields("fecha") 'Ponemos el apellido del registro actual.
Text3.Text = rs.Fields("formato") 'Ponemos el teléfono del registro actual.
Text4.Text = rs.Fields("Descripcion") 'Ponemos la dirección del registro actual.
Text5.Text = rs.Fields("lugar") 'Ponemos el correo del registro actual.
Else
'Mostramos un mensaje si la búsqueda no tiene éxito.
MsgBox ("No se ha podido localizar el registro con el parámetro especificado")
End If

findfirst busca desde el inicio de la tabla hasta que lo encuentra el valor buscado, si no lo encuentra la propiedad nomach queda en true, las fechas se buscan entre gatos (#12/31/2008#) y con el formato mm/dd/yyyy.

prueba y nos avisas

Hola ya probe lo que me dijiste, pero me sale un error, ,me dice que Error de compilación:
No se encontró el método o el miembro de datos
y me da los errores en finfirst y nomach

[Kruzado]

no se como declaraste tus variables, pero el codigo ke te envie funciona declarando rs como recordset ej:

set rs=tubase.opentecordset("tutabla",dbopendynaset)