In practical all of my subs i have the errorcode as shown below .
More than often, when an error occurs, i see the appropriate message, but in the same time Access get frozen, and i'm obliged to get out of it by typing Ctrl + Delete!!
What's wrong with this error code ?
Private Sub ...
On Error GoTo ErrorHandler
Afsluiten:
On Error GoTo 0
Exit Sub
ErrorHandler:
Mededeling = foutbericht("CmdAfdrukken_Click", "frmAankpVrDoorVerkp", Err.Number)
Resume Afsluiten
Public Function foutbericht(procname As String, frmname As String, Fout As Long)
Beep
Msg = "Tijdens de uitvoering van de procedure " & procname & " in het formulier " & frmname & ", heeft zich de fout met nummer "
MsgBox Msg & Err.Number & " voorgedaan. Meer specifiek houdt dit in wat hieronder staat vermeld: " & vbCrLf & vbCrLf & Err.Description, vbCritical, "FOUTBERICHT!!!"
End Function
More than often, when an error occurs, i see the appropriate message, but in the same time Access get frozen, and i'm obliged to get out of it by typing Ctrl + Delete!!
What's wrong with this error code ?
Private Sub ...
On Error GoTo ErrorHandler
Afsluiten:
On Error GoTo 0
Exit Sub
ErrorHandler:
Mededeling = foutbericht("CmdAfdrukken_Click", "frmAankpVrDoorVerkp", Err.Number)
Resume Afsluiten
Public Function foutbericht(procname As String, frmname As String, Fout As Long)
Beep
Msg = "Tijdens de uitvoering van de procedure " & procname & " in het formulier " & frmname & ", heeft zich de fout met nummer "
MsgBox Msg & Err.Number & " voorgedaan. Meer specifiek houdt dit in wat hieronder staat vermeld: " & vbCrLf & vbCrLf & Err.Description, vbCritical, "FOUTBERICHT!!!"
End Function