Runtime error - #5

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi All,
I got a runtime error -#5 on the following code. It works fine on another
computer has the same Access version.

What can be the reason?

Thanks advanced!


Public Function fub_MyShowForm(prs_FormName As String, _
Optional pri_View As Integer = acNormal, _
Optional pri_Mode As Integer =
acWindowNormal, _
Optional pri_DataMode As Integer =
acFormPropertySettings, _
Optional prv_OpenArgs As Variant =
vbNullString) As Boolean

' On Error GoTo LBL_ERROR_fub_CommonShowForm

Dim vls_Bar As String
Dim obj As CommandBarControl

If prs_FormName = "frm_ydl" Then <---- program stops here
CommandBars("OSSS ToolBar").Visible = False
CommandBars("YDL ToolBar").Visible = True
....
 
You are cross posting. See the thread in the Forms group. I think I have
answered your question.
 
Hi Klatuu,

Yes, I'm sorry for put it again, just I afraid people can't see and follow
it up. Actually I'm wrong, you guys do find it and answering to it, thanks a
lot for the help! It's identical to the former post, so please ignore this
one!
 
Back
Top