Supportnet / Forum / Datenbanken
Formular abfangen bei leerem Datensatz
Frage
Hallo Access-Fans,
Ich möchte, dass ein Formlar, das auf einer Abfrage basiert im Fall einer leeren Menge in der Abfrage abgefangen und nicht geöffnet wird. Möglichst ohne Programmieraufwand, bin Anfänger.
Wer hat eine Lösung?
Vielen Dank im Voraus!
Alfons
Antwort 1 von Koebi
Sali Alfons
Angenommen, die Abfrage heisst "Abfrage1", das Formular heisst "FormularTest".
Erstelle folgendes Makro "DatensatzVorhanden":
a) Erste Zeile des Makros:
Spalte Bedingung: DomAnzahl("*";"Abfrage1")>=0
Spalte Aktion: ÖffnenFormular
Hier ist unter Formularname FormularTest einzutragen.
b) Zweite Zeile des Makros:
Spalte Bedingung: DomAnzahl("*";"Abfrage1")=0
Spalte Aktion: Meldung
Hier ist unter Meldung der Text einzugeben, der angezeigt wird, wenn kein Datensatz vorhanden ist, z.B. "Kein Datensatz vorhanden!"
Verknüpfe das soeben erstellte Makro bei den Eigenschaften von FormularTest zum Ereignis "Bei Laden".
Bei mir funktioniert das so.
Gruss, Köbi
Angenommen, die Abfrage heisst "Abfrage1", das Formular heisst "FormularTest".
Erstelle folgendes Makro "DatensatzVorhanden":
a) Erste Zeile des Makros:
Spalte Bedingung: DomAnzahl("*";"Abfrage1")>=0
Spalte Aktion: ÖffnenFormular
Hier ist unter Formularname FormularTest einzutragen.
b) Zweite Zeile des Makros:
Spalte Bedingung: DomAnzahl("*";"Abfrage1")=0
Spalte Aktion: Meldung
Hier ist unter Meldung der Text einzugeben, der angezeigt wird, wenn kein Datensatz vorhanden ist, z.B. "Kein Datensatz vorhanden!"
Verknüpfe das soeben erstellte Makro bei den Eigenschaften von FormularTest zum Ereignis "Bei Laden".
Bei mir funktioniert das so.
Gruss, Köbi
Antwort 2 von Koebi
Korrektur:
In der Spalte Bedingung der 1. Zeile des Makros muss es richtig heissen:
DomAnzahl("*";"Abfrage1")>0
Das letzte =Zeichen fällt also weg.
Tutmirleidentschuldigemich.
Gruss, Köbi
In der Spalte Bedingung der 1. Zeile des Makros muss es richtig heissen:
DomAnzahl("*";"Abfrage1")>0
Das letzte =Zeichen fällt also weg.
Tutmirleidentschuldigemich.
Gruss, Köbi

