RonaldRoenhorst
Gebruiker
- Lid geworden
- 25 dec 2008
- Berichten
- 188
Code:
Private Sub btnAantal_Click()
MsgBox vbTab & ("en het totaal " & (DCount(" Aantal", "[tbl_Ingebruik]", "[Datum]= # " & [Datum] & " #")))
End Sub
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Private Sub btnAantal_Click()
MsgBox vbTab & ("en het totaal " & (DCount(" Aantal", "[tbl_Ingebruik]", "[Datum]= # " & [Datum] & " #")))
End Sub
Private Sub Datum_DblClick(Cancel As Integer)
MsgBox "en het totaal is: " & DCount("Aantal", "Verkocht", "Datum = CDate(" & CDbl(CDate(Datum)) & ")")
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.