Office: (Office 2003) Meldung und Abbruch wenn Abfrage ohne Ergebnis

Hallo wieder einmal. Mein Problem heute: Ich starte aus einer Suchmaske heraus ein Formular. Dieses Formular bezieht seine Daten aus einer Abfrage. Funktioniert auch prima. Nur - ich möchte, dass sich das Formular, wenn die Abfrage kein Ergebnis bringt garnicht erst öffnet, sondern eine Meldung erscheint, dass kein Eintrag zu diesem Suchbegriff gefunden wurde.

Das habe ich auch gelöst - über ein Makro, das an das Ereignis "Bei Laden" angebunden ist. Es funktioniert allerdings nur, wenn ich in den Eigenschaften des Formulars die Eigenschaft "Datensätze hinzufügen" auf "ja" stelle.

In dieser Einstellung wird dann aber natürlich unter den gefundenen Datensätzen ein neuer Datensatz eingefügt. Bis hirher erst einmal ein optisches Problem. Da ich an einige Fleder in den angezeigten DS jedoch Funktionen z.B. bei Doppelklick oder KLick angebunden habe, führt das natürlich bei meinen ungeübten usern dazu, dass sie die leeren Felder anklicken, und es zu einer Fehlermeldung kommt.

Lange Vorrede - kurze Frage: Gibt es eine Möglichkeit eine wie von mir gewünschte Meldung an ein Kriterium wie z.B. "Detailbereich ist leer" (im Formular) anzubinden, also dem Zustand wenn das Formular ohne Datensätze öffnet?

:)

 

Erzähl doch mal, wie du das gelöst hast - über ein Makro?! Ich verstehe nicht, was das mit der Einstellung "Anfügen zulassen=Ja" zu tun hat.

 

Hallo Anne.
Wie gesagt, beim Laden des Formulars wird ein Makro aufgerufen, das folgenden Inhalt hat:
Es prüft als Bedingung ob ein Feld des Datensatzes (das bei bestehendem DS niemals leer sein kann) IsNull ist. Wenn das der Fall ist, erscheint eine Meldung, und das Formular wird geschlossen.

Das funktiniert eben jedoch nur, wenn in dem Formular überhaupt ein DS steht, und wenn es ein leerer ist. Also Einstellung "Anfügen zulassen". Andernfalls findet das Makro offensichtlich kein Bedingungsfeld, da der Detailbereich des Formulars ja gähnend leer ist. Ich habe auch schon versucht ein Steuerelement (auf das sich das Makro bezieht) als Kopie in den FormHeader zu stellen. Allerdings ebenfalls ohne Erfolg.

 

Lass das mit dem Makro sein und prüfe im Form_Current-Ereignis, ob Recordset.clone.recordcount > 0 ist.

 

vielleicht geht ein Abbruch auch schon im Öffnen-Ereignis und das Formular wird erst gar nicht geöffnet:
Code:

 

Hallo Smaug!
das war super! Funktioniert. Danke. Trotzdem noch eine Frage: Nach dem Abbruch Cancel = true erscheint jetzt immer die Systemmeldung "Die Aktion OpenForm wurde abgebrochen" Kann man das auch noch abstellen???

 

Ich nehme an das liegt an dem Formular aus dem der Code aufgerufen wurde.
Hier sollte ein On Error Resume Next vor der Zeile DoCmd.OpenForm genügen

 

Du bist eben einfach genial... hat auch noch funktioniert. Danke.