Julio Solis

Jacinto Trillo Jareño respondió: Carlos: Para eso has de programar el evento BeforeUpdate (Antes de Actualizar) de ese control. Te debe quedar algo parecido a ésto: Private Sub Año_BeforeUpdate(Cancel As Integer) If IsNull(Me.Año) Then MsgBox "El Año no puede estar...

Sveinbjorn El Rojo respondió: No uses la función MonthName(), para que los meses te queden ordenados y te funcione el acumulado. Luego, si quieres mostrar los nombres de los menes, haces una nueva consulta sobre la anterior y le aplicas esa función al número de mes.

Sveinbjorn El Rojo respondió: Para ponerle dos criterios al DSum() sería: Format(DSum("tblPoliza.[SubTotal]","tblPoliza","tblPoliza.[FechaPoliza] <=#" & [tblPoliza].[FechaPoliza] & "# AND TPoliza='" & tblPoliza.[TPoliza] & "'"),"$#,##0.00") Ahora bien, no te va a hacer el...

Neckkito Nck respondió: El problema que tienes es que, desde el formulario, no puedes realizar los cálculos necesarios para determinar el Saldo Total a través de un campo calculado. Para ello puedes recurrir a código. Además, si me dices que el campo Saldo en tu formulario...

Neckkito Nck respondió: Te explico una manera de hacerlo: En tu consulta añades un campo calculado en una columna vacía y le escribes la siguiente expresión: SeCuenta: Iif([es/n]="s";1;0) En tu informe, en vista diseño, añades, en la sección detalle ese nuevo campo. Puedes...

Neckkito Nck respondió: Supongamos que el campo donde guardas los gastos se llama [gasto]. Para ver cómo lo quieres en un informe debes: 1.- Creas un informe basado en la tabla donde tienes los gastos utilizando el asistente. Cuando se te inicie el asistente lo configuras...

telemaco respondió: Claro, pero debes utilizar consultas de inserción... una por cada tabla que necesites insertar, la sintaxis seria: SQL = "INSERT INTO mitabla Campo1,Campo2 Values(" & txtCampo1 & ",'" & Campo2 & "');" Currentdb.Execute sql SQL = "INSERT INTO mitabla2...

Julián González Cabarcos respondió: En el evento después de actualizar del combinado TPoliza crea un procedimiento de evento y entra Private Sub y End Sub escribe If not isnull([Tpoliza]) then Npoliza= (dlast("npoliza","TblPoliza","tpoliza=forms!tblpoliza!tpoliza"))+1 end if Así, una...