VB RowSource code probleem

[HoLo]

Beste mensen,

Wie kan mij helpen?
Op het moment ben ik een database aan het maken in Access (gedeeltelijk)
Een gedeelte moet in VB gebeuren waar ik grotendeels nog wel uitkom alleen nu wil in een RowSource importeren na een afterUpdate.
Dit doe ik door:

Private Sub Combo2_AfterUpdate()
Me.List105.RowSource =
"
SELECT DISTINCT [klanten].[Organisatie_Naam]
FROM klanten
WHERE (
IIf(
[forms].[form3].[Combo163]=" * ALL * " ,
(([klanten].[Organisatie_Naam]) Is Not Null),
[forms].[form3].[Combo163]=[klanten].[PC_Nummer]
)
)
ORDER BY [klanten].[Organisatie_Naam];
"

Dit kan niet vanwegen de " ", hoe kan ik dit oplossen??
Iets van een teken er voorzetten of zo? (kan ik java in ieder geval)

Alvast bedankt.
HoLo

 

[MethinX]

al geprobeerd backslashes voor de dubbelquotes te zetten?

\"..........\"

 

[joost verdaasdo]

Hai,

In VBA moet je SQL als één string aanbieden!

Dit kun je doen door de string in zijn geheel achter elkaar te zetten maar dan moet je nogal naar rechts scrollen om de gehele string te lezen..

Wil je net als jou de string leesbaar opschrijven over meerdere regels dan moet je de string opdelen in losse strings (omringt door " ") en je moet de Underscore "_" (line continuation character) gebruiken om een regel toe te mogen voegen in de string.. (anders protesteert de editor)

Verder zijn er nogal behoorlijk wat regels met betrekking tot samenstellen van een (access) SQL string in de Editor..(zoek ook even op google)

Zelf stel ik de string altijd samen en roep hem even op in een msgbox zodat ik kan zien of alle spaties e.d. goed staan..

Ik heb niet naar de SQL gekeken maar alleen maar zodanig veranderd dat de Editor het pikt:

Sub SQLString()
Dim sString As String

sString = "SELECT DISTINCT [klanten].[Organisatie_Naam] FROM klanten " & _
                "WHERE (IIf([forms].[form3].[Combo163]=" & " * ALL * " & _
        ",(([klanten].[Organisatie_Naam]) Is Not Null),[forms].[form3].[Combo163] " & _
"= [klanten].[PC_Nummer])) ORDER BY [klanten].[Organisatie_Naam];"

    MsgBox sString
End Sub

Succes! :thumb:

 

[HoLo]

Idergeval thank voor je reactie.
Dat alles achter elkaar moest wist ik. en dat gaat nogmaal ook goed. alleen hij accepteerd "*ALL*" niet.
In me andere Rowsource doet ie het wel.

Heb het nu met een vergelijking gedaan. *ALL* in een textField gezet als vaste waarde. en doet het nu wel.
/ doet is ook niet BTW


Mensen bedankt voor de moeite.

Groete HoLo

 

[joost verdaasdo]

Hai,

Ah ok dat was dus een misverstand..nou goed je bent eruit en dat telt!

Zet jij deze nog even op afgehandeld? :thumb: