Antwoorden

1.

Function rangschikken()
Dim db As Database, r As Recordset, teller As Integer, klas As String
Set db = CurrentDb
Set r = db.OpenRecordset("select * from tblLeerlingen order by klascode,naam", dbOpenDynaset)

klas = " "
Do Until r.EOF

If r![klascode] <> klas Then
teller = 1
klas = r![klascode]
Else
teller = teller + 1
End If

r.Edit
r![klasnummer] = teller
r.Update

r.MoveNext
Loop
r.Close
db.Close

2. Maak een formulier frmAfwezigheden gebaseerd op tblLeerlingen met volgende gegevens:

De opdrachtknop AFWEZIG activeert bij klikken volgende functie:

Function afwezigheden()
Dim db As Database, r As Recordset
Set db = CurrentDb
Set r = db.OpenRecordset("tblAfwezigheden", dbOpenTable)
r.AddNew
r![naam] = Forms![frmAfwezigheden]![naam]
r![datum] = Date
r.Update
r.Close
End Function

3. Maak een tabel tblEtiket met 3 tekstregels bijvoorbeeld regel1,regel2 en regel3. Na invoer van de 3 regels en het aantal etiketten zorgen we dat :

• de tabel leeggemaakt wordt
• evenveel records toegevoegd worden als aantal etiketten
• een rapport openen dat de etiketten in preview toont

Function etiketten()
Dim db As Database, r As Recordset, lijn1 As String, lijn2 As String, lijn3 As String
Dim aantal As Integer, teller As Integer
Set db = CurrentDb
Set r = db.OpenRecordset("tblEtiket", dbOpenTable)
Do Until r.EOF
r.Delete
r.MoveNext
Loop
lijn1 = InputBox("eerste regel")
lijn2 = InputBox("tweede regel")
lijn3 = InputBox("derde regel")
aantal = InputBox("aantal etiketten")
For teller = 1 To aantal
r.AddNew
r![regel1] = lijn1
r![regel2] = lijn2
r![regel3] = lijn3
r.Update
Next teller
r.Close

DoCmd.OpenReport "rptEtiketten", acViewPreview
End Function

4. De structuur van de tabel tblRekeningen wordt als volgt aangemaakt:

Op het volgende formulier bevinden zich de klas, de kostenomschrijving en het bedrag dat aan de leerlingen moet aangerekend worden.
De knop VERREKENING start de functie verrekening. Bij klikken plaatsen we =verrekening([klas];[kostenomschrijving];[bedrag])
De 3 waarden worden als parameter naar de functie doorgegeven en voor elke leerling van de ingevoerde klas wordt een record in de tabel tblRekeningen toegevoegd.

Function verrekening(klas As String, kostenomschrijving As String, bedrag As Integer)
Dim db As Database, r As Recordset, r1 As Recordset
Set db = CurrentDb
Set r = db.OpenRecordset("tblLeerlingen", dbOpenTable)
Set r1 = db.OpenRecordset("tblRekeningen", dbOpenTable)
Do Until r.EOF
If r![klascode] = klas Then
r1.AddNew
r1![naam] = r![naam]
r1![kostenomschrijving] = kostenomschrijving
r1![bedrag] = bedrag
r![datum] = Date
r1.Update
End If
r.MoveNext
Loop
r.Close
r1.Close
End Function