Abfrageentwurf aus einer Meldungsbox öffnen

[Olytyp]

Hallo,

ich habe ein Modul für eine MsgBox erstellt:

Code [Auswählen] Erweitern

Public Function Messetest()
Dim intWahl As Integer
intWahl = MsgBox("Ist die aktuelle Messe ausgewählt?", _
vbYesNo + vbQuestion, "Rückfrage")
'Debug.Print intWahl
   If intWahl = 6 Then
       MsgBox "Excelexport oder Mail erstellen"
   Else
       DoCmd.OpenQuery "Abf für News"
   End If
End Function
Wenn ich auf "Nein" klicke soll sich die "Abf für News" im Entwurfmodus öffnen, statt die Abfrage auszuführen, da ich den aktuellen Messenamen im Feld "Messe" eintragen muss.

Grüße aus der Pfalz

[Josef P.]

Hallo!

Hast du die möglichen Parameter von OpenQuery schon angesehen?

Code [Auswählen] Erweitern

DoCmd.OpenQuery "Abf für News", ...
Gruß
Josef

[MzKlMu]

Hallo,
im Entwurf einer Abfrage kann man doch keine Daten eintragen, das geht in der Datenansicht (Ausführen) der Abfrage.

PS:
Bitte benutze die Codetags für Codedarstellungen.

[Olytyp]

Aber natürlich kann ich bei "Kriterien" einen Text u.ä. einsetzen, dann wird danach gefiltert

Grüße
Edwin

[MzKlMu]

Hallo,

Code [Auswählen] Erweitern

... da ich den aktuellen Messenamen im Feld "Messe" eintragen muss.Wo steht da was von Kriterien ?

Du solltest das anders machen, Abfragesichten sind für den User im Regelfall tabu, der Entwurf erst recht.
Warum zeigst Du die Abfrage nicht in einem (Unter)Formular an, dann kannst Du direkt filtern, ohne die Abfrage extra öffnen zu müssen.

PS:
Bitte unterlasse das Zitieren vollständiger Beiträge.

[Beaker s.a.]

Hallo Edwin,
M.E. die falsche Vorgehensweise.

Code [Auswählen] Erweitern

intWahl = MsgBox("Ist die aktuelle Messe ausgewählt?", _lässt vermuten, dass es ein Feld für eben diese Auswahl gibt. Da würde ich
doch vorher prüfen ob eine Auswahl getroffen wurde, um dann gleich eine
entsprechende Meldung an den Anwender zu senden

Code [Auswählen] Erweitern

If Nz(Me.Auswahlfeld, 0) = 0 Then
    'Meldung und Abbruch
Else
    'Export ausführen !Auswahl ist hier bekannt
End Ifgruss ekkehard

[Olytyp]

Danke Josef, das war die richtige Lösung