Estoy creando una aplicación para manipular una base de datos Microsoft Access pero no deja buscar

Hola de antemano gracias por tu ayuda.
Mira estoy creando una aplicación para que pueda manipular una base de datos(ACCESS)desde visual basic, pero todo funciona correctamente(puedo añadir registros, eliminar, modificar, etc)pero el problema es cuando genero el exe de mi aplicación, el problema consiste en que puedo añadir registros, pero no puedo consultarlos,¿qué necesito y que tengo que hacer para que funcione correctamente? Gracias.
Dim refbus As String
Dim criterio As String
'************************************************************'
End Sub
Private Sub Añadir_Click()
If numero.Text = "" Or paterno.Text = "" Or materno.Text = "" _
Or nombre.Text = "" Or Puesto = "" Or Captacion = "" Then
MsgBox "Los datos que proporciona son incorrectos", vbCritical, "Error"
numero.SetFocus
Else
Data1.Refresh
Data1.Recordset.AddNew
numero.SetFocus
End If
End Sub
Private Sub Borrar_Click()
If Data1.Recordset.RecordCount = 0 Then
Data1.Refresh
Data1.Recordset.AddNew
numero.Text = ""
paterno.Text = ""
materno.Text = ""
nombre.Text = ""
Text2.Text = ""
Else
Data1.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
Data1.Recordset.MoveNext
Else
Data1.Recordset.MoveFirst
End If
End If
End Sub
Private Sub Buscar_Click()
Añadir.Visible = False
Label5.Visible = False
Buscar.Visible = False
Siguiente.Visible = False
Puesto.Visible = False
Captacion.Visible = False
Borrar.Visible = True
Modificar.Visible = True
regresar.Visible = True
LCaptacion.Visible = True
LPuesto.Visible = True
Text2.Visible = True
Data1.Visible = True
numero.Enabled = False
paterno.Enabled = False
materno.Enabled = False
nombre.Enabled = False
Text2.Enabled = False
regresar.SetFocus
If Data1.Recordset.RecordCount = 0 Then
MsgBox "No hay ningun registro disponible", vbCritical, "Error"
Else
refbus = Trim(InputBox$("Introdusca referencia a buscar", "Buscar"))
criterio = "Solicitud = '" & refbus & "'"
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst criterio
If Data1.Recordset.NoMatch Then
MsgBox "No existe esa referencia.", vbInformation, "aviso"
Añadir.Visible = True
Label5.Visible = True
Buscar.Visible = True
Siguiente.Visible = True
Puesto.Visible = True
Captacion.Visible = True
Borrar.Visible = False
Modificar.Visible = False
regresar.Visible = False
LCaptacion.Visible = True
LPuesto.Visible = True
Text2.Visible = False
Data1.Visible = False
numero.Enabled = True
paterno.Enabled = True
materno.Enabled = True
nombre.Enabled = True
Text2.Enabled = True
Data1.Refresh
Data1.Recordset.AddNew
numero.SetFocus
End If
End If
End Sub
Private Sub Captacion_Change()
Captación.Clear
Captacion.AddItem "ANAYA"
Captacion.AddItem "ANUNCIO PERIODICO"
End Sub
Private Sub Form_Load()
Data1.Refresh
Data1.Recordset.AddNew
numero.Text = ""
paterno.Text = ""
materno.Text = ""
nombre.Text = ""
Label5.Caption = Date
End Sub
Private Sub LCaptacion_Click()
Captacion.Visible = True
LCaptacion.Visible = False
End Sub
Private Sub Modificar_Click()
numero.Enabled = True
paterno.Enabled = True
materno.Enabled = True
nombre.Enabled = True
Text2.Enabled = True
LPuesto.Enabled = True
Borrar.Visible = False
Modificar.Visible = False
LPuesto.Visible = True
LCaptacion.Visible = True
regresar.Left = 2520
regresar.Top = 5280
If Data1.Recordset.RecordCount = 0 Then
MsgBox "No hay ningun registro disponible", vbCritical, "Error"
Else
Data1.Recordset.Edit
End If
numero.SetFocus
End Sub
Private Sub Puesto_Click()
Text1.Text = Label5.Caption
End Sub
Private Sub Puesto_Change()
Puesto.Clear
Puesto.AddItem "ADMV"
Puesto.AddItem "ADVO"
End Sub
Private Sub regresar_Click()
Añadir.Visible = True
Label5.Visible = True
Buscar.Visible = True
Siguiente.Visible = True
Puesto.Visible = True
Captacion.Visible = True
Borrar.Visible = False
Modificar.Visible = False
regresar.Visible = False
LCaptacion.Visible = True
LPuesto.Visible = True
Text2.Visible = False
Data1.Visible = False
numero.Enabled = True
paterno.Enabled = True
materno.Enabled = True
nombre.Enabled = True
Text2.Enabled = True
Data1.Refresh
Data1.Recordset.AddNew
numero.Text = ""
paterno.Text = ""
materno.Text = ""
nombre.Text = ""
Label5.Caption = Date
numero.SetFocus
regresar.Left = 4080
regresar.Top = 5400
End Sub
Private Sub LPuesto_click()
Puesto.Visible = True
LPuesto.Visible = False
End Sub
Respuesta
1
Dices que solo tienes problemas al consultarlos, supongo entonces que el problema es solo en el procedimiento Buscar_Click()
¿Estas utilizando DAO verdad?
Asegurate que cuando abras el recordset estés utilizando un cursor de tipo dynaset o snapshot, esto es para que te funcione el método findfirst
No veo el código donde abres el recordset.
También asegurate de escribir bien el criterio de búsqueda, en el ejemplo que envías supongo que solicitud es un campo tipo string, tu código se ve bien..
Hola, muchísimas gracias por tu ayuda, la verdad estaba tan desorientado, que algo tan fácil y no pude, pero muchísimas gracias por tu ayuda y espero lo sigas haciendo, me gustaría tener tu mail, por si en un futuro necesito ayuda haber si puedes y quieres hacerme el favor, mi correo es [email protected].
Gracias y de verdad mil gracias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Al seleccionar celda extraer sus dígitos automáticamente

Necesito dos favores, la idea es que al seleccionar una celda numérica de 4 dígitos del rango "af1;aj42" esta automáticamente extraiga sus cifras a la columna "a1, b1, c1, d1" como se muestra en la imagen Y lo segundo como puedo quitarle el msgbox a...
2 respuestas

Se puede agregar voz a Excel

Tengo una pantalla de vuelo de vuelo donde anotó despegues y arribos, Quiero que cada vez que se produzca un despegue y se agregue hora o aterrice alguno y se ponga la hora, excel diga o se escuche atención Aterrizaje o Atención despegue.
3 respuestas

En una lista para pedidos tengo varios formularios

En una lista para pedidos con varios formularios la vengo usando desde hace tiempo sin ningún problema pero hace días la abrí para hacer un pedido y al pisar en el cuadro donde apunta la flecha para que me abra un otro cuadro donde coloco ciertos...
2 respuestas

Código VBA para crear un botón y guardar en PDF

Tengo un archivo word con 7 capturas, una en cada página (1-7), cual seria el código para crear un botón en la barra de herramientas de acceso rápido para convertir en PDF cada página. El resultado seria 7 pdf.
2 respuestas

Como evitar que se duplique un dato en la base de datos

Trato que al ingresar los datos a la base de datos si en la columna "B" DNI es una cifra que ya esta en dicha base me lo indique en un Msgbox "El Dato ya existe" Esta es la macro que tengo en el botón Aceptar Private Sub Aceptar_Click()...
2 respuestas

Desproteger un rango de celdas en una hoja protegida

Tengo una aplicación donde en una hoja se ponen comentarios automáticos con una macro, pero como hay celdas donde hay fórmulas las tengo bloqueadas y ocultas para que no se borren por error al usarla, tengo puesto el Unprotect en la macro por que si...
8 respuestas

Enviar hoja activa al monitor secundario con vba

He creado una segunda ventana de mi hoja excel con NewWindow, y lo que pretendo es mediante código VBA enviarla al monitor secundario, lo he intentado con Application.SendKeys "^({ESC}+{RIGHT})", pero no lo consigo, con "^{ESC}" estoy tratando de...
2 respuestas

Ingresar información en una hoja y rescatar los datos principales en otra hoja ordenadamente.

Debo hacer cotizaciones y necesito guardar la información de los datos de las personas en una BD, sin ocupar Tablas. Lo principal de esto es que queden ordenada según el número de la cotización y mantener el número correlativo de la cantidad de...
1 respuesta

Ver distintas hojas de un mismo libro en distintas pantallas

¿Pues no sé si esto se podrá hacer? Una determinada hoja de un libro se puede ver en la pantalla 2 mientras el resto de hojas, del mismo libro, las veo en la pantalla 1...¿Se puede? Si es así, ¿Cómo?
3 respuestas

Base de datos Access se bloquea al trabajar en simultaneo

En contexto tengo una base de datos donde se ingresan datos en un formulario y este a su vez tiene un subformulario. Al inicio solo era utilizada por un usuario. Pero ahora es usada por 4 usuarios más. Tengo una computadora principal donde tengo la...
3 respuestas