Please help,

I am trying to have my database open a form if one option from my combo box is selected.

I.E.

In the form "IncidentKind" I have a combo box called "IncidentKind", with multiple options. If the user selects FallofHeight, I want the Form "FallOfHeight" to open. I do not where I am going wrong, please help.

Jon Witts

Hi,

   This is easy. The combo box is capturing a primary key for the value FallOfHeight, I assume. I also assume the user selects a field from the combo box, and then clicks a button to open the other form. Is there already a form that is opened somehow?

   Anyway, you have to capture the value from the combo box, then check it in an If Then End If, like this:

(This example assumes that 1 is the PK for FallOfHeight.)

'==========
Private Sub btnYourButton_Click()
On Error GoTo Err_btnYourButton_Click

    Dim stDocName As String
    Dim intMyComboBox As Integer

    intMyComboBox = Me.MyComboBoxName

    If intMyComboBox = 1 Then
      stDocName = "frmFallOfHeight"
      DoCmd.OpenForm stDocName
    Else
      stDocName = "frmDefaultForm"
      DoCmd.OpenForm stDocName
    End If


Exit_btnYourButton_Click:
    Exit Sub

Err_btnYourButton_Click:
    MsgBox Err.Description
    Resume Exit_btnUserName_Click

End Sub
'=====

You can also add link criteria if you need to open to a specific record based on the combo box selection, or another combo box or text box selection.

HTH


mmcdonal

Hi,

   Sorry, I used MyComboBox as the name of the box you have called "IncidentKind."

   Also, you can put this on the combo box's After Update event, but I usually put this on a button's on click event, to give the user the option to open the next for or not.

HTH


mmcdonal

Thanks for your prompt reply. I think I see where I was going wrong, and I am going to try and impliment this in my database. I will let you know how it goes.

Jon Witts