DB query op basis van een cel in VB met Excel

[Verwijderd]

Hallo,

Ik zit met het volgende probleem:

Wij hebben een database, waar we een aantal gegevens ophalen doormiddel van een databasequery in Excel. Nu wil ik een macro ontwerpen waarmee ik op basis van een cell gegevens kan ophalen uit de database. De cell is dus eigenlijk de 'criteria' van mijn query.

Dus bijvoorbeeld

D1 = 411

Dan moet in de database de regels te voorschijn komen met daarin 411.

Ik heb zelf al de Query opgenomen, maar daarin kan ik niet aangeven dat de query op basis van die cell moet. (Inkoop.referentie Like '% 411 %'))")

Kan iemand mij hiermee helpen?

Groeten,

Stefan

[onkl]

Zet je macrorecorder aan, maak de query terwijl je een random iets (wel onthouden) invult als criterium.
Vervolgens kijk je naar de code voor je macro.Daarin zie je wat je hebt ingevuld in platte tekst.
(Ik pluk even een voorbeeld uit de helptekst van VBA)

With qtQtrResults
.CommandType = xlCmdSQL
.CommandText = _
"Select ProductID From Products Where ProductID < 10"
.Refresh
End With

De parameters zullen ergens bij commandtext staan.
Vervang die code door

Dim commando as String
commando = chr(34)&"Select ProductID From Products Where ProductID < "&Activeworkbook.Sheets("jesheetnaam").Range("D1").Value&chr(34)
With qtQtrResults
.CommandType = xlCmdSQL
.CommandText = commando
.Refresh
End With

(chr(34) geeft een dubbel aanhalingsteken.)

[Verwijderd]

Het werkt!

Hartstikke bedankt voor de hulp.

Groeten,

Stefan