Error traping code for two events.

[glen]

Hello all,

I am using this error trapping code for "Delivery Date" " beforeinsert" event and it working good.

Private Sub Form_BeforeInsert(Cancel As Integer)
On Error GoTo errorline
SERIALNO = Nz(DMax("serialno", "deliveries", "OrderID=" & Forms!Orders!ORDERID)) + 1
exitline:
Exit Sub
errorline:
Select Case Err.Number
Case 3075
MsgBox " Select Department & Location First"
Cancel = True
Case Else
MsgBox " There was error in Program.Contact system Administrator"
GoTo exitline
End Select

End Sub

Now I add another event on double click to "Delivery Date"

Private Sub DELIVERYDATE_DblClick(Cancel As Integer)
DELIVERYDATE.Text = Date

So when I double click on " Delivery Date" text box then first it show me " Select department and Location First"
and when I click "OK" then the error message come runtime error "3075"
I add the error trapping code to both events then it is working but show me the msg two times, which not looking good.
I want to add one error trapping code for both events.
How I can do this?


Thanks

[pbaldy]

The code you have in the before insert event should probably be in the before update event, which is typically where validation is done. The other benefit is that event shouldn't fire when you add the date in the double click event.

[glen]

I tried in "Beforeupdate" event but it is not working.
It all working fine, but I just need to learn how to use one "Error handler" code for these two events.
Or there is no way exept using separate for each events?
If I use as I show in picture then it working but only show "Select Department and Location First" message twice.

[pbaldy]

Can you post the db here?

[glen]

here is my database.
after opening database try to double click on "Delivery Date" without selection "Department" and "Location".

[pbaldy]

As expected, if I move the before insert code to before update, the error code is not hit when double clicking on the date. How did that not work for you?

[glen]

Yes after moving the before insert code to before update, the error code not hit but the expression Dmax not working for me.
I just want to know that can we use one error code for these two events or no?
Bcoz this error happen when ever the order id is empty.
and it show run time error code "3075"
so I want to make a error handler that when ever this "run time error 3075" then that error handler apply.

[pbaldy]

The short version is no. Rather than rely on the error handler, why not test those two controls and only take action when both are filled in?

[glen]

OK thanks I will do so.