Controle op ontbreken van records

[Heronymus]

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

 

[Guus2005]

Je moet deze code niet in de load van je form zetten en je moet zeker niet je form unloaden terwijl deze nog staat te loaden.

De vraag die je stelt kan je beter stellen voordat je het form opent. Dus eerst controleren of het überhaupt zinnig is dat je het form opent of ervan uitgaan dat men een record wil toevoegen.

HTH
Weest gegroet,
Guus