Office: Prüfen ob Abfrage daten enthält !

Moin, moin,

habe in Access 2000 folgendes Problem:

Über das Formular1 öffne ich das Formular2.

Auf dem Formular2 befindet sich ein Diagramm.

Das Diagramm basiert auf einer Abfrage. DIese Abfrage zeigt basierend auf dem in Formular1 eingefügten Eingabefeld (Datum) die entsprechenden Datensätze an (und gibt diese auch an das Diagramm weiter).

Ich möchte nun bevor das Formular2 geöffnet und das Diagramm angezeigt geprüft wird ob für das im Eingabefeld eingegebene Datum Formular1) überhaupt datensätze vorhanden sind.

Wenn für das Datum keine Datensätze vorhanden sind. Soll das Formular2 nicht göffnet werden.

Bin wie folgt vorgegangen:

habe in das Formular2 unter "Beim Öffnen" folge code eingegeben:

If DCount("*", "Frage") = 0 Then
MsgBox "No Data !"
DoCmd.Close
End If
End Sub

Jedoch klappt net ganz, es kommt zwar zur meldung, jedoch danach erscheint ein Laufzeitfehler da DoCmd.Close ausgeführt wird befor das Formular geöffnet ist.

hat jemand einen Tipp wie ich da am besten vorgehen kann ??

Gruß loco

:)

 

Erstelle die dem Diagramm zu Grunde liegende Abfrage und speicher diese als qryDiagrammSource

In das Ereignis, dass das Öffnen des zweiten Form ausführt schreibst Du:

Code:

 

"qryDiagrammSource" verstehe ich nicht ganz !

Den code setzte ich in den Button mit dem ich das Fromular2 öffne, oder wat ??!


Gruß loco

 

\@strausto
Es reicht auch ein einziges Abtesten auf BOF. (Wenn BOF true ist, dann ist auch EOF true)

Gruß Torsten

 

\@Torsten

In meiner Literatur findet sich immer diese Lösung für genanntes Problem, es geht aber auch mit Deiner Methode.

@loco

Deinem Diagramm liegt doch eine ABfrage zu Grunde diese speicherst Du unter dem vorgeschlagenen Namen und weist dem Diagramm die Datenherkunft entsprechend zu.

In das Ereignis, dass das Öffnen des zweiten Form ausführt schreibst Du:

...
Damit sollte die Frage eigentlich beantwortet sein...?

 

Hallo strausto,

habe alles verstanden, jedoch bekomme beim ausführen einen Bug

Laufzeitfehler 3061 !
2 Parameter wurden erwartet. Aber es wurden zu wenig übergeben !

Code bleibt anschließend auf:

"Set rs = db.OpenRecordset("qryDiagrammSource") hängen" !

weißt du was das sein könnte ?

gruß
loco

 

Dann schreibe den SQL Code direkt in den Code:

Code:

 

Hallo,

Setze Cancel = True, und das Fenster sollte nicht geöffnet werden.

 

\@ nouba

wo setzte ich Cancel = True ein ?

Gruß
loco

 

Also, ich habe den SQL String aus der Abfrage in den Code übernommen.
Klappt leider nicht !

Bin jedoch auf folgendem Weg fündig geworden:


If DCount("*", "Abfrage") = 0 Then
Msgbox"No Data"
Exit Sub
Else
DoCmd.OpenForm "Meinformular_mitden_Diagrammen"
End If
Exit Sub

funzt sehr gut.
Vielen Dank für die Hilfe
Loco

 

hier