Using option group to open form with command button

[iainmid]

I have an option group with two options form1 and form2. What do i have to do to use a command button to open form1 or form2 depending on the selection from the option group.

 

[boblarson]

If your option group values are 1 and 2 and your forms are named form1 and form2 then you could just use

   DoCmd.OpenForm "form" & Me.YourOptionGroupNameHere

Otherwise you can do this

Dim strForm As String

If Me.YourOptionGroupNameHere = 1 Then
      strForm = "YourForm1NameHere"
Else
      strForm = "YourForm2NameHere"
End If
DoCmd.OpenForm strForm

 

[iainmid]

This is the code i have tried to use on click on the command button but a compile error keeps occuring

Private Sub Command9_Click()
Dim strForm As String
If Me.ReportOptions = 1 Then
strForm = "Contacts"
Else
strForm = "Main Menu"
End If
DoCmd.OpenForm strForm
End Sub

 

[missinglinq]

Is your Option Group actually named ReportOptions? I ask this because the Option Group Wizard is kind of tricky in that it asks you to enter a Caption for it, but this is exactly what it is, a Caption for display! Unless you go into Properties and change it, the actual name of the control will remain whatever Access assigns to it, something like FrameN, where N is a number. If ReportOptions is actually only the Caption, Me.ReportOptions = 1 will bomb!

 

[iainmid]

I've checked the name and it seems to be correct. i've uploaded an example of what im doing if you can see where im going wrong

 

[Kiwiman]

Howzit

The name of the frame control is called frame2, you have a label called ReportOptions

your code should be

Private Sub Command9_Click()
Dim strForm As String
If Me.frame2 = 1 Then
strForm = "Contacts"
Else
strForm = "Main Menu"
End If
DoCmd.OpenForm strForm
End Sub

 

[iainmid]

Cheers for that it seems to have worked. What would the code be if i was to add another value to the option box. i had hoped it might be something like this but this doesn't work

Private Sub Command9_Click()
Dim strForm As String
If Me.ReportOptions = 1 Then
strForm = "Contacts"
If Me.ReportOptions = 2 Then
strForm = "Main Menu"
Else
strForm = "Reports"
End If
DoCmd.OpenForm strForm
End Sub

 

[Kiwiman]

Howzit

I would use a Select case statement

Private Sub Command9_Click()
Dim strForm As String

Select Case Me.Frame2
    Case Is = 1
        strForm = "Contacts"        ' Open contracts form
    Case Is = 2
        strForm = "Main Menu"       ' Open main form
    Case Is = 3
        etc                         ' open another form
    Case Else
        'something else             ' something else
End Select
        
DoCmd.OpenForm strForm              ' Open required form
    
    
End Sub

 

[Kiwiman]

Howzit

Doing it the If else way would be something like

Private Sub Command9_Click()

Dim strForm As String

If Me.Frame2 = 1 Then
    strForm = "Contacts"
ElseIf Me.Frame2 = 2 Then
    strForm = "Main Menu"
Else
    strForm = "Reports"
End If

DoCmd.OpenForm strForm

End Sub

 

[iainmid]

Cheers
How do i code it so that the first two options open a form and the third option opens a report

 

[Kiwiman]

Howzit

You can have

Private Sub Command9_Click()
Dim strForm As String

Select Case Me.Frame2
    Case Is = 1
        strForm = "Contacts"                            ' Open contracts form
    Case Is = 2
        strForm = "Main Menu"                           ' Open main form
    Case Is = 3
        strdocname = "rptReport"                        ' Open report
    Case Else
        'something else                                 ' something else
End Select
        
        
Select Case Me.Frame2
    Case Is = 1, 2
        DoCmd.OpenForm strForm                          ' Open required form
    Case Is = 3
        DoCmd.OpenReport strdocname, acViewPreview      ' Open Report in preview mode
        'DoCmd.OpenReport strdocname                     ' Print report
    Case Else
        ' something else
End Select
   
End Sub

or

Private Sub Command9_Click()
Dim strForm As String

Select Case Me.Frame2
    Case Is = 1
        strForm = "Contacts"                            ' Open contracts form
        DoCmd.OpenForm strForm                          ' Open required form
    Case Is = 2
        strForm = "Main Menu"                           ' Open main form
       DoCmd.OpenForm strForm                          ' Open required form
    Case Is = 3
        strdocname = "rptReport"                        ' Open report
        DoCmd.OpenReport strdocname, acViewPreview      ' Open Report in preview mode

    Case Else
        'something else                                 ' something else
End Select
        
End Sub

 

[iainmid]

Cheers thanks a lot for your help