citychap26
Programmer
Hi Guys,
I've had a look on the net and searched on here for an answer to the above error.
I believe that it has something to do with SP3 of Access2003.
I am trying to execute the following:
[code/]
Function FrmSave(sFrmName As String)
On Error GoTo ERR_HANDLER
If FrmIsLoaded(sFrmName) Then
DoCmd.Save acForm, sFrmName
DoCmd.Close acForm, sFrmName
End If
EXIT_FUNCTION:
Exit Function
ERR_HANDLER:
MsgBox Err.Number & ", " & Err.DESCRIPTION
Resume Next
End Function
I've had a look on the net and searched on here for an answer to the above error.
I believe that it has something to do with SP3 of Access2003.
I am trying to execute the following:
[code/]
Function FrmSave(sFrmName As String)
On Error GoTo ERR_HANDLER
If FrmIsLoaded(sFrmName) Then
DoCmd.Save acForm, sFrmName
DoCmd.Close acForm, sFrmName
End If
EXIT_FUNCTION:
Exit Function
ERR_HANDLER:
MsgBox Err.Number & ", " & Err.DESCRIPTION
Resume Next
End Function
Code:
Any ideas ?
Cheers
SK