Controle op ontbreken van records

Status
Niet open voor verdere reacties.

Heronymus

Nieuwe gebruiker
Lid geworden
23 feb 2006
Berichten
1
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
 
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan