Åbne formular KUN hvis der findes data

I\'m back :-)

Sæt denne kode ind i Vis_Alle-formularen.

Private Sub Form_Open(Cancel As Integer)
    If Me.Recordset.RecordCount = 0 Then
        MsgBox \"Der er ingen poster!\", vbCritical, \"Formularen lukkes igen!\"
        DoCmd.CancelEvent
    End If
End Sub

Du vil dog få en fejl fra den linie, som kaldte DoCmd.OpenForm \"Vis_Alle\"....
Derfor skal du lægge noget fejlhåndtering i den procedure.

Som minimum:

On Error Resume Next
If Me!sogfelt <> \"\" Then       
    DoCmd.OpenForm \"Vis_alle\", , , \"Navn like \'*\" & Me!sogfelt & \"*\'\"
End If

/Thomas

Med DAO kan du løbe tabellen igemmen for at se om posten hvis og kun åbne formularen hvis den gør

Din  R as Recordset
Dim fl as byte

set R = currentDB.OpenRecordset(\"Tabelnavn\")

r.movefirst
Do until R.EOF
IF r(feltnummer -1) = Søgeord Then fl = 1
r movenext
Loop

If fl = 1 thne

DoCmd.OpenForm \"Vis_alle\", , , \"Navn like \'*\" & Me!sogfelt & \"*\'\"

end if

thomasjepsen du er en gud!!