Error Handling

[lfc1lfc]

I have this error handling statement:

on error goto fix:

fix: data1.Recordset.CancelUpdate

on the same statement i.e. fix I want to add this:

MsgBox "If a field is not filled in please enter N/A. This Record will not be saved", vbExclamation

I want this to come up along with CancelUpdate, but when I put it on the same line as data1.Recordset.CancelUpdate, I get a message saying "Expected end of statement"

Is there a way of doing what I want to do?

[techgnome]

Don't put them on the same line.....

[lfc1lfc]

But if i put it on the next line this:

MsgBox "If a field is not filled in please enter N/A. This Record will not be saved", vbExclamation

happens regradless of whether a field is filled in or not. I don;t want that to happen!

[KayJay]

do you have a "Exit Function" before "Fix:" ?

[Ruku]

Originally posted by lfc1lfc
I have this error handling statement:

on error goto fix:

fix: data1.Recordset.CancelUpdate

on the same statement i.e. fix I want to add this:

MsgBox "If a field is not filled in please enter N/A. This Record will not be saved", vbExclamation

I want this to come up along with CancelUpdate, but when I put it on the same line as data1.Recordset.CancelUpdate, I get a message saying "Expected end of statement"

Is there a way of doing what I want to do?

on error goto Fix:
 
 
Exit Function '(Or sub)
 
Fix:
data1.Recordset.CancelUpdate
MsgBox "If a field is not filled in please enter N/A. This Record will not be saved", vbExclamation
Exit Function '(Or sub)

My usual debug message:

Msgbox Err.Description, , "Error #" & Err.Number

[lfc1lfc]

thanks guys!

[lfc1lfc]

IT STILL DOESN'T WORK!

[lfc1lfc]

the msgbox comes up regardless of whether there is an error or not!

[Ruku]

Originally posted by lfc1lfc
the msgbox comes up regardless of whether there is an error or not!

There,

on error goto Fix: '>ON TOP OF CODE
 
'>YOUR OTHER CODE (...)
'>YOUR OTHER CODE (...)
'>YOUR OTHER CODE (...)
'>YOUR OTHER CODE (...)
'>YOUR OTHER CODE (...)
 
Exit Function '(Or sub) 'What I think >YOU FORGOT<
 
Fix:
data1.Recordset.CancelUpdate
MsgBox "If a field is not filled in please enter N/A. This Record will not be saved", vbExclamation
 
Exit Function '(Or sub)

is everything ok now? Dont freak out on me !!!

[seaweed]

Why don't you post your code so we can see what you're doing?

(don't forget to put [vbcode][/vbcode] tags around your code when you post)

[lfc1lfc]

I did miss out the Exit Sub but I solved the problem quite a few days ago. Thanks for your help anyway.

I have a another query regarding how to add the records of a field to a listbox. I've already posted a thread and was hoping you would have a look at it. (In database section)

thanks!