Fejlmeddelelse/ingen adgang til formular, hvis ingen hit

Du kan lave en kode i VB der tæller antal poster i det recordcount der ligger bag ved formularen. Det er så er 0 kommer der en Msgbox.

Hvis du skal have hjælp til koden siger du lige til

til

Jeg prøve lige at lave den

Hej igen

Her er koden

Private Sub Form_Open(Cancel As Integer)
Dim r As Recordset
Set r = Screen.ActiveForm.RecordsetClone
Dim Antalposter As Integer
Antalposter = r.RecordCount
If Antalposter = 0 Then
MsgBox \"der er ingen Poster\"
End If

End Sub

Jeg har lavet det i den samme database som du fik i eftermiddag. Jeg sender den lige

Usp Jeg havde ikke opdaget at den sidste database ikke var send, så nu har jeg sendt 2. Det er den sidste der gælder

Det virkede efter jeg ændrede til...

Private Sub Form_Load()
Dim r As Recordset
Set r = CurrentDb.OpenRecordset(\"kupon_igang\", dbOpenSnapshot)

Dim Antalposter As Integer
Antalposter = r.RecordCount
If Antalposter = 0 Then
MsgBox \"Der er ingen forekomster i formularen!\"
DoCmd.Close acForm, \"Igangværende kupon\"
End If
End Sub

-og satte \'Microsoft DAO 3.6 Objekt 2.1 Library\' så højt som muligt under References.

Tak for hjælpen!