Mit oder ohne Daten? (Access 97, 2000)

30.12.2003

Feststellen, ob ein bestimmtes Formular einen Datensatz enthält.

Beim Öffnen eines Formulars kann es schon einmal passieren, dass die zugrundeliegende Datenquelle keine Datensätze enthält.

Um den Benutzer nicht zu verwirren, sollte in diesem Fall eine entsprechende Meldung angezeigt werden.

Mit der folgenden Funktion können Sie feststellen, ob ein bestimmtes Formular einen Datensatz enthält. Wenn dies nicht der Fall ist, gibt die Funktion den Wert False zurück.

Public Function EnthältDatensätze(EinFormular As Form) As Boolean

    Dim R As Recordset
    Set R = EinFormular.RecordsetClone
    If R.RecordCount = 0 Then
        EnthältDatensätze = False
    Else
        EnthältDatensätze = True
    End If

End Function

Der folgende Programmausschnitt zeigt eine Meldung an, wenn das Adressenformular keine Datensätze enthält:

If Not EnthältDatensätze(Forms!Adressen) Then

MsgBox("Es sind keine Adreßdatensätze vorhanden!")

End If

Dienstleistungen

Als starker Partner an Ihrer Seite unterstützen wir Sie in folgenden Breichen:

Access-Programmierung

Benötigen Sie Unterstützung bei der Programmierung von Access-Anwendungen? Wir bieten die gesamte Bandbreite von der Access-Programmierung auf Stundenbasis bis zur Durchführung eines Software-Projektes als Auftragsarbeit an. Kontaktieren Sie uns für ein kostenloses Erstgespräch.

Software-Beratung

Haben Sie ein Software-Projekt und Sie wissen nicht, ob Access die richtige Plattform ist? Wir haben über 20 Jahre Erfahrung beim Erstellen von Windows-, Web und mobilen Anwendungen. Kontaktieren Sie uns für eine kostenlose Erstberatung.