PDA

Vollständige Version anzeigen : Query/Abfrage öffnen


TomVision
23.03.2006, 09:06
Hallo

Ich möchte statt einer Tabelle eine Abfrage öffnen und zwar folgendermaßen:

Set tbSchul = CurrentDb.OpenRecordset("dataSchulabschluss")
so kann man ja schön seine tabelle öffnen

gibt es die gleich Funktion nur dass man halt eine Abfrage öffnet?

also so->

set qrySchul =currentdb.openquery("qrySchulabschluss")

das würde mir sehr weiterhelfen..

Smaug
23.03.2006, 09:14
Du kannst einem Recordset auch eine Abfrage anstelle einer Tabelle zuweisen.
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset ("qrySchulabschluss")

TomVision
23.03.2006, 09:19
hatte ich auch ausprobiert aber da hing es daran dass das eine feld einen bestimmten wert haben sollte.. diese bedingung hab ich jetzt rausgenommen und es funktioniert..

danke

Verdener80
23.03.2006, 09:35
Du kannst auch das Kriterium per Code übergeben...

Dim Db As Database
Dim Qd As QueryDef
Dim Rs As Recordset

Set Db = CurrentDb
Set Qd = Db.QueryDefs("Name_deiner_Abfrage")
Qd![Kriterium] = "gewünschtes Kriterium"
Set Rs = Qd.OpenRecordset()

TomVision
23.03.2006, 10:58
genau das wäre meine nächste Frage gewesen.. sehr schön dass dei Antwort schon hier stand..

DANKE DANKE DANKE