tincho1977

Eduardo Pérez Fernández respondió: El error está en la concatenación, pruebe con este script SQL = "INSERT INTO INGRESOS" _ & "(Columna1, Columna2, Columna3, Columna4, Columna5, Columna6)" _ & " VALUES (" _ & "'" & .Cells(Contador, 1).Value & "', " _ & .Cells(Contador, 2).Value & ", "...

Sveinbjorn El Rojo respondió: Prueba con: DoCmd.ApplyFilter , "Nz([Cpo1],'')= ''" Porque no es lo mismo un valor Nulo (vacío) que una cadena vacía (''). De esta forma que te digo, analizas los dos supuestos a la vez, convirtiendo los Nulos a cadenas vacías Y si Cpo1 no es un...

Sveinbjorn El Rojo respondió: Si quieres controlar todos los posibles "fallos" del encadenamiento (que empiece o acabe con /, que aparezcan dos o más / seguidas) puedes pegar en el módulo de tu formulario este procedimiento: Private Sub encadena() Dim encadena As String encadena...

Julián González Cabarcos respondió: El problema es que si el form1 esta cerrado y le quieres dar la orden desde el form2 no hace nada Pero si el form1 está abierto, en el form2 puedes poner un botón y en el evento al hacer clic forms!form1!frmsub.form.allowedits=true

Sveinbjorn El Rojo respondió: Prueba así: CStr(Format(Me.IdProducto,"00000") & "-" & Format(Nz(DMax("[IdSubproducto]", "Subproducto", "Subproducto![IdProducto] = " & Me.IdProducto),0) + 1, "00"))

Julián González Cabarcos respondió: Vamos a suponer que el subformulario ProductoSub tienes un cuadro de texto llamado PrecioUnidad. En las propiedades-Eventos-Al cerrar del formulario DetallesProductos, entre Private Sub y End Sub escribe Forms! Produtos! ProdutosSub.Form!...

Sveinbjorn El Rojo respondió: Tienes que poner la segunda parte de la condición dentro de las comillas, así: Nz(DCount("Descripcion", "Resultados", "[Resultados]![Id P] = " & Me.Pacientes_Id_P & " And [Resultados]![Informar determinacion] = True"), 0)

Sveinbjorn El Rojo respondió: Si a la función AgregFecha le pones como intervalo "y", le estás indicando el día del año. Para que te reste el año, tienes que usar "yyyy" (o "aaaa" en la versión en español como es tu caso) Inténtalo con esta expresión: =DSuma("[Cantidad...