M
memiller
I have inherited an Access 2003 SP3 application that initially opens a
switchboard form, which contains only buttons to open additional
forms. The MDB is compiled and is located in a common directory. I
have one user out of roughly 20 that gets the error "The form name {X}
is misspelled or refers to a form that doesn't exist" when she makes
her first attempt to open the form. She'll close the application and
re-open it and it will work fine. I've verified that the spelling
within the error message exactly matches the existing form's name,
verified that she is running the application from production. Neither
I nor anyone else can reproduce this problem. Does anyone have any
ideas???
Global code routine:
Global DirFromInit, DirTypeInit As Variant
Form code (switchboard):
Private Sub btnDirectBill_Click()
OpenMultiForm "Form1", "Letters", DirFromInit, DirTypeInit
End Sub
Private Sub OpenMultiForm(FormN, Caption As String, FInitials,
TInitials)
On Error GoTo Err_MultiForm
FromInit = FInitials
TypeInit = TInitials
DoCmd.OpenForm FormN, , , , , , Caption
Exit_MultiForm:
Exit Sub
Err_MultiForm:
MsgBox Error$
Resume Exit_MultiForm
End Sub
switchboard form, which contains only buttons to open additional
forms. The MDB is compiled and is located in a common directory. I
have one user out of roughly 20 that gets the error "The form name {X}
is misspelled or refers to a form that doesn't exist" when she makes
her first attempt to open the form. She'll close the application and
re-open it and it will work fine. I've verified that the spelling
within the error message exactly matches the existing form's name,
verified that she is running the application from production. Neither
I nor anyone else can reproduce this problem. Does anyone have any
ideas???
Global code routine:
Global DirFromInit, DirTypeInit As Variant
Form code (switchboard):
Private Sub btnDirectBill_Click()
OpenMultiForm "Form1", "Letters", DirFromInit, DirTypeInit
End Sub
Private Sub OpenMultiForm(FormN, Caption As String, FInitials,
TInitials)
On Error GoTo Err_MultiForm
FromInit = FInitials
TypeInit = TInitials
DoCmd.OpenForm FormN, , , , , , Caption
Exit_MultiForm:
Exit Sub
Err_MultiForm:
MsgBox Error$
Resume Exit_MultiForm
End Sub