Отфильтровать подчиненную форму с помощью выпадающего списка

Question

Это заняло у меня почти 2 недели, и я не знаю, что еще делать. У меня есть основная форма (UserSearch), которая имеет подчиненную форму (TestUserSub). Связанная таблица для обеих форм - tblusers. очень просто; в основной форме (UserSearch) у меня есть ComboBox, связанный с полями в tblusers, например, cmbid, cmbname, cmbdept и так далее. Все, что я хочу, это чтобы пользователь сделал выбор из любого из этих комбинированных списков и чтобы связанные поля отображались в подчиненной форме (TestUserSub). Я пробовал несколько разных версий кода в событии после обновления в нескольких ComboBox, и в подчиненной форме ничего не происходит, или в других случаях я получаю сообщение об ошибке. Один из примеров, который я пробовал, - это фильтрация при запуске команды SQL

Private Sub cmbid_AfterUpdate()

    Dim strSQL As String

    If IsNull(Me.cmbaccess) Then
        Me.RecordSource = "tblusers"
    Else
        strSQL = "SELECT tblUsers.[Team Member_ID] FROM tblUsers " & _
             "WHERE (((tblUsers.[Team Member_ID])= " & [form_testusersub].[txtid2]))& ";"       
        Me.RecordSource = strSQL
    End If

End Sub

Выше не сработало ... Может кто-нибудь, пожалуйста, помогите мне с этим. У меня есть пример базы данных, над которой я работал, и каким-то очень странным образом им удалось сделать то же самое без вызова какого-либо кода. Это возможно?

Answer 1

Я смог выяснить код, используя образец ниже

Private Sub yourcombobox_AfterUpdate()
    Dim LSQL  As String

    If IsNull(Me.yourcombobox.Value) Then
        Form_yoursubform.RecordSource = "tablename"
        Me.yoursubform.Requery
        requerysubform 'macro to requery the whole form
    Else
        LSQL = "select * from tablename"
        LSQL = LSQL & " where field= '" & yourcombobox & "'"

        Form_yoursubform.RecordSource = LSQL
        requerysubform 'macro to requery the whole form

    End If
End Sub

надеюсь, это поможет.