G
Guest
Hi There,
I've a quite strange problem in my small program which developed in Access
2002, now using in Switzerland (the Access version of users is Access 2000
built 9.0.2812).
There are two identical client computers using the program without any
problem until one user computer reinstalled. After the reinstallation the
program stops at the line 'prs_FormName = "frm_ydl"' of a public function
which I use it to switch between two main datasheet.
I asked them to compare the Access version, it's exactly the same.
What can be the possible reason? Would be appreciate if someone can give any
hint to crack this problem.
Thanks advanced for any feedback.
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
....
I've a quite strange problem in my small program which developed in Access
2002, now using in Switzerland (the Access version of users is Access 2000
built 9.0.2812).
There are two identical client computers using the program without any
problem until one user computer reinstalled. After the reinstallation the
program stops at the line 'prs_FormName = "frm_ydl"' of a public function
which I use it to switch between two main datasheet.
I asked them to compare the Access version, it's exactly the same.
What can be the possible reason? Would be appreciate if someone can give any
hint to crack this problem.
Thanks advanced for any feedback.
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
....