on error

[Pouncer]

Private Sub Form_Load()
 
    On Error GoTo ErrorHandler
 
code here
code here
call function1
call function2
 
ErrorHandler:
    MsgBox ErrorPrefix & "Error id: " & err & ", " & Error, vbCritical, version & " - error!"
end sub

function1 and function2 have error handling like that too

but whe i start my form up, it keeps msgboxing but the errorid and message are blank

[shakti5385]

post function code

[some1uk03]

Its cos you are missing the EXIT SUB..

do it like this:

Private Sub Form_Load()

On Error GoTo ErrorHandler

code here
code here
call function1
call function2

Exit Sub

ErrorHandler:
MsgBox ErrorPrefix & "Error id: " & err & ", " & Error, vbCritical, version & " - error!"
end sub

[Shuja Ali]

Put Exit Sub before the ErrorHandler. You see a blank Errnumber and description because there is no error, however you are still executing this statement

MsgBox ErrorPrefix & "Error id: " & err & ", " & Error, vbCritical, version & " - error!"

Your code should be like this

Private Sub Form_Load()
 
        On Error GoTo ErrorHandler
 
    code here
    code here
    call function1
    call function2
    'Make sure we don't execute the error handling code if there is no error
    Exit Sub
    ErrorHandler:
        MsgBox ErrorPrefix & "Error id: " & err & ", " & Error, vbCritical, version & " - error!"
    end sub

[Pouncer]

ahh yeaa thanks, thats sorted it.