Access VBA, !!! |
Private Sub Town_AfterUpdate() Dim i, s, sel For Each i In Me.Town.ItemsSelected s = s & "," & Me.Town.Column(0, i) Next s = Mid(s, 2) sel = "SELECT .*, .[ ] FROM " _ & " INNER JOIN ON .[ ] = .[ ] where true " If Len(s) > 0 Then sel = sel & " and .[ ] in (" & s & ")" End If Me..Form.RecordSource = sel End Sub
: - FAQ |