Access form filter combo box

[Anoniem: 1092103]

In Access 2016 heb ik een form gebouwd met daarin 2 combo boxen.

Indien combo box 1 wordt gevuld, dan moeten de opties in combo box 2 gefilterd worden.

Nu gaat dat in principe prima met het "After Update" event en daar dan een VBA code.

De code is als volgt:

Private Sub Combo269_AfterUpdate()
Dim sTypeSource As String

sTypeSource = "SELECT [Type List].[ID], [Type List].[Brand], [Type List].[Type] " & _
"FROM [Type List] " & _
"WHERE [Brand] = " & Me.Combo269.Value
Me.Combo290.RowSource = sTypeSource
Me.Combo290.Requery

Waarbij Combo290 de 2e combobox is die moet worden gefilterd.

Echter moet de filter om de data in de table te vinden tussen ' staan.

Hoe krijg ik dit toegevoegd aan deze VBA code?

De output van dit is nu:

SELECT [Type List].[ID], [Type List].[Brand], [Type List].[Type] FROM [Type List] WHERE [Brand] = Alfa Romeo

En moet worden:
SELECT [Type List].[ID], [Type List].[Brand], [Type List].[Type] FROM [Type List] WHERE [Brand] = 'Alfa Romeo'

Je kan dus zien dat Alfa Romeo in dit voorbeeld tussen de ' moet staan om goed te selecteren.

Ik krijg eigenlijk overal in de code een foutmelding als ik simpelweg deze ' toevoeg op de plek:
"WHERE [Brand] = " & Me.Combo269.Value

Hopelijk kan iemand mij het verlossende antwoord geven zodat ik verder kan.

[Marber]

Je bouwt een string op met daarin je SQL statement, dus ben jezelf verantwoordelijk voor de correcte syntax.

In jouw geval is dit de oplossing:

code:

sTypeSource = "SELECT [Type List].[ID], [Type List].[Brand], [Type List].[Type] " & _
"FROM [Type List] " & _
"WHERE [Brand] = '" & Me.Combo269.Value & "'"

Beetje onduidelijk wellicht. Laatste regel is voor zien van een ' na de is (=), en achter de regel het volgende toegevoegd & '' ' "

[ Voor 16% gewijzigd door Marber op 06-07-2018 17:08 . Reden: spelfouten ]