If you want to determine whether a form is open in design view, try this
slight modification of the 'IsLoaded' function from the Access 2003
Northwind sample database. It will also work with Access 2000 and 2002,
though not with any earlier version. I'm not sure that the earlier versions
support the intrinsic constant acCurViewDesign, you may find that you need
to use the numeric value 0 (zero) instead of the constant acCurViewDesign in
earlier versions.
Function IsInDesignView(ByVal strFormName As String) As Boolean
'Returns True if the specified form is open in design view.
Dim oAccessObject As AccessObject
Set oAccessObject = CurrentProject.AllForms(strFormName)
If oAccessObject.IsLoaded Then
If oAccessObject.CurrentView = acCurViewDesign Then
IsInDesignView = True
End If
End If
End Function
--
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com
The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.