Access, ¿Cómo hacer una consulta masiva?

He ingresado los parámetros de búsqueda o criterios para poder filtrar los registros, usando para el caso dos formularios distintos para lo cual he realizado un formulario de parámetros, y otro con la consulta con criterios haciendo referencia al formulario de parámetros. Ej: forms! Formulario1! Texto3. El problema es que al efectuar la consulta, el criterio de búsqueda se rige estrictamente a lo escrito en las cajas de texto pero a mi me interesa realizar una consulta masiva, o sea que pudiera utilizar un * y obtener todos los campos o hacerlo de otra manera mejor.
Respuesta
1
Te adjunto un código en el cual:
subformulario_nombre = un subformulario
Txtnpol = campo de texto en el formulario cópialo tal cual y lo pegas en el código de VBA de access, allí lo verás mejor.
'AQUÍ EMPIEZA TODO LO QUE HAS DE COPIAR
'--------------------------------
'en un botón ponle al envento_clic()
consulta
para que vaya a la función que es la esencial que te escribo debajo
Private Function consulta()
' Dimensionamos las variables de las funciones
Dim strcompania As String
Dim wheresql As String
Dim strfullsql As String
strcompania = incluirparametros() ' se llama al procedimiento para crear la consulta
strWhereSQL = "Where " & strcompania
If strWhereSQL <> "Where " Then
strWhereSQL = strWhereSQL & " and "
End If
'strfullsql es la sentencia que le
pasamos.
msgbox strfullsql ' te muestra la cadena
strfullsql = "Select * From
nombre_consulta " & strWhereSQL
'subformulario_nombre
subformulario_nombre.Form.RecordSource = strfullsql
doevents
end sub
----------------------
Private Function incluirparametros() As String
If Not IsNull(TXTNPOL) And Not IsEmpty(TXTNPOL) Then
Dim poliza As String
If Left(TXTNPOL, 1) = "*" And Right(TXTNPOL, 1) = "*" Then
incuirparametros = Mid(TXTNPOL, 2, Len(TXTNPOL) - 2)
incuirparametros = "([pol_numpoliza]) like '*" & poliza & "*'"
ElseIf Right(TXTNPOL, 1) = "*" Then
incuirparametros = Left(TXTNPOL, Len(TXTNPOL) - 1)
incuirparametros = "([pol_numpoliza]) like '" & poliza & "*'"
ElseIf Left(TXTNPOL, 1) = "*" Then
poliza = Right(TXTNPOL, Len(TXTNPOL) - 1)
incuirparametros = "([pol_numpoliza]) like '*" & poliza & "'"
ElseIf Left(TXTNPOL, 1) <> "*" And Right(TXTNPOL, 1) <> "*" Then
incuirparametros = "([pol_numpoliza]) = '" & TXTNPOL & "'"
End If
End If
End Function
'______________
'AQUÍ ACABA TODO LO QUE HAS DE COPIAR
'-------------------------------------
Si no te aclaras te envío un ficheor mdb con una muestra.
Deberías darme tu email para enviártelo.
Contestame y me dices algo. Quiero ayudarte en cuanto pueda. No te preocupes por preguntar.
Un saludo
Suerte.
Vic.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Cargar Sub Formulario

Tengo un formulario con sub formulario en el que trabajo sin problemas, si quisiera cargar ese sub formalrio a partir una elección hecha con un cuadro de lista cuál sería el código Visual Basic. O sea si elijo form1 cargar form1, etc.
2 respuestas

Función access

Necesito una función de access que recorte por espacios, es decir, un quiero separar un campo apellidos en dos campos, uno para cada apellido. ¿Me puedes decir si existe algún procedimiento para hacerlo?
3 respuestas

Concatenear Datos

Quisiera que me ayudaras en un problema de access. Tengo una base de Datos para realizar las ordenas de Salidas de un personal (Comisiones) Consta de tres tablas ( Una Los Empleados, Otra las Actividades y la Tabla de Enlace que Une las Dos...
1 respuesta

Urge para proyecto de facturacion

Soy nueva en esto del Visual, Necesito Cambiar un Numero en texto, pero no de la forma habitual si no a verdadero texto, por ej: 1200.00 a Mil docientos 00/100 O 2457.70 a Dos mil cuatrocientos cincuenta y sielte 70/100 lo ultimo de xx/100 son los...
2 respuestas

Convertir Números a letras en un Informe

Tengo un campo numérico en una Consulta con BD. Deseo que en mi reporte se vea en letras el valor del número, incluido el valor monetario
1 respuesta

¿Cómo crear un campo clave alfanumérico?

Resulta que estoy haciendo un sistema en el cual lo que quiero hacer es armar una clave que empiece con tres letras MAYÚSCULAS y siga con tres números los que se incrementarían a medida que ingrese un nuevo registro. La idea es que empiecen por el...
1 respuesta

Access: función para cambiar de números a letras

A ver si me ayudas, en la función que hace poco recomendaste para cambiar de números a letras (1,500 a un mil quinientos) existe un error con los quinientos ya que te pone un mil cincocientos, me podrías ayudar a corregirlo y a agrgarle los...
1 respuesta

Ayuda con los dnis

Quisiera saber si hay alguna función para que al introducir un DNI sin letra, se genere la letra correspondiente.Si no la hay, ¿Alguien me da alguna solución para ello?
1 respuesta

¿Cómo convertir el valor de un campo numérico en un texto en acces?

Por que necesito con urgencia resolver este problema. Lo que no logro es que, por ejemplo, "1.500" access lo escriba en un cuadro texto como "mil quinientos". Trabajo sin decimales con valores >0. Ojalá me puedas ayudar ya que me salvarías de un gran...
1 respuesta

Textbox que solo acepte números y guiones

Mi pregunta es la siguiente, en un Botón de comando tengo el siguiente código : If Not IsNumeric(TextBox1) Then Dim mensaje As String mensaje = MsgBox( Valor ingresado NO es Numérico & Chr(13) & Ingrese nuevamente! , vbCritical, Title:= Ingresar...
3 respuestas