Automatisch boetesysteem in Access

[OctaFish]

Ja, dat klopt in grote lijnen. Voor de cursus gebruik ik iets vergelijkbaars. Ik heb bijvoorbeeld deze query:
[SQL]SELECT DuikLidID, Naam, [DAN Nummer], [DAN Vervaldatum]
FROM tblDuikLeden
WHERE ([DAN Nummer] Is Not Null AND [DAN Vervaldatum]<Date());[/SQL]
Deze qeury controleert of een duikvergunning nog geldig is (met [DAN Vervaldatum]<Date() )

Op het startformulier van de database wordt gekeken of er records zitten in de query. Zo ja, dan wordt als eerste het formulier geopend. De code op het formulier ziet er dan zo uit:

Private Sub Form_Open(Cancel As Integer)

    With CurrentDb.OpenRecordset("SELECT * FROM qDAN_Vervaldatum")
        If .RecordCount > 0 Then
            DoCmd.OpenForm "frmDAN_Vervaldatum", , , , , acDialog
        End If
        .Close
    End With

End Sub

Je ziet, eigenlijk best wel simpel. En iets vergelijkbaars moet je denk ik wel kunnen maken

 

[luuk1234]

Ok, nou ja in iedergeval bedankt voor de hulp.
Ik zal eens kijken hoe ver ik kom ^^

 

[OctaFish]

Dan maak ik ondertussen vast een voorbeeldje in jouw db klaar. Scheelt straks weer tijd

 

[luuk1234]

Oh dat zou echt helemaal top zijn ^^, aangezien ik toch niet echt een ster ben met die query's :S