BE/FE Startup Problem

[mohammadagul]

Hello friends
I am using the following code
Public Function fChooseForm()

If fSetOpeningForm Then
DoCmd.OpenForm "frmLogon", acNormal
Else
DoCmd.OpenForm "frmCoName", acNormal
End If
If err = 3024 Then
MsgBox "Prince Accounting Could Not find Company " & _
"Information Table and Form." & vbCrLf & "Please Relink " & _
"Your Tables Or Contact Your System Administrator.", _
vbInformation + vbOKOnly + vbDefaultButton1 + _
vbMsgBoxSetForeground, "Prince Accounting System"
End If

End

End Function


I have create an autoexec macro with the action as Runcode. --- fchooseForm.

Now everthing goes well if the tables are linked with backend. But if I move the back end to another directory it gives me a runtime error of 3024 as follows

Could not find 'D:\PrinceAccountingSystem\PA_Be.mdb'.Error Number 3024

To overcome this error I have place an error handler in function as shown above but still it is giving me error. In addition to this it is also giving me the error of macro.

Now if the back end not found I want to customize this error 3024 into my own message and then open the dialog box to locate the backend.

Please advice how to overcome this problem

Public Function fChooseForm()

 

[mohammadagul]

Hello again

sorry about the code line at the end message. it was by mistake . Please Ignore

 

[mohammadagul]

plz any ideas or suggestions????

 

[Sergeant]

You could start with this.

nb: I haven't looked at it.