Et par ideer: Jeg antager, at du selv er klar over, hvordan din SQL query-streng burde se ud. Jeg kan anbefale, at du bygger den op i en temporær variabel, som du kan vise på skærmen med MsgBox før du går i databasen. Herved kan du kontrollere, at forespørgslen er opbygget korrekt. Noget i retning af:
Dim strTmp as String
strTmp = \"SELECT * from [qvis] WHERE [avance %]\" & Me!Combo16 & \" And [kundenr] = \" & Me!Combo18
MsgBox strTmp
CurrentDb.QueryDefs(\"qvis-1\").SQL = strTmp
Nu er jeg klar over, at dette eksempel er et af dem, der ikke vil virke. Det tjener dog til at illustrere teknikken, og en af de ting, du skal være særlig opmærksom på, er om SELECT-kommandoen i sig selv skal indeholde anførselstegn. Eftersom en tekststreng starter og slutter med anførselstegn, skal man skrive to anførselstegn for at få et anførselstegn inkluderet i tekststrengen. Eksempel:
MsgBox \"Nu kommer et anførselstegn: \"\" (tekst efter anførselstegnet)\"
Det er ikke noget der skal vises ved start eller lign idet brugeren kun skla vælge ud fra en formular med de omtalte kombobokse.
Jeg troede egentlig det var rimeligt simpelt at tilføje en AND i et sql script også når dette blev kørt fra VBA,men åbenbart ikke. Ideen med at jeg vil køre det fra VBA er desuden at man der kan få access til at acceptere wildcards som < > <> = osv. hvis jeg lavede tilsvarende i en udtryksgenerator ville dette ikke fungere.
JEg beklager at måtte afvise dig igen, men jeg har desværre ikke fået løst problemet. måske kunne du fortælle hvor de extra \"\" skulle anføres i scriptet for at agere textstreng
CurrentDb.QueryDefs(\"qvis-1\").SQL = \"SELECT * from [qvis] WHERE [avance %]\" & Me!Combo16 & \" And [kundenr] like Combo18\"
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
