Office: Abfrage über VBA erstellen und SPEICHERN

Hallo zusammen!

Ich möchte über ein Klickereignis in einem Formular eine neue Abfrage anlegen und speichern. Wenn ich mit dem untenstehenden Code dieses Ereignis ausführe, funktioniert das nur, wenn ich die Abfrage in einer EXTERNEN MDB-Datei anlege. Ich will diese aber in meiner geöffneten MDB-Datei anlegen. Das klappt aber nicht, weil ich diese geöffnete Datei nicht
sperren kann. (Das ist mir auch klar.)
Welche Syntax muss ich verwenden um die aktuelle (geöffente) MDB anzusprechen??



Dim dieseDB As Database
Dim Abfrage As QueryDef
Dim sqlstr As String

sqlstr= SELECT-Abfrage manuell über mehrere Kombifelder und Textfelder individuell zusammen gestellt.

Set dieseDB = OpenDatabase("c:\meinPfad\meineDB.mdb") ' Hier muss der Fehler liegen.
With dieseDB
Set Abfrage = .CreateQueryDef(Abfragename, sqlstr)
End With

Ich hoffe mir kann jemand helfen.

Gruss

EULE

:)

 

Auf die aktuelle DB greifst du mit CurrentDB zu!

Code:

Morli

 

Hallo Eule,
statt
Code:

sollte folgendes funktionieren
Code:

Geht's?

 

Versuch es mit

Code:

Wenn du mit derAbfrage nur Daten selektieren willst und dann wieder abfragen gibt es auch eine Möglichkeit nur eine Temp-Abfrage zu generieren die du dann wie eine Tabelle ansprechen kannst ohne eine Abfrage speichern zu müssen.

Wenn du wissen willst wie, einfach kurz melden!

mfg
s.koni

 

Hallo zusammen!

Es funktioniert!

@ s.koni : Eine Temp-Abfrage ist ausdrücklich nicht gewünscht. Aber vielleicht muss ich das später mal zurechtbasteln. Z.Zt. benötige ich dazu keine weiteren Infos!

Herzlichen Dank für eure Tipps!

Gruss

Eule