How to change the data source (RecordSource) Combo Box...?

[Huron]

How to change the data source (RecordSource) Combo Box...?

I try to do this:

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

But it won't work…

[Minty]

Make sure that your combo1 is returning the value you think it is, add a debug;

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

[moke123]

combos have rowsources, not recordsources

Since you are in the form module you can use the Me. keyword

Me.Combo3.rowsource = ...

[Huron]

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

Not work...

[davegri]

Use this code. In addition to other errors, your error handler setup prevented the pertinent code from being in the execution path.

Private Sub Combo1_AfterUpdate()
    On Error GoTo Error_Handler
    Me!Combo2.Enabled = True
    Me!Combo2 = ""

If Me.[Combo1] = "All books" Then
        Me.Combo3.RowSource = "Query1"
        Me!Combo4.Visible = False
    Else
        Me.Combo3.RowSource = "Query2"
End If

Error_Handler_Exit:
    On Error Resume Next
    Exit Sub
Error_Handler:
    Select Case Err
        Case Else
            MsgBox "Error " & Err.Number & " (" & Err.Description & ")", vbExclamation, "Error in Sub Combo1_AfterUpdate of Form_Form1"
    End Select
    Resume Error_Handler_Exit
    Resume
End Sub

[mike60smart]

Hi Huron

Would suggest that the Form that opens on Startup is a better option.

[Bob Fitz]

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

Not work...

"Not work" doesn't give us much to help you with.
What doesn't work?
Where have you put the code?
Does it run?
What do you have as the Row Source property of Combo3?

[Huron]

Thank you very much... This code run properly...

[davegri]

You're welcome; and thanks for the star.

[Welshgasman]

Crossposted https://www.access-programmers.co.uk...file-post-4288