Error Handling

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?

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

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!

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

Quote:

---

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?

---

VB Code:

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:

VB Code:

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

thanks guys!

IT STILL DOESN'T WORK!

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

Quote:

---

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

---

There,

VB Code:

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 :p!!!

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)

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!