Sveinbjorn El Rojo

Con este código, obtienes un MsgBox con el nombre de cada una de las consultas de tu BD: Private Sub NombreConsultas() Dim Qry As AccessObject For Each Qry In CurrentData.AllQueries MsgBox Qry.Name Next Qry End Sub Básicamente lo que hace es recorrer...

Fíjate que antes de encadenar las partes del WHERE, en la SQL que copiaste tienes que borrarle el punto y coma, por eso te da el error. Por ejemplo: TABLAProductos.IDUNIDAD; " _ & "WHERE TABLAGastos.IDprodUCTO=" & Me.cboProducto Después de IDUNIDAD...

te he preparado un mini ejemplo, a ver si es lo que necesitas: http://www.filebig.net/files/uPvnj6VyHB Fíjate en los códigos de los eventos "despues de actualizar" de cada cuadro combinado, que son la clave del asunto. Básicamente lo que hacen es...

Prueba a cambiar esto: Private Sub CommandButton2_Click() Call UserForm_Initialize End Sub por esto otro: Private Sub CommandButton2_Click() UserForm.Show End Sub

Puedes hacer esto: 1º/ Crea la consulta con los campos que quieras mostrar. 2º/ Crea tu formulario sobre la consulta anterior (a mi me gusta con distribución tabular, para mostrar resultados de búsqueda) 3º/ Abre tu formulario en Vista Diseño, y en...

Aquí te explican paso a paso cómo hacerlo: http://www.excellentias.com/userform-con-botones-maximizar-minimizar/ o aquí, con ejemplo incluido: http://www.exceleinfo.com/vba/botn-de-minimizar-y-maximizar-en-form-de-vba/

Prueba a quitarle las comillas a los valores numéricos y ponerle como separador decimal el punto: SiInm([FINAL]<=5.99,"BAJO",SiInm([FINAL]<=7.99,"BASICO",SiInm([FINAL]<=9.59,"ALTO",SiInm([FINAL]>9.59,"SUPERIOR","ERROR"))))

Si el listbox lo rellenas a partir de una consulta o una tabla, puedes insertar en tu informe esa consulta como subinforme. Otra opción, sería usar un textbox en el que vas cargando los distintos valores separados por un salto de carro, para que te...

Si tu cuadro de texto en el formulario se llama DNI (lo puedes ver sacando sus propiedades->pestaña Otros->Nombre), la sql te quedaría así: mySql = "SELECT Top 1 DNI, Consulta.FechaConsulta FROM Consulta WHERE DNI =" & me.DNI & " ORDER BY...

Creo que el error lo tienes en esta linea: Print #1, rst. Fields(5) Que debiera ser: Print #1, rst. Fields(nmbField) Porque de la forma que tu lo tienes, siempre te exporta el mismo campo (el que corresponde al índice 5), y por eso te parece que te...