Egenskaben Destinationsdatabase for en forespørgsel

Jeg skal også sætte Destinationstabel. :(

Disse 2 egenskaber er blot en del af forespørgslens SQL.
Denne kan du ændre således:

Dim db as Database
Dim qdef as Querydef
Set db = Currentdb
Set qdef = db.Querydefs("Din forespørgsel")
qdef.SQL = "INSERT INTO [ny tabel] IN 'C:\Dokumenter\Dindb.mdb' SELECT FROM [Din tabel];"

Den kortere:
currentdb.querydefs("Din forespørgsel").SQL = "INSERT INTO [ny tabel] IN 'C:\Dokumenter\Dindb.mdb' SELECT FROM [Din tabel];"

Begge kræver en reference til Microsoft DAO

Den var godt nok kryptisk! (men det er jo også fredag!) :)
Ser om jeg kan hitte ud af hvad du mener...

Hvad med et eksempel? ;)
Lad os sige at jeg vil ændre destinationsdatabasen for forespørgslen qryMyQuery til databasen C:\MyDatabase

Det kræver stadig 2 parametre mere: tabellen, som der hentes fra og tabellen i C:\MyDatabase.mdb

currentdb.querydefs("qryMyQuery ").SQL = "INSERT INTO [Tabel i MyDatabase] IN C:\MyDatabase.mdb' SELECT FROM [Din tabel denne database];"

Jamen, det er jo lige hvad jeg er ude efter.
Takker mange gange.
Så skal jeg bare hamre en formel sammen med en knap på, så VedKlik ændres Destinationstabel og database for alle de ønskede forespørgsler. KANON!

:o)

Disse 2 egenskaber er som sagt ikke 'rigtige' egenskaber. Langt de fleste af egenskaberne i egenskabsarket resulterer blot i ændringer i SQL'en på samme måde.

De 'rigtige' egenkaber (f.eks. egenskaben SQL, som vi brugte herover) refererer du til på samme måde:

Msgbox currentdb.querydefs("qryMyQuery").Name

Prøv selv at skriv:
Msgbox currentdb.querydefs("qryMyQuery") efterfulgt af punktum, hvorved listen over egenkaber og metoder kommer frem (de grønne er metoder = handlinger)

Hmm....får dog en fejl i INSERT INTO sætningen...

hmm, jeg kan se, at jeg glemte et ' i mit sidste eks. Den skal se således ud:
currentdb.querydefs("qryMyQuery ").SQL = "INSERT INTO [Tabel i MyDatabase] IN 'C:\MyDatabase.mdb' SELECT FROM [Din tabel denne database];"

Hjælper det?

Du kan du også bare lave din forespørgsel på alm. vis og derefter gå i SQL og se hvordan den skal se ud...

Det hjalp ikke med '
Nå ja, når det bare er en tekststreng der bliver "tilføjet" forespørgslen, så er der jo ingen ko på isen.

Hmmm...et eller andet sted går det galt:
Mine forespørgsler indeholder i hvert fald ikke noget bagefter...! :(

Men de 2 egenskaber er ændret.....

Hvordan ser din kode ud?

SQL'en i forespørslen:
SELECT * INTO MinTabel IN 'C:\MinDatabase.mdb'

VBA koden:
CurrentDb.QueryDefs("qryOverførMinTabel").SQL = "INSERT INTO MinTabel IN 'C:\MinDatabase2.mdb' * FROM MinTabel;"

CurrentDb.QueryDefs("qryOverførMinTabel").SQL = "INSERT INTO MinTabel IN 'C:\MinDatabase2.mdb' SELECT * FROM MinTabel;"

(der manglede lige en SELECT - ret vigtig :)

Det var min typo, der ER en SELECT i den faktiske kode....

Efter jeg har afviklet koden står der følgende i forespørgslen:

INSERT INTO MinTabel IN 'C:\MinDatabase2.mdb'
SELECT *
FROM MinTabel;

Forespørgslen får altså overskrevet sit indhold med det der står i VBA koden.

Meningen var at jeg ville have erstattet
SELECT * INTO MinTabel IN 'C:\MinDatabase.mdb'
med
SELECT * INTO MinTabel IN 'C:\MinDatabase2.mdb'
uden dog at skulle skrive indholdet af forespørgslen i VBA koden

Med den sidste linie mener jeg, at den faktiske forespørgsel er en DEL mere kompliceret end mit eksempel (selvfølgelig)

Ja, det er et problem, som jeg ofte støder på i andre sammenhænge. :o(

Jeg plejer gerne at have en skabelon-query, som jeg går ud fra. I dette tilfælde kunne den have SQL'en:
SELECT * INTO MinTabel IN 'C:\dummy.mdb'
og måske hedde: "qryOverførMinTabel_Skabelon"
Herefter kører jeg så bare denne linie:
CurrentDb.QueryDefs("qryOverførMinTabel").SQL = replace(CurrentDb.QueryDefs("qryOverførMinTabel_Skabelon").SQL, "'C:\dummy.mdb'", "'C:\MinDatabase2.mdb'")

Ok, DET kan jeg bruge til noget. Tak.

:o)