Button action depending on combobox value

[Mattbro]

Hi all,


I am wondering-I have a form 'FrmData' linked to a table-'TblData'. On this form are textboxes and comboboxes for entering various information such as name, date etc. A combobox on the form ‘ComboColour’ has a dropdown list of several options. E.g.
‘Reason1-Red’
‘Reason2-Blue’
‘Reason3-Green’
This is linked to the TblDataField [Reason]. When the fields are filled, FrmData has a button ‘Command31’ which on_click, opens a report ‘RejectReport’ based on the data entered.

Could I code for a different report, say ‘RejectReport2’ to open, if the selection in ComboColour was ‘Reason1-Red’? I am looking at an if-then-else loop, but I am not sure how to link a selection from one control to the action of another. I’ve started with:

 
Private Sub Command31_Click()
Dim Reason as String
If Reason=" Reason1-Red " then DoCmd.openReport "RejectReport2", acPreview 
Else DoCmd.OpenReport "RejectReport", acPreview
End If
End Sub

I can see that the declaration is in the wrong place, but coding is not my forte and I am unsure what to do. Any pointers?
Thanks,
Mattbro

[ItsMe]

Have your If Then Else statement evaluate the combo.


Something Like...

If Me.ComboBoxName.Value = "Red" Then
    DoCmd.OpenReport "RejectReport", acPreview
    
ElseIf Me.ComboBoxName.Value = "Blue" Then
    DoCmd.OpenReport "RejectReport1", acPreview
    
ElseIf Me.ComboBoxName.Value = "Green" Then
    DoCmd.OpenReport "RejectReport2", acPreview
    
Else
    MsgBox "Please make a selection before opening the report"
    Me.ComboBoxName.SetFocus
    Me.ComboBoxName.Dropdown
End If

You could also consider a Case Select statement when there are 3 or more options.

[Mattbro]

Aha. That will do nicely. Thanks for the info, ItsMe!
M

[Missinglinq]

Also note that you can do away with the Command Button, if you want, and simply place the code in the AfterUpdate event of the Combobox, itself.

Linq ;0)>