PDA

Vollständige Version anzeigen : Formulare mit leeren Daten nicht öffnen!


Car
07.12.2000, 15:07
Hallo! Ich habe zwei Formulare basierend auf Abfragen, die bestimmte Termine bestimmen erstellt. Diese sollen entweder nicht öffnen, wenn kein Termin vorhanden ist oder automatisch schließen. Wie bewerkstellige ich das?

Mike
07.12.2000, 16:51
Hallo Car,
du kann z. B. in das Ereignis 'Beim Öffnen' eintragen Cancel = AnzahlDS() =0
Function AnzahlDS()
' Beschreibung: ermittelt die Anzahl Datensätze im aktuellen Formular
----------------
Dim db As Database
Dim rst As Recordset
On Error GoTo Proc_Err

Set db = CurrentDb
Set rst = db.OpenRecordset(Me.RecordSource)
On Error Resume Next
rst.MoveFirst
On Error GoTo 0
AnzahlDS = rst.RecordCount
rst.Close
Set rst = Nothing
db.Close
Set db = Nothing

Proc_Exit:
Exit Function

Proc_Err:
MsgBox Err.Description & " in Function AnzahlDS"
Resume Proc_Exit
End FunctionMike