Gestione entrate ed uscite con access

Question

Salve

Vorrei realizzare un registro di cassa, giornaliero con access

tabella gestcassa     campi  entrate - uscite - entrate1 - uscite1  - entrate 2 - uscite 2 ( totali di tutti i campi) - campo data

maschera collegata alla tabella per l'inserimento o a una eventuale query

report per la stampa del registro giornaliero delle operazioni di cassa

Quanto descritto sopra già esiste

Mi occorre invece che ogni giorno la maschera di access si presenti vuota per iniziare i nuovi inserimenti del giorno in corso.

Le problematiche da risolvere sono le seguenti

Devo riportarmi i totali del giorno precedente sulla maschera del giorno in corso

Stampare la registrazione giornaliera senza uscire dalla maschera di inserimento

Answer 1

Ciao mescaleros21,

Salve

Ho visto e provato le ultime modifiche fatte per ottenere un archivio di registri .

Sull'ultimo file inviato

però mi riporta questo errore quando cerco di aprire la maschera di inserimento degli importi

"Errore di runtime '94'

Uso di Null non valido

ma stiamo parlando della mia demo?

Quale sarebbe questa maschera, come si chiama?

nella maschera filtrodata inoltre, quando clicco su aprireport mi da questo messaggio

Utilizzo non valido di null su aprireport

Ascolta, nella demo ho cercato di inserire le cose essenziali, se poi vuoi aprire il report senza inserire la data, la cui cosa non avrebbe alcun senso, è meglio modificare la routine:

Private Sub CmdApriReport_Click()

On Error GoTo Err_CmdApriReport_Click

    Dim stLinkCriteria As String

    Dim stDocName As String

    If Len(Me!CboRicercaData.Value & "") = 0 Then

        MsgBox "Attenzione, manca l'inserimento della data.", vbInformation

        Me!CboRicercaData.SetFocus

        Exit Sub

    End If

    stDocName = "Monitoraggio"

    stLinkCriteria = "CDbl(Data)=" & CDbl(Me!CboRicercaData)

    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_CmdApriMaschera_Click:

    Exit Sub

Err_CmdApriMaschera_Click:

    MsgBox Err.Description

    Resume Exit_CmdApriMaschera_Click

    stDocName = "Monitoraggio_Report"

    stLinkCriteria = "CDbl(Data)=" & CDbl(Me!CboRicercaData)

    DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria

Exit_CmdApriReport_Click:

    Exit Sub

Err_CmdApriReport_Click:

    MsgBox Err.Description

    Resume Exit_CmdApriReport_Click

End Sub

Per quanto i serve , invece l'idea è buona della maschera di riporto  e quella di inserimento dati che si svuota automaticamente la volta successiva, però ho bisogno di inserire anche da un altra maschera nel registro di cassa.

Con la maschera iniziale cosi come è stata fatta , non posso farlo

Saluti

Non ho capito che vuoi dire, ovviamente la demo serve solo per semplificare la risposta rispetto a quello che hai chiesto.

A questo punto, se riesci a spiegare in maniera più dettagliata quello che ti serve, bene; altrimenti, sempre sulla mia stessa demo, aggiungi qualche dato, creati una maschera, mettila online e spiega quello che ti serve.

Vladimiro