Hoi iedereen,
Ik zit met een (waarschijnlijk) klein probleem waar ik na veel zoeken zelf niet uitkom.
Ik heb een database gemaakt in access 2007.
De database bevat een tabel met daarin opgenomen een kolom met "aantal bezoekers" voor activiteit A, "aantal bezoekers" voor activiteit B,
"aantal bezoekers" voor activiteit C, en zo heb ik totaal 5 activiteiten.
Nu wil ik op het formuier waar al deze aantallen ingevuld dienen te worden ook een Totaal veld hebben.
Dus zodra ik de aantallen invul, komt er in het totaalveld de som van al die aantallen te staan.
Ik ben een leek op gebied van vba maar kan wel een beetje met macro's overweg.
Wie kan mij helpen en het me duidelijk uitleggen wat, en waar ik het een en ander moet doen.
Alvast bedankt.
2
Hallo,
Kijk eens bij de onderstaande link van Microsoft, daar staat een uitleg hoe je gegevens kan laten optellen in een totaalveld.
https://support.office.com/nl-nl/articl ... 8dbbe41c8a
Kijk eens bij de onderstaande link van Microsoft, daar staat een uitleg hoe je gegevens kan laten optellen in een totaalveld.
https://support.office.com/nl-nl/articl ... 8dbbe41c8a
Member of UNITE Unified Network of Instructors and Trained Eliminators (Unite Against Malware)
4
Hallo,
Zonder de exacte lay-out van de Access database te weten is het lastig om hier een voorbeeld voor te geven.
Bij de onderstaande link staat een makkelijkere uitleg voor Access 2007.
https://support.office.com/nl-nl/articl ... cfcca8#bm2
Zonder de exacte lay-out van de Access database te weten is het lastig om hier een voorbeeld voor te geven.
Bij de onderstaande link staat een makkelijkere uitleg voor Access 2007.
https://support.office.com/nl-nl/articl ... cfcca8#bm2
Member of UNITE Unified Network of Instructors and Trained Eliminators (Unite Against Malware)
5
wanneer ik op het formulier de aantallen invul, krijg ik na elke invulling de melding
"Fout 94 tijdens uitvoering" ongeldig gebruik van Null..
Ik heb de volgende code staan:
Private Sub Gr_Totaal_AfterUpdate()
Me.[Gr_Totaal].Value = Val(Me.[Gr1_aantal].Value) + Val(Me.[Gr2_aantal].Value) + Val(Me.[Gr3_aantal].Value) + Val(Me.[Gr4_aantal].Value) + Val(Me.[Gr5_aantal].Value)
End Sub
Private Sub Gr1_aantal_AfterUpdate()
Me.[Gr_Totaal].Value = Val(Me.[Gr1_aantal].Value) + Val(Me.[Gr2_aantal].Value) + Val(Me.[Gr3_aantal].Value) + Val(Me.[Gr4_aantal].Value) + Val(Me.[Gr5_aantal].Value)
End Sub
Private Sub Gr2_aantal_AfterUpdate()
Me.[Gr_Totaal].Value = Val(Me.[Gr1_aantal].Value) + Val(Me.[Gr2_aantal].Value) + Val(Me.[Gr3_aantal].Value) + Val(Me.[Gr4_aantal].Value) + Val(Me.[Gr5_aantal].Value)
End Sub
Private Sub Gr3_aantal_AfterUpdate()
Me.[Gr_Totaal].Value = Val(Me.[Gr1_aantal].Value) + Val(Me.[Gr2_aantal].Value) + Val(Me.[Gr3_aantal].Value) + Val(Me.[Gr4_aantal].Value) + Val(Me.[Gr5_aantal].Value)
End Sub
Private Sub Gr4_aantal_AfterUpdate()
Me.[Gr_Totaal].Value = Val(Me.[Gr1_aantal].Value) + Val(Me.[Gr2_aantal].Value) + Val(Me.[Gr3_aantal].Value) + Val(Me.[Gr4_aantal].Value) + Val(Me.[Gr5_aantal].Value)
End Sub
Private Sub Gr5_aantal_AfterUpdate()
Me.[Gr_Totaal].Value = Val(Me.[Gr1_aantal].Value) + Val(Me.[Gr2_aantal].Value) + Val(Me.[Gr3_aantal].Value) + Val(Me.[Gr4_aantal].Value) + Val(Me.[Gr5_aantal].Value)
End Sub
Wat doe ik verkeerd?
"Fout 94 tijdens uitvoering" ongeldig gebruik van Null..
Ik heb de volgende code staan:
Private Sub Gr_Totaal_AfterUpdate()
Me.[Gr_Totaal].Value = Val(Me.[Gr1_aantal].Value) + Val(Me.[Gr2_aantal].Value) + Val(Me.[Gr3_aantal].Value) + Val(Me.[Gr4_aantal].Value) + Val(Me.[Gr5_aantal].Value)
End Sub
Private Sub Gr1_aantal_AfterUpdate()
Me.[Gr_Totaal].Value = Val(Me.[Gr1_aantal].Value) + Val(Me.[Gr2_aantal].Value) + Val(Me.[Gr3_aantal].Value) + Val(Me.[Gr4_aantal].Value) + Val(Me.[Gr5_aantal].Value)
End Sub
Private Sub Gr2_aantal_AfterUpdate()
Me.[Gr_Totaal].Value = Val(Me.[Gr1_aantal].Value) + Val(Me.[Gr2_aantal].Value) + Val(Me.[Gr3_aantal].Value) + Val(Me.[Gr4_aantal].Value) + Val(Me.[Gr5_aantal].Value)
End Sub
Private Sub Gr3_aantal_AfterUpdate()
Me.[Gr_Totaal].Value = Val(Me.[Gr1_aantal].Value) + Val(Me.[Gr2_aantal].Value) + Val(Me.[Gr3_aantal].Value) + Val(Me.[Gr4_aantal].Value) + Val(Me.[Gr5_aantal].Value)
End Sub
Private Sub Gr4_aantal_AfterUpdate()
Me.[Gr_Totaal].Value = Val(Me.[Gr1_aantal].Value) + Val(Me.[Gr2_aantal].Value) + Val(Me.[Gr3_aantal].Value) + Val(Me.[Gr4_aantal].Value) + Val(Me.[Gr5_aantal].Value)
End Sub
Private Sub Gr5_aantal_AfterUpdate()
Me.[Gr_Totaal].Value = Val(Me.[Gr1_aantal].Value) + Val(Me.[Gr2_aantal].Value) + Val(Me.[Gr3_aantal].Value) + Val(Me.[Gr4_aantal].Value) + Val(Me.[Gr5_aantal].Value)
End Sub
Wat doe ik verkeerd?
6
Hallo,
Ik vermoed dat de waarde van een opgevraagd veld "NULL" is, in Access zou je dit kunnen oplossen met de NZ, functie.
https://support.office.com/nl-nl/articl ... d9f4c69b6c
Ik vermoed dat de waarde van een opgevraagd veld "NULL" is, in Access zou je dit kunnen oplossen met de NZ, functie.
https://support.office.com/nl-nl/articl ... d9f4c69b6c
Member of UNITE Unified Network of Instructors and Trained Eliminators (Unite Against Malware)
8
Hallo,
Ik heb even overleg gehad met iemand die hier veel meer in thuis is, hij gaf het onderstaande als oplossing.
Op deze manier kan je dus het eerder geplaatste script aanpassen.
Ik heb even overleg gehad met iemand die hier veel meer in thuis is, hij gaf het onderstaande als oplossing.
Code: Selecteer alles
Me.[Gr_Totaal].Value = Nz(Me.[Gr1_aantal].Value;0) + Nz(Me.[Gr2_aantal].Value;0) + Nz(Me.[Gr3_aantal].Value;0) + Nz(Me.[Gr4_aantal].Value;0) + Nz(Me.[Gr5_aantal].Value;0)
Member of UNITE Unified Network of Instructors and Trained Eliminators (Unite Against Malware)
10
Hallo,
Je mag het Access-bestand even doorsturen naar info (at) pcwebplus (punt) nl
Dan zal ik even kijken of ik het voor je kan instellen.
Je mag het Access-bestand even doorsturen naar info (at) pcwebplus (punt) nl
Dan zal ik even kijken of ik het voor je kan instellen.
Member of UNITE Unified Network of Instructors and Trained Eliminators (Unite Against Malware)