Hallo,
ich habe ein Modul für eine MsgBox erstellt:
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
Hallo!
Hast du die möglichen Parameter von OpenQuery schon angesehen?
DoCmd.OpenQuery "Abf für News", ...
Gruß
Josef
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.
Aber natürlich kann ich bei "Kriterien" einen Text u.ä. einsetzen, dann wird danach gefiltert
Grüße
Edwin
Hallo,
... 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.
Hallo Edwin,
M.E. die falsche Vorgehensweise.
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
If Nz(Me.Auswahlfeld, 0) = 0 Then
'Meldung und Abbruch
Else
'Export ausführen !Auswahl ist hier bekannt
End Ifgruss ekkehard
Danke Josef, das war die richtige Lösung