Hallo allemaal,
Wie kan mij helpen:
Ik heb een formulier waarin ik twee listboxen heb en een button. Eén listbox (lstTransponder) gebruik ik om data weer te geven en de 2e listbox (lstCategory) gebruik ik om lstTransponder te filteren.
Nu werkt dat met onderstaande code prima, maar wat ik wil is dat ik juist NIET in lstTransponder wil zien wat ik in lstCategory selecteer.
Of te wel de code "<>" moet er in in combinatie denk ik met AND, maar ik krijg het niet voor elkaar.
Wie kan me helpen?
Wie kan mij helpen:
Ik heb een formulier waarin ik twee listboxen heb en een button. Eén listbox (lstTransponder) gebruik ik om data weer te geven en de 2e listbox (lstCategory) gebruik ik om lstTransponder te filteren.
Nu werkt dat met onderstaande code prima, maar wat ik wil is dat ik juist NIET in lstTransponder wil zien wat ik in lstCategory selecteer.
Of te wel de code "<>" moet er in in combinatie denk ik met AND, maar ik krijg het niet voor elkaar.
Wie kan me helpen?
Code:
Private Sub btnQuery_Click()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim varItem As Variant
Dim strCriteria As String
Dim strSQL As String
Set db = CurrentDb()
Set qdf = db.QueryDefs("Query1")
For Each varItem In Me!lstCategory.ItemsSelected
strCriteria = strCriteria & ",'" & Me!lstCategory.ItemData(varItem) & "'"
Next varItem
If Len(strCriteria) = 0 Then
MsgBox "You did not select anything from the list" _
, vbExclamation, "Nothing to find!"
Exit Sub
End If
strCriteria = Right(strCriteria, Len(strCriteria) - 1)
strSQL = "SELECT * FROM tbl_Transponder " & _
"WHERE tbl_Transponder.AIRLINE <>" & strCriteria & " ORDER BY datum;"
qdf.SQL = strSQL
DoCmd.Requery "lstTransponder"
Set db = Nothing
Set qdf = Nothing
End Sub