You should use something other than an option group for this, since once an
option is selected it can't be re-selected unless a different option is
selected first (the exact behavior you're seeing). I prefer a menu of command
buttons for opening forms like you're decribing; a command button can be
clicked as many times in a row as you wish.
If you insist on continuing to use an option group for this, you will need
to "clear" the option group after your form is opened by setting its value to
Null:
DoCmd.OpenForm strFormName
MainSwitchboard = Null
Disclaimer: I haven't actually tried setting an option group control to Null
like this, but it seems like it should work. I still recomment the command
button approach.
Carl Rapson
"Jani" wrote:
> My option group for opening forms works correctly. However, when I open a
> form, close the form, and am then back to the page with the option group and
> try to reselect the same form, it won't do it. I need to open a different
> form, back to the option group page, then can select it. Below is the code
> that I have in After Update event. Any help would be much appreciated!
> Thanks, Jani
>
> Private Sub MainSwitchboard_AfterUpdate()
> Dim strFormName As String
>
> Select Case Me.MainSwitchboard
> Case 1
> strFormName = "frm_CMMS_NonPMTasks"
> Case 2
> strFormName = "frm_CMMSPrevMaintTable"
> Case 3
> strFormName = "frm_CMMS_PMTaskList_AddNew"
> Case 4
> strFormName = "frm_CMMS_PMTaskList_Maintenance"
> Case 5
> strFormName = "frm_CMMSMainForm_PMTasks"
> Case 6
> strFormName = "frm_CMMS_Reports"
> End Select
>
> DoCmd.OpenForm strFormName
> End Sub
>
|
Similar Threads
