D
DS
I'm trying to hide a form based on a Select Case.
The form refuses to hide. I tried it with On Open and On Load.
If I put the hide code on a command button and it works.
Any help appreciated.
Private Sub Form_Open(Cancel As Integer)
Dim blRet As Boolean
Dim lngColor As Long
lngColor = RGB(255, 255, 255)
blRet = RestoreMDIBackGroundImage(lngColor)
Select Case Me.TxtPause
Case 0
Forms!EasyStart.Visible = True
Case 1
Forms!EasyStart.Visible = False
DoCmd.OpenForm "Easy1"
Case 2
Forms!EasyStart.Visible = False
DoCmd.OpenForm "Easy2"
Case 3
Forms!EasyStart.Visible = False
DoCmd.OpenForm "Easy3"
End Select
End Sub
Thanks
DS
The form refuses to hide. I tried it with On Open and On Load.
If I put the hide code on a command button and it works.
Any help appreciated.
Private Sub Form_Open(Cancel As Integer)
Dim blRet As Boolean
Dim lngColor As Long
lngColor = RGB(255, 255, 255)
blRet = RestoreMDIBackGroundImage(lngColor)
Select Case Me.TxtPause
Case 0
Forms!EasyStart.Visible = True
Case 1
Forms!EasyStart.Visible = False
DoCmd.OpenForm "Easy1"
Case 2
Forms!EasyStart.Visible = False
DoCmd.OpenForm "Easy2"
Case 3
Forms!EasyStart.Visible = False
DoCmd.OpenForm "Easy3"
End Select
End Sub
Thanks
DS