Sveinbjorn El Rojo

Así: "Select * from TB_PAISES where PAIS like '" & Textbox1 & "%'" Si te da problemas, usa * en vez de %

Fíjate que la SQL la creas fuera del WHILE ... WEND, con unos valores para ret1 y retmed, y dentro del WHILE... WEND, antes de ejecutarla le asignas a esas variables otros valores. Conclusión, mete la línea que crea la SQL (instr9="INSERT ...") justo...

Lo primero que veo es que te sobra la comilla que pones después del campo IdRegistro. Lo segundo es que los campos no se corresponden con los valores que estás pasando: dices que te inserte en los campos IdRegisto y Factura, y le pasas los datos de...

Sí puedes, pero no son un SELECT, sino usando la función DLookUp(), por ejemplo, si el dato 5000 lo tienes en el campo "Salario" de la tabla Trabajadores: INSERT INTO Table1 VALUES (DLookUp("Salario","Trabajadores"), "Empresa1") Y si quieres limitar...

Te falta un espacio en blanco antes del WHERE. Un saludo

Una opción relativamente sencilla: Añade nuevas columnas usando la función SiInm() para crear esos grupos, por ejemplo: 0-30: SiInm([CampoDiferenciaFecha]<=30;1;0) 31-60: SiInm([CampoDiferenciaFecha]>30 Y [CampoDiferenciaFecha]<=60;1;0) ... Así...

Eso te pasa porque la consulta no está bien construida... La consulta de totales es para calcular totales, por tanto, los campos que se puedan sumar, para una misma fecha y num pedido, has de ponerlos como "suma" en vez de "agrupar por". Si lo que...

Te falta darle valor a la variable DB, con Set DB=CurrentDB: Private Sub cmdBorraTodasCuotas_Click() Dim DB As Database Dim cSql As String cSql = "DELETE * FROM tblplanpagos WHERE idpedido = " & Me![txtidpedido] & ";" Set DB=CurrentDB DB.Execute...

Así a lo rápido, se me ocurre que uses esta SQL para crear la consulta (puedes eliminar las dos anteriores si no las necesitas para otra cosa): SELECT Codigo AS "Mayores de 10 años", Null As "Menores de 10 años" FROM Vehiculo WHERE...

Prueba esta SQL para crear la consulta, a ver si te satisface: SELECT TOP 1 Consultas.ID_Consulta, Consultas.Fecha_Tratamiento, Consultas.Hora_Fin FROM Consultas INNER JOIN Reabiertas ON Consultas.ID_Consulta = Reabiertas.ID_Consulta WHERE...