Как поменять источник данных(RecordSource) Combo Box…?

[huron]

Как поменять источник данных(RecordSource) Combo Box…?

Я пробую делать так: Но неполучается…

If Me.[Combo1] = "All books" Then
Forms![Form1]!Combo3.RecordSource = "Query1"
Else
Forms![Form1]!Combo3.RecordSource = "Query2"
End If

Но неполучается…

[Eugene-LS]

Сообщение от huron

Но неполучается

Со свойством немного ошиблись, у ComboBox это RowSource (Источник Строк (не записей))
Попробуйте так:

Private Sub Combo1_AfterUpdate()
On Error GoTo Err_Combo1_AfterUpdate
    If Me.Combo1.ListIndex > -1 Then
        Me!Combo2.Enabled = True
        Me!Combo2.SetFocus
    Else
        Me!Combo2.Enabled = False
    End If
    
    Me!Combo2 = Null
    Me!Combo2.Requery

    If Me.Combo1 = "All books" Then
        Me.Combo3.RowSource = "Query1"
    Else
        Me.Combo3.RowSource = "Query2"
    End If


Exit_Combo1_AfterUpdate:
    Exit Sub

Err_Combo1_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_Combo1_AfterUpdate
    'EnableControls Me, acDetail, True
End Sub