Private Sub Gemeente_AfterUpdate()
If IsNull(Me.Gemeente) Then
Me.Postcode.RowSource = "SELECT DISTINCT Postcode FROM tblPostcodes"
Else
Me.Postcode.RowSource = "SELECT postcode FROM tblPostcodes WHERE Gemeente='" & Me.Gemeente & "'"
End If
Me.Postcode.SetFocus
If Me.Postcode.ListCount = 1 Then
Me.Postcode = DLookup("Postcode", "tblPostcodes", "Gemeente='" & Me.Gemeente & "'")
Else
Me.Postcode = Null
Me.Postcode.Dropdown
End If
Geboortedatum.SetFocus
End Sub
Geboortedatum.SetFocus