-

   rss_sql_ru_access_programming

 - e-mail

 

 -

 LiveInternet.ru:
: 16.03.2006
:
:
: 4

:


Access VBA, !!!

, 01 2016 . 05:31 +
, , .
-- , " ".
-- , " " , .
-- , , , .
-- , -.

, , , . !!!

, , , ... :


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

http://www.sql.ru/forum/1240886/access-i-vba-pomogite


: [1] []
 

:
: 

: ( )

:

  URL