Help Debug

arholly · December 18th, 2006, 10:30 AM

Hi everyone,
I have a button which keeps throwing errors at me. The code is:

Code:

Private Sub ISBN_Exit(Cancel As Integer)
Set db = CurrentDb()
Set rst = db.OpenRecordset("tbl_Books", dbOpenDynaset)

'all information in here where "Order#" is a column in your table
strISBN = [ISBN]
rst.FindFirst (strISBN)
[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.Update

rst.Close

End Sub

The error is invalid argument on the following line:

Code:

rst.FindFirst (strISBN)

Any help would be great.

Thanks in advance,
Arholly

mmcdonal · December 18th, 2006, 10:34 AM

What does [ISBN] refer to? Perhaps you need to be more specific, like:

strISBN = [Forms]![frmName].[ISBN]

or

strISBN = Me.ISBN

mmcdonal

mmcdonal · December 18th, 2006, 10:35 AM

Alternatively, if you are not pulling any records, then FindFirst would throw an error too. Are you sure there are records available when you pull the recordset?

mmcdonal

arholly · December 18th, 2006, 10:41 AM

Okay, I tried both of your suggestions and both keep throwing the same error. And I'm copying an ISBN directly from the table to make sure I'm getting the correct ISBN, so I'm not sure what would be the problem.

mmcdonal · December 18th, 2006, 10:51 AM

Try this then:

rst.FindFirst strISBN

mmcdonal

arholly · December 18th, 2006, 10:54 AM

Still an invalid argument. If you can think of a better way to do this, I'm more than willing to listen.

mmcdonal · December 18th, 2006, 11:04 AM

Can you do this:

Dim strISBN, sSQL As String
strISBN = Me.ISBN
sSQL = "tbl_Books WHERE [ISBN] = '" & strISBN & "'"

...
Set rst = db.OpenRecordset(sSQL, dbOpenDynaset)

Then no need to use FindFirst statement.

mmcdonal

mmcdonal · December 18th, 2006, 11:05 AM

Or you may need to do this:
sSQL = "SELECT * FROM tbl_Books WHERE [ISBN] = '" & strISBN & "'"

I don't use DAO since I mostly do Access/SQL.

mmcdonal

arholly · December 18th, 2006, 11:10 AM

Okay, when I try that the following error:
"The Microsoft Jet database enging cannot find the input table or query 'tbl_Books WHERE [ISBN] ='0321321847''.

Did I put the code in the wrong order?
Set db = CurrentDb()
Dim strISBN, sSQL As String
strISBN = Me.ISBN
sSQL = "tbl_Books WHERE [ISBN] = '" & strISBN & "'"
Set rst = db.OpenRecordset(sSQL, dbOpenDynaset)

'all information in here where "Order#" is a column in your table
'strISBN = [Forms]![frm_Edit_Book].[ISBN]
'rst.FindFirst strISBN
[Book_Title] = rst("Book_Title")

arholly · December 18th, 2006, 11:12 AM

The second bit of code worked, but then threw an error saying:
Update or CancelUpdate without AddNew or Edit, which I then fixed by dumping the rst.Update. Thanks so much for your help.

Thanks again,
Arholly