Help with Error Checking

arholly · December 21st, 2006, 03:15 PM

Hello,
I've got a bit of code which is function, but pretty horrific when it comes to handling errors because I am not very familiar with error handling. So, what I would really like is two things.

1) I'd like help with adding some error checking to my code.
2) I'd like some references for error handling/checking so I can start learning more about it.

Code:

Code:

Private Sub ISBN_Exit(Cancel As Integer)
Set db = CurrentDb()
Dim strISBN, sSQL As String
strISBN = Me.ISBN
sSQL = "SELECT * FROM tbl_Books WHERE [ISBN] = '" & strISBN & "'"

Set rst = db.OpenRecordset(sSQL, dbOpenDynaset)

'all information in here where "Order#" is a column in your table

[Book_Title] = rst("Book_Title")
[Publisher] = rst("Publisher")
[Copyright] = rst("Copyright")
[Edition] = rst("Edition")
[Author] = rst("Author")
[Book_Type] = rst("Book_Type")
[Trial_Software] = rst("Trial_Software")
[Comments] = rst("Comments")

rst.Close

End Sub

Thanks in advance.

Best Regards,
Arholly

mmcdonal · December 22nd, 2006, 08:08 AM

Normally, to do error handling, you turn off error handling by the app using this line:

On Error Resume Next

Then after each step where you want to check for an error, take the value like this:

If Err <> 0 Then
'Error Handling code
Err.Clear
End If

I learned error handling from VBScript, as you can tell.

HTH

mmcdonal

arholly · December 22nd, 2006, 03:40 PM

Thanks.