Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations sizbut on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Check if a form is exist
- Thread starter sisan
- Start date
- Thread starter
- #2
Have a look at this code...I use this to destroy forms etc..
Public Sub shutdown()
' Comments :
' Parameters: -
' Modified :
'
' --------------------------------------------------
On Error GoTo err_close
Dim frmForm As Form
Dim f As Integer
Dim z As Integer
f = 0
z = Forms.Count - 1
For f = 0 To z
If Forms(f).Name <> "frmMasterDemo" And Forms(f).Name <> "eICAT" And Forms(f).Name <> "MainMenu" Then
Set frmForm = Get_Form(Forms(f).Name)
Unload Forms(f)
Set frmForm = Nothing
DoEvents
End If
Next f
Exit Sub
err_close:
If Err.Number = 9 Then
Exit Sub
End If
MsgBox _
"Error in shut down: " & Err.Description, _
vbOKCancel + vbCritical + vbDefaultButton1, _
"eICAT Error"
Exit Sub
End Sub
Public Sub shutdown()
' Comments :
' Parameters: -
' Modified :
'
' --------------------------------------------------
On Error GoTo err_close
Dim frmForm As Form
Dim f As Integer
Dim z As Integer
f = 0
z = Forms.Count - 1
For f = 0 To z
If Forms(f).Name <> "frmMasterDemo" And Forms(f).Name <> "eICAT" And Forms(f).Name <> "MainMenu" Then
Set frmForm = Get_Form(Forms(f).Name)
Unload Forms(f)
Set frmForm = Nothing
DoEvents
End If
Next f
Exit Sub
err_close:
If Err.Number = 9 Then
Exit Sub
End If
MsgBox _
"Error in shut down: " & Err.Description, _
vbOKCancel + vbCritical + vbDefaultButton1, _
"eICAT Error"
Exit Sub
End Sub
- Thread starter
- #4
- Status
Similar threads
- Question
- Question
