Clear Option Buttons

[pepegot]

Below is the code that I used to make a Menu. The only problem is that when a report is opened, it is placed under the Menu form instead of on top of it.

How can I get it to stay on top?



Private Sub Frame2_Click()

DoCmd.Restore
On Error GoTo MyTrap

Select Case Me.Frame2

Case Is = 1
DoCmd.OpenForm "Resident from Last Name", acNormal

Case Is = 2
DoCmd.OpenForm "Resident from Phone No", acNormal

Case Is = 3
DoCmd.OpenForm "Resident from Address", acNormal

Case Is = 4
DoCmd.OpenReport "Multiple Addresses", acViewPreview

Case Is = 5
DoCmd.OpenReport "Missing Phone Numbers", acViewPreview

Case Is = 6
DoCmd.OpenForm "Update/Add/Modify PGIDdb"

Case Is = 7
DoCmd.OpenForm "Delete Records", acNormal


Case Is = 8
DoCmd.OpenReport "PrintAll", acViewPreview

End Select

MyTrap:
If Err.Number = 2501 Then
MsgBox "Action Canceled"
Else
End If

DoCmd.Close acForm, "PGMenu"
DoCmd.OpenForm "PGMenu", acNormal 'This places Menu on top of opened report etc.

End Sub

 

[Smart]

Go to the properties of the form and on the other tab set modal to yes