Dudas sobre la utilización de formularios para insertar valores en la base de datos con Access

Hola, mi problema es que tengo un formulario de búsqueda y hay datos que relleno y datos que no. En la consulta igualo los campos de la tabla a los cuadros independientes del formulario de búsqueda y me sale si introduzco todos los datos, pero si dejo alguno en blanco no me sale, ¿qué debería pone en criterios? Saludos y muchas gracias
Respuesta
1
Si utilizas una consulta para devolver los registro (por criterios), la consulta siempre espera el criterio (hace tiempo ponía en criterios "*"&[textoquesea]&"*", p.ejem: jose sacaba José Antonio, Antonio José,...). Pero personalmente me gustan más los filtros, este es el código que utilizo para especificar los criterios en el formulario de búsqueda, comando2306 es el botón buscar, después hay otro que me lleva al formulario de resultados, espero que te sirva.
Private Sub Comando2306_Click()
On Error GoTo Err_Comando2306_Click
Dim mifiltro, a, aa, b, bb, c, cc, d, dd, e, ee, f, ff, g, gg, h, hh, i, ii, j, jj As String
Dim z, xx, yy As Integer
If IsNull(Texto2289.Value) = False Then mifiltro = "(FILIACION.DNI Like '" + Texto2289.Value + "')"
If IsEmpty(mifiltro) = True Then
If IsNull(Texto2291.Value) = False Then mifiltro = "(FILIACION.NOMBRE Like '" + Texto2291.Value + "')"
Else
If IsNull(Texto2291.Value) = False Then mifiltro = mifiltro + "AND (FILIACION.NOMBRE Like '" + Texto2291.Value + "')"
End If
If IsEmpty(mifiltro) = True Then
If IsNull(Texto2293.Value) = False Then mifiltro = "(FILIACION.APELLIDO1 Like '" + Texto2293.Value + "')"
Else
If IsNull(Texto2293.Value) = False Then mifiltro = mifiltro + "AND (FILIACION.APELLIDO1 Like '" + Texto2293.Value + "')"
End If
If IsEmpty(mifiltro) = True Then
If IsNull(Texto2295.Value) = False Then mifiltro = "(FILIACION.APELLIDO2 Like '" + Texto2295.Value + "')"
Else
If IsNull(Texto2295.Value) = False Then mifiltro = mifiltro + "AND (FILIACION.APELLIDO2 Like '" + Texto2295.Value + "')"
End If
' CONTINUAS DE LAS MISMA FORMA CON TODOS LOS CAMPOS QUE TENGAS
If IsEmpty(mifiltro) = True Then
Beep
MsgBox "INTRODUCE ALGUN CRITERIO", vbCritical, "NO SE PUEDE FILTRAR"
Else
Texto2316.Value = mifiltro
Me.Filter = mifiltro
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Dim bab As Long
b = Texto2261.Value
bab = DCount("[Id]", "FILIACION", Me.ServerFilter)
If bab = 0 Then
Etiqueta2182.Caption = "NO SE HAN ENCONTRADO REGISTROS COINCIDENTES"
Texto2348.Visible = False
Else
Etiqueta2182.Caption = bab & " REGISTROS COINCIDENTES"
End If
Exit_Comando2306_Click:
Exit Sub
Err_Comando2306_Click:
MsgBox Err.Description
Resume Exit_Comando2306_Click
End Sub

Añade tu respuesta

Haz clic para o
El autor de la pregunta ya no la sigue por lo que es posible que no reciba tu respuesta.

Más respuestas relacionadas

Access 2013 - Formulario para logear usuarios con contraseña

Estoy planeando agregarle a mi base de datos, un formulario para que logueen distintos usuarios. He estado viendo videos y me doy una idea. Pero mi base de datos está dividida en front y back end, he leído por ahí que eso puede ser un problema al...
3 respuestas

Access me abre en pantalla el archivo vinculado de Excel en red

Hice una pequeña base de datos en Access donde vincule un archivo de Excel para mostrar los datos mediante un formulario, se solicita un dato, en este caso el RFC para mostrar los registros en el formulario, cuando lo realizo en mi equipo no tengo...
3 respuestas

¿Como hacer funcionar opción "todos" en cuadro combinado?

Tengo un combo "estudiantes" que realiza filtro por nombre apellido y también un combo "año" -basado en campo fecha_inscripción_anual- que filtran en un subformulario la trayectoria educativa del estudiante según el año. Mediante la consulta sql de...
2 respuestas

Crear un botón en un formulario para que borre todos los registros de una tabla

Necesito crear un comando para borrar los registros de una tabla, y otro para lanzar una carga de una importación, ahora tengo access 2016 y no sé como hacerlo
3 respuestas

Abrir formulario desde cuadro combinado

Tengo un cuadro combinado que su nombre es cboForms al que le puesto una lista de varios formularios, el nombre de cada formulario es F_Papeleta_de_sitio_2022, F_Papeleta_del_sitio_2023, F_Papeleta_de_sitio_2024, etc me gustaría que al desplegar el...
3 respuestas

¿Se puede compartir base de datos access 2007?

Tengo una pequeña duda. He estado leyendo por foros y otras páginas acerca de la posibilidad de compartir bases de datos, pero en ninguna he visto nada acerca de hacerlo de forma simultanea, es decir, que si yo creo un registro desde un ordenador, el...
2 respuestas

Capacidad de Microsoft Access

Quisiera saber si alguien de ustedes sabe hasta cuantos registros soporta una tabla en una base de datos en Access... Me servirá de mucha la ayuda de alguien...
2 respuestas

Problemas convertir SQL SERVER

Estoy intentando pasar a SQlServer una base de datos de access, lo que hago es utilizar la opción que ofrece Access pero me sale un informe con el "mensaje se paso por alto o fallo la exportación", y lo curioso es que me crea bien la nueva base de...
2 respuestas

¿Cómo puedo imprimir informe y actualizar tabla usando un "botón de comando"?

Quiero saber como hacer para que en una tabla, dónde el valor predeterminado es "N" al hacer clic en el botón de comando, imprima 1 informe y actualice a "S" el valor de la tabla pero si en cambio, ese campo esta con valor "S" no imprima ni actualice...
2 respuestas

Tengo una duda access 2010 Reporte vba

Tengo la siguiente sintaxis para filtrar un reporte pero no se filtra no se que tenga mal. DoCmd.OpenReport "ALLM2CONTEDOR", acViewPreview, "FECHA = #" & Format(Me.FECHAOK, "mm-dd-yyyy") & " # AND CONTENEDOR= " & Me.NUMEROCONTENEDOR.Column(1) & ""...
2 respuestas