Cómo programar un botón en un formulario que busque registros en una consulta y que se base en dos condiciones.

Son nueva en esto, pero pretendo hacer un formulario con cuadros de texto y un botón de busqueda, de entrada les agradezco su tiempo.

Tengo una consulta con el nombre "CONSULTA_BITACORA"

Un formulario con el nombre "BITACORA"

Lo que pretendo hacer es insertar dos cuadros de textos; en la primera quiero registrar un numero cuyo nombre de campo es "UNIDAD"

En el segundo cuadro de texto registrare la fecha de entrada, el nombre del campo es "FEC_ENTRADA"

Tambien quiero agregra un boton de busqueda que al darle click, me arroje la busqueda de los dos registros que anote en mis cuadros de texto es decir que me busque el numero de unidad anotada y con la fecha_entrada.

En el formulario quiero ver todos los detalles de registro que haga referencia a esa unidad y a esa fecha, solo tengo un registro que complen con esas dos condiciones.

Espero me puedan ayudar ya que no me ha salido nada bien.

1 Respuesta

Respuesta
2

Virginia: Voy a suponer que tu Botón se llama BTnBusca y tus dos cuadros de Texto, TxtUnidad y TxtLaFecha

Private Sub BtnBusca_Click()

 Dim Rst As DAO.Recordset

 Dim ElFiltro As String

 ElFiltro = “[Unidad] = ‘” & Me.TxtUnidad & “’” & “ AND “ & [FEC_ENTRADA] =#" & Format(Me.TxtLaFecha, "mm/dd/yyyy") & "#"

 Set Rst = Me.RecordsetClone

 Rst.FindFirst ElFiltro

 If Rst.NoMatch Then

 MsgBox "Registro no encontrado.", vbInformation

 Else

 Me.Bookmark = Rst.Bookmark

 End If

 Rst.Close

 Set Rst = Nothing

End Sub

Si todo ha ido bien el formulario Bitacora debe mostrarte los datos de esa unidad en esa Fecha que pongas, sis es que hay alguna y si no hay recibirás el Mensaje. Mis saludos >> Jacinto

Virginia: Se me ha pasado comentarte que si copias y pegas éste código, has de hacer dos cosas.

1.- Repasar las comillas simples y dobles, porque las que genera éste texto no son válidas, solo ve borrando y sustituyendo, en el Editor de VBA.

2.- Por supuesto activar el [Procedimiento de evento] en Propiedades del Botón >> Eventos >> Al hacer Click. Mis saludos >> Jacinto

¡Gracias! Lo pondré en practica y te envío los resultados.

Buen día, Jacinto!

Te comento que copie y pegue el código que me otorgaste, y también procedí a sustituir las comillas dobles y simple; y al ejecutar me sale. Error de compilación y error de sintaxis.

Y me marca esa fila en azul:

ElFiltro = "[UNIDAD] =  '" & Me.TxtUnidad & "'" & " AND " & [FEC_ENTRADA] =#" & Format(Me.TxtLaFecha, "mm/dd/yyyy") & "#"

Agradecería mucha tu ayuda.

Virginia: Es posible que los Nombres que intervienen en el código no sean correctos.

ElFiltro = "[UNIDAD] =  '" & Me.TxtUnidad & "'" & " AND " & [FEC_ENTRADA] =#" & Format(Me.TxtLaFecha, "mm/dd/yyyy") & "#"

UNIDAD: Ha de ser el Nombre del Campo en la Tabla/Consulta

TxtUnidad: Ha de ser el Nombre del Cuadro de Texto del Formulalario, que yo le he puesto ese, pero puede ser otro cualquiera, y entre ellos puede que se llame UNIDAD, igual que el Campo de la Tabla/Consulta.

Igual consideración merece FEC_ENRADA y TxtLAFecha

En definitiva, tienes que poner los Nombres que tu tengas, no los que yo te pongo.

Mis saludos >> Jacinto

hola, Jacinto

He cambiado los nombres tal cual tu pusiste para poder estar en la misma sintonia.

Revise y mis cuadros de texto estan bien. con el nombre TxtUnidad y TxtLaFecha

el campo de la consulta si se encuentran con el nombre "UNIDAD" Y FEC_ENTRADA".

 ElFiltro = "[UNIDAD] =  '" & Me.TxtUnidad & "'" & " AND " & [FEC_ENTRADA] =#" & Format(Me.TxtLaFecha, "mm/dd/yyyy") & "#"

envio las imagenes del proyecto:

Virginia: Veo muy poco en lo que me envías. Si ves que estás un poco atascada y puedes aislar esa parte de la BD, con los objetos que intervienen y con unos cuantos datos inventados, me la envías a [email protected] y creo que la ayuda será más rapida y efectiva. Ya me comentarás.

Mis saludos >> Jacinto

¡Gracias! 

Jacinto buen día!

Te envíe el archivo al correo que me indicaste.

Gracias por tu tiempo y paciencia.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas