Office: Parameter für Abfrage per VBA übergeben und Abfrage öffnen

Hallo,

Ich will eine Parameterabfrage über eine Schaltfläche auf einem Formular öffnen wobei der Parameter automatisch vom Formular übergeben wird, so dass der Anwender das Parameterabfragefenster nicht zu Gesicht bekommt. Das Formular kennt den Parameter (ist in der Variablen strUser gespeichert).

Mit DoCmd.Openquery kann ich die Parameterabfrage ganz normal öffnen, es kommt aber besagtes Popup zur Parameterabfrage.

Ich habe es danach folgendermaßen versucht:
Code:

bekomme aber jetzt den Laufzeitfehler 3065 "Eine Auswahlabfrage kann nicht ausgeführt werden". Mit welchem Befehl kann ich die Abfrageergebnisse in der gewohnten Weise anzeigen und den Parameter vorher automatisch übergeben?

Danke

Harald Niess

:)

 

Die .execute-Methode (letzte Zeile) ist nicht für einfache Auswahlabfragen vorgesehen. Execute dient dazu, Aktionsabfragen wie INSERT, UPDATE, DELETE aufzurufen.

Wenn Du genauer schilderst, was Du mit dem Aufruf der Abfrage erreichen willst, kann man einen anderen Lösungsvorschlag unterbreiten.

 

6.16
allerdings ist mir unklar warum die Abfrage nicht in einem Listenfeld innerhalb des Formualrs oder Bericht geöffnet wird?!

 

Ich wollte, dass sich eine ganz normale Abfrage als Tabelle öffnet, den Parameter aber automatisch übergeben.

Ich hab's jetzt so gelöst, dass ich dem Parameter in der Abfrage sage in welchem Formular er steht. Also schaut die Abfrage zuerst mal ins Formular und geht dann in der Tabellenansicht auf.

Trotzdem würde es mich noch interessieren ob das auch andersrum geht.
Das mit dem Listenfeld klingt auch nach einer interessanten Variante. Kann ich da beliebig viele Spalten anzeigen und die Datensätze auch einfach editieren?

 

Code:

beliebig viele Splaten: ja
einfach editieren: einfach nicht!

 

Hi Leute,

ich bringe mal diesen Thread wieder hoch, weil ich das selbe Problem habe und keine Lösung finden kann.

Mache es genau so wie auf der donkarls Seite unter 6.16 nur mache ich am ende ein "qdf.Execute" (Ohne Recordset).

Dann bekomme ich aber die folgende Fehlermeldung:

"Eine Auswahlabfrage kann nicht ausgeführt werden"

Kann mir jemand helfen?

Mein Code:

Code:

 

Und genau das ist Blödsinn. Lies es von meinen virtuellen Lippen ab: Execute ist für Aktionsabfragen vorgesehen (s. Beitrag #2).

 

Verwende zum Anzeigen der Daten ein Formular (z.B. in Datenblattansicht) und übertrage die per qry.OpenRecordset erhaltene Recordset-Referenz auf das Form-Recordset
Code: