listbox met selectie uit tabel

[rieskedebiker]

Goedemorgen,

Ik wil met vba in Word een formulier met daarin listbox waar alle klanten uit een bepaald postcode gebied komen te staan
De klantgegevens haal ik uit access en roep de gegevens volgens onderstaande regels aan

Sub klanten(ByVal Lnd As String)

SQL = "SELECT Bedrijfsnaam,Woonplaats,Adres,Postcode FROM TblKlanten WHERE Postcode='49*'

On Error Resume Next
Set rs = databaSe.Execute(SQL)
If Err Then MsgBox Err.Description

FrmOfferte.CboKlant.ColumnCount = 4
Dim a(0 To 7000, 0 To 4)
i = 0
Do
For j = 0 To rs.Fields.Count - 1
a(i, j) = rs.Fields.Item(j).Value
Next j
rs.MoveNext
i = i + 1
Loop Until rs.EOF
FrmOfferte.CboKlant.List = a

End Sub

De listbox laat geen selectie van al onze klanten waarvan de postcode begint met 49 zien
Verander ik '49*'in b.v. '4941VL' dan werkt het wel.

Kan iemand mij vertellen wat ik fout doe
Alvast bedankt

 

[QueenMan]

Verander de SQL als volgt:

SQL = "SELECT Bedrijfsnaam,Woonplaats,Adres,Postcode FROM TblKlanten WHERE Postcode like '49%'"

Wanneer de een gedeelte van de string wil selecteren kies dan altijd LIKE en de te zoeken waarde met % aanvullen. Wanneer de string ook ergens in het midden mag staan dan ook de string vooraf laten gaan door %.