Code:
Private Sub region_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("qryMultiSelect")
If Me!region.ItemsSelected.Count > 0 Then
For Each varItem In Me!region.ItemsSelected
strCriteria
Leave a comment: