Moderatori: Anthony47, Flash30005
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:wallace&gromit ha scritto: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.
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
Private Sub Form_Current()
Calcola (Me.Name)
End Sub
Hai usato il primo o il secondo (più generico) metodo?wallace&gromit ha scritto:ho elaborato tutte le maschere come indicato
Quale errore esattamente? Potrebbe essere una dipendenza mancante (o di troppo) oppure (ma mi pare improbabile) l'errore è causato dalla lingua di Access.wallace&gromit ha scritto:esce un messaggio d'errore e nel debug viene evidenziato "Format"
Torna a Applicazioni Office Windows
Access 2003: creare maschera per inserire dati su più tabell Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 1 |
Access 2003: funzione per contare dati Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 1 |
Access 2003: contatore maschera sballato Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 0 |
Condizioni IIF nelle Query di Access Autore: GelriccaSud |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 40 ospiti