Acces tabel niet beschikbaar en query

[Turfje]

Ik heb een database met 4 gekoppelde tabellen (excel). Deze excel documenten staan op beveiligde schijven.
Het probleem is nu dat de gebruikers van de database niet allemaal rechten hebben op die beveiligde schijven. Dit geeft problemen in mijn Samenvoeg queries als 1 van de 4 tabellen maar benaderbaar is.

Is dit op te lossen met bijvoorbeeld een

On Error Goto...

of een andere manier??

Kleine update. Wat misschien een mooiere oplossing zou zijn, is als ik in mijn Union query kan verwijzen naar een variabele tabel waarbij die tabel weer gedefinieerd word door de invoer in een vorig formulier.

Dit is de werkende query:

SELECT Achternaam, Voornaam, Functie
FROM Amsterdam
UNION SELECT Achternaam, Voornaam, Functie
FROM Rotterdam;

en zo zou ik hem willen hebben (maar kan de syntax niet achterhalen!)

SELECT Achternaam, Voornaam, Functie
FROM [textbox1]
UNION SELECT Achternaam, Voornaam, Functie
FROM [textbox2];

wie weet de oplossing???

alvast bedankt

 

[Tardis]

Hallo Turfje,

je zult of je bestanden moeten importeren of iedereen de nodige rechten geven.

Groet,

Tardis

 

[Turfje]

Da's jammer. Kan je in een query echt niet verwijzen naar de invoer uit een textbox?
Dat had wel handig geweest...

Bedankt in elk geval Tardis!

 

[Bartuls]

Het kan wel, dan moet je de query dynamisch opbouwen in VBA (Visual Basic for Applications). Dan moet je dus gaan programmeren.
Je moet dan een SQL statement opbouwen. Dat SQL statement kun je dan opslaan in de query.

schematische code:

Dim strSQL As String
Dim db As Database

strSQL = "SELECT etc."

Set db = CurrentDb()
db.QueryDefs("JouwQueryNaam").SQL = strSQL
Set db = Nothing

 

[Turfje]

Het kan wel, dan moet je de query dynamisch opbouwen in VBA (Visual Basic for Applications). Dan moet je dus gaan programmeren.
Je moet dan een SQL statement opbouwen. Dat SQL statement kun je dan opslaan in de query.

schematische code:

Dim strSQL As String
Dim db As Database

strSQL = "SELECT etc."

Set db = CurrentDb()
db.QueryDefs("JouwQueryNaam").SQL = strSQL
Set db = Nothing

ok, dat ziet er pittig uit. Maar waar in deze statement wordt nu naar mijn invoer uit een textbox gerefereerd? Ik zie dat even niet zo snel.

 

[Guus2005]

in de etc.

 

[Bartuls]

strSQL = "SELECT Achternaam, Voornaam, Functie "
strSQL = strSQL & "FROM " & cStr(me.[textbox1]) & " "
strSQL = strSQL & "UNION SELECT Achternaam, Voornaam, Functie "
strSQL = strSQL & "FROM " & cStr(me.[textbox2]) & ";"

En ja: hiervoor zul moeten programmeren. Het zal dus behoorlijk wat ingewikkelder worden.

 

[Turfje]

strSQL = "SELECT Achternaam, Voornaam, Functie "
strSQL = strSQL & "FROM " & cStr(me.[textbox1]) & " "
strSQL = strSQL & "UNION SELECT Achternaam, Voornaam, Functie "
strSQL = strSQL & "FROM " & cStr(me.[textbox2]) & ";"

En ja: hiervoor zul moeten programmeren. Het zal dus behoorlijk wat ingewikkelder worden.

ok, erg mooi! Ik begin te begrijpen wat de bedoeling is. Bedankt, ik ga ermee verder.