query-problemen

[so10070]

Ik heb de volgende VBA-code

Dim QRY_1 As String
Dim Gekozen_(7) As String
Gekozen_(7) = Form!Gekozen_7
QRY_1 = "SELECT * FROM TabelTijdelijkGegevensbladProjecten WHERE TabelTijdelijkGegevensbladProjecten.Divisie = " & Gekozen_(7)
MsgBox QRY_1, vbExclamation, "Gelukt?"
DoCmd.OpenForm "0FormulierTest", acFormDS, QRY_1, , acFormReadOnly

Het vreemde is dat de query niet selecteert op de waarde Gekozen_(7) in de QRY_1. De query QRY_1 geeft de waarde niet als een string. De messagebox geeft dit als volgt weer:
- SELECT * FROM TabelTijdelijkGegevensbladProjecten WHERE TabelTijdelijkGegevensbladProjecten.Divisie = DKO, ipv
- SELECT * FROM TabelTijdelijkGegevensbladProjecten WHERE TabelTijdelijkGegevensbladProjecten.Divisie = "DKO"

Hoe los ik dit op

 

[OctaFish]

De query behandelt je variabele ook niet als string. Dat moet je zelf opgeven. Is Gekozen_(7) een matrix met 8 dimensies? Want ik zie je geen andere dimensies vullen dan de laatste. Maar dat staat los van je vraag...

QRY_1 = "SELECT * FROM TabelTijdelijkGegevensbladProjecten WHERE [Divisie] = '" & Gekozen_(7) & "'"

Maakt er wél een string van.

 

[so10070]

thanks!

 

[OctaFish]

Kan de vraag op <Opgelost>!

 

[so10070]

Zeker, doe ik.