Hallo ,
In de volgende code krijg ik na 'Unload frmKlanten' de foutmelding 'object vereist".
Hoe kan ik dit oplossen?
Private Sub Form_Load()
On Error GoTo Uit:
If DCount("Achternaam", "Klanten") = 0 Then
If MsgBox("De tabel bevat geen records," & Chr(13) & " wilt U een record invoegen?", vbYesNo) = vbYes Then
Me.AllowEdits = True
Me.AllowAdditions = True
Me.Achternaam.SetFocus
Else
MsgBox "Het formulier gaat sluiten."
Unload frmKlanten
End If
Else
Exit Sub
End If
Uit:
End Sub
Alvast bedankt voor de moeite,
Jeroen
In de volgende code krijg ik na 'Unload frmKlanten' de foutmelding 'object vereist".
Hoe kan ik dit oplossen?
Private Sub Form_Load()
On Error GoTo Uit:
If DCount("Achternaam", "Klanten") = 0 Then
If MsgBox("De tabel bevat geen records," & Chr(13) & " wilt U een record invoegen?", vbYesNo) = vbYes Then
Me.AllowEdits = True
Me.AllowAdditions = True
Me.Achternaam.SetFocus
Else
MsgBox "Het formulier gaat sluiten."
Unload frmKlanten
End If
Else
Exit Sub
End If
Uit:
End Sub
Alvast bedankt voor de moeite,
Jeroen