How to check if there are other forms opened

[djmc]

How do i check if there are other forms opened (other than the current one). I want to prompt the user to close off all forms before proceeding with the task on the current form im in.

 

[Hasu]

Hi,

Following code will work for you,

-------------------
Dim frm As Form

For Each frm In Forms
If frm.Name <> Me.Name Then
MsgBox &quot;close other forms&quot;, vbInformation
Exit Sub
End If
Next frm
-------------------


Hope this helps...
Hasu
(Trust on someone, someone will trust you!)