ACCESS 2003 visualizzare subtotale

[wallace&gromit]

Beh sì la struttura della banca dati è un bel casino! Penso che mi metterò a modificare le maschere esistenti, poi si vedrà.

[archimede]

Ogni maschera fa capo ad una tabella con il suo stesso nome.
Anche per la definizione di importo e data ho usato lo stesso nome in tutte le maschere e tabelle.

Fermo restando che in ciascuna maschera dovrai mettere il controllo dove visualizzare il totale (quello nel piè di pagina del mio esempio) e l''evento Form_Current per scatenare il calcolo, credo che tu possa rendere il codice più generico creando un modulo:

Codice: Seleziona tutto

Sub Calcola(nome)
    If Forms(nome).Data <> "" Then
       Forms(nome).Totale.Value = DSum("Importo", nome, "Data = #" & Format(Forms(nome).Data, "mm\/dd\/yy") & "#")
       Forms(nome).LabelTotale.Caption = "Totale del " & Format(Forms(nome).Data, "dd\/mm\/yyyy")
    Else
       Forms(nome).Totale.Value = ""
       Forms(nome).LabelTotale.Caption = ""
    End If
End Sub

Quindi

Codice: Seleziona tutto

Private Sub Form_Current()
    Calcola (Me.Name)
End Sub

Non è un gran risparmio, ma il giorno che dovesse cambiare il metodo di calcolo del totale giornaliero devi mettere mano solo nel modulo invece che in n maschere.

HTH.

Alessandro

[wallace&gromit]

nel frattempo ho elaborato tutte le maschere come indicato, ci lavoro regolarmente e non ho avuto nessun problema.
Ora però ho un collega che ha dovuto usare per la prima volta le nuove maschere e non funziona:
esce un messaggio d'errore e nel debug viene evidenziato "Format", come se il suo access non riconoscesse quella funzione. Anche lui usa office 2003, ma non so in che modo l'ha installato, magari manca qualcosa?

[archimede]

ho elaborato tutte le maschere come indicato

Hai usato il primo o il secondo (più generico) metodo?

esce un messaggio d'errore e nel debug viene evidenziato "Format"

Quale errore esattamente? Potrebbe essere una dipendenza mancante (o di troppo) oppure (ma mi pare improbabile) l'errore è causato dalla lingua di Access.

Alessandro