Office: Parameterabfrage in VBa

Hallo,
ich möchte eine Parameterabfrage mittels VBa öffnen, also mit
docmd.openquery (abfragename)
Ich möchte aber nicht, dass er mich nach dem Parameter fragt, sondern den Parameter übergeben (je nach Ergebnis des vorablaufenden Programms).
Hat jemand eine Idee?
Danke Lilli

:)

 

Hallo Lilli,

warum erstellst Du dir die Abfrage nicht direkt in VBA?

Dim db as DAO.Database
Dim qry as DAO.Querydef
Dim rst as DAO.Recordset

Set db=CurrentDB()
Set qry = db.CreateQueryDef("qryName","Select....;")
Set rst=qry.OpenRecordset()



In diese Abfrage kannst Du durchaus Variablen einbauen, allerdings werden sie nicht direkt in den SQL-String reingeschrieben sondern als String mit '&' zusammengesetzt:

"Select...
WHERE ((Tabelle.Feld)>= " & Variable1 & " AND (Tabelle.Feld2)

 

Hallo Heiko,
ich habe folgenden code, aber es kommt die Fehlermeldung "fehlender Operator"
Weisst Du was fehlt?
Danke lilli

 

würde folgendes machen:

Code:

erspart auch das separate ausschalten der bestatigung bei aktionsabfragen

 

\@Hütti: Wenn's nun aber eine Auswahlabfrage ist, keine Aktionsabfrage?


Der mit DoCmd.OpenQuery geöffneten oder zu öffnenden Abfrage kann kein Parameter übergeben werden. Parameter in VBA können wiederum nur einer query übergeben werden, deren Ergebnis einem Recordset zugewiesen wird. Das kann man bekanntlich nicht sehen.

Wenn es eine allgemeine Lösung sein soll, so würde ich eine eigene Funktion dafür schreiben, auf die in der Abfrage zugegriffen wird. Beispiel:

Irgendein Modul...
Code:

Die Abfrage "Personen" sähe z.B. so aus:

SELECT * FROM Tabelle WHERE [Name]=GetParameter(1) AND [Vorname] = GetParameter(2) AND [Alter]=GetParameter(3);

Aufzurufen wäre das dann so:

arrParam(1) = "''Trowitzsch'"
arrParam(2) = "'Sascha'"
arrParam(3) = 18
DoCmd.OpenQuery "Personen"


Ciao, Sascha

 

ich möchte den bericht eines bestimmten datensatzes per paramerterabfrage öffnen

wie gehe ich hier vor?