|
Private Sub _AfterUpdate() Dim s s = "select , ,,, , from 1 where ='" & Me..Column(0) & "'" Me..RowSource = s
Private Sub 74_AfterUpdate() Dim s1 s1 = "select Name from 3 " Me.74.RowSource = s1
Private Sub _AfterUpdate() Dim s s = "select , ,,, , from [b]Me.74[/b] where ='" & Me..Column(0) & "'" Me..RowSource = s