Sveinbjorn El Rojo

Prueba con: Forms("Factura").Inventario.Form.IdProducto=Me.Idproducto Y me cuentas. Un saludo

Haz una consulta de unión. La SQL sería así: SELECT * FROM Tabla1 UNION ALL SELECT * FROM Tabla2 Donde tabla1 y tabla2 lo cambias por los nombres de tus tablas. Ten en cuenta que los campos deben estar en el mismo orden en ambas. Un saludo

No das detalles de cómo has unido las distintas bases de datos (¿tienes todas las tablas en un único archivo, en varios archivos cada una y todas ellas vinculadas en una única BD, o son todas BDs independientes?) La idea básica sería, al abrir el...

¿Cómo estás haciendo ahora mismo la exportación y la carga de la imagen? Antes de exportar a pdf asegúrate de que cargas la imagen en el control imagen. Yo nunca me encontré con ese problema y trabajo siempre con imágenes vinculadas por código. Ya me...

Prueba con esta expresión, a ver si te complica menos la vida: =SiInm([FASES].[Formulario]![Fase]="CERRADO" O [FASES].[Formulario]![Fase]= "ASEGURADORA" O [FASES].[Formulario]![Fase]="DIRECCIÓN";[FECHAFASE]-[FECHAALTA];Fecha()-[FECHAALTA]) Un saludo.

Primer error: al cuadro de texto le estás dando un valor de texto (la SQL de una consulta), no el resultado de la consulta. Utiliza mejor la función DLookUp: modl = DLookup("Modelo","Motores","id=" ValCustID) Segundo error: la variable ValCustID no...

Pon un Set OlkDestinatario = .Recipients.Add("[email protected]") a continuación de la línea del mailA. O mira la propiedad para ponerlo en CC o BCC. Ahora mismo no recuerdo cual es, pero existen.

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...

Para eso existen los controles de errores. Mira este capítulo del manual de Neckkito, en el que se explica cómo usarlos: https://dl.dropboxusercontent.com/u/7400954/WebAccess/Pdf/CursoVBA/CursoVB13.pdf Un saludo

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...