Option group with command button

[raphael99]

Hi. I'm using option group with value 1 and value 2 with a command button to open two different forms.
This is the code:

 Private Sub Command9_Click()
Dim strForm As String

Select Case Me.Cornice0
    Case Is = 1
        strForm = "FRMMeseCorrentePrestazioni"                            ' Open contracts form
        DoCmd.OpenForm strForm                           ' Open required form
    Case Is = 2
        strForm = "FRMMesePrecedentePrestazioni"                           ' Open main form
       DoCmd.OpenForm strForm                          ' Open required form
End Select
        
End Sub

I would like to close form's option group once clicked the command button after the opening of the requested value form.
I tried Docmd.close but all I get is the option group no more working

 

[raphael99]

I add Docmd.Close here :

 Private Sub Command9_Click() 

Dim strForm As String  Select Case Me.Cornice0     

Case Is = 1     strForm = "FRMMeseCorrentePrestazioni"     ' Open contracts form         DoCmd.OpenForm strForm                                           ' Open required form   Case Is = 2   strForm = "FRMMesePrecedentePrestazioni"   ' Open main form        DoCmd.OpenForm strForm                    ' Open required form End Select      
 [SIZE=4][B]Docmd.Close[/B][/SIZE] 
End Sub

But not open any form and does not close the option group form

 

[gemma-the-husky]

not sure abnouit the "is"
I normally do this sort of thing

 Dim strForm As String

on error goto fail
Select Case Cornice0
Case 1:
strForm = "FRMMeseCorrentePrestazioni" 
Case 2:
strForm = "FRMMesePrecedentePrestazioni" 
End Select

DoCmd.OpenForm strForm ' Open required form
docmd.close acform,"launch form name" 'these argument may be the wrong way round!

exit sub

fail:
mgbox "error opening form " & strform

end sub

 

[raphael99]

Thanks Gemma it works. but when I add Docmd.Close, it not close the form. what you suggest?

 

[raphael99]

Sorry mistipyng FRM Name. All is ok. Thanks a lot