Goedemiddag,
Ik ben reeds verder met mijn database (met dank aan forum leden), maar nu wil ik een selectie (via formulier/keuzelijst) krijgen, waarbij ik gebruik maak van het geselecteerde en niet het resultaat "gebieds overstijgend" laat zien. Ik gebruik daarbij onderstaande code. Het volgende gebeurd:
Bij voorbaat dank voor de reacties!
Ik ben reeds verder met mijn database (met dank aan forum leden), maar nu wil ik een selectie (via formulier/keuzelijst) krijgen, waarbij ik gebruik maak van het geselecteerde en niet het resultaat "gebieds overstijgend" laat zien. Ik gebruik daarbij onderstaande code. Het volgende gebeurd:
- hij laat in de MsgBox "Gebieds overstijgend" zien (deze had ik even toegevoegd voor controle),
- maar als hij verder gaat met de code, dan plopt er een msgbox op met de vraag wat strGO is
- als ik vervolgens "Gebieds overstijgend" intyp, dan laat hij me het gewenste resultaat zien.
SQL:
Private Sub lstPerceel_Click()
Dim strSQL As String, strF As String, strGO As String
strGO = "Gebieds overstijgend"
MsgBox (strGO)
strSQL = "SELECT [Percelen-Gebieden].Id, [Percelen-Gebieden].Gebied, Percelen.Perceel, [Percelen-Gebieden].Perceel_ID FROM Percelen " _
& "INNER JOIN [Percelen-Gebieden] ON Percelen.Perceel_ID = [Percelen-Gebieden].Perceel_ID " _
& "WHERE (([Percelen-Gebieden].Gebied)<>srtGO) AND (Percelen.Perceel_ID)=" & Me.lstPerceel.Value
Me.lstGebied.Value = Null
lstGebied.RowSource = strSQL & strF
End Sub
Bij voorbaat dank voor de reacties!