Right now the problem I have is this: I want students to return books using the Check In form. Now a record of the students transaction(when he borrowed the book) has been saved in a database which I have connected to.I want to compare the input with the record in database and if it matches the book is returned. However, whenever I want to return the book I get "Run-time error 91, Object variable or With block variable not set."

I am using an Access file. I would appreciate any help at all given to me. The code below is for the function Deposit books which is called when I click the check in button

Function DepositBooks()

Dim Check As Boolean
    With Form1.Data1
        .Refresh
        Form1.Data1.Recordset.Fields("Name") = Form1.Text1.Text
        Form1.Data1.Recordset.Fields("Year") = Form1.Text2.Text
        Form1.Data1.Recordset.Fields("Book Title") = Form1.Text3.Text
        Form1.Data1.Recordset.Fields("Author") = Form1.Text4.Text
        Form1.Data1.Recordset.Fields("Lib code") = Form1.Text5.Text
        Form1.Data1.Recordset.Fields("Date Borrowed") = Form1.Label10.Caption
        Form1.Data1.Recordset.Fields("Return Date") = Form1.Label9.Caption
                If .Recordset.Fields("Name") = Form1.Text1.Text Then
                    If .Recordset.Fields("Book Title") = Form1.Text3.Text Then
                    Form1.Data1.Recordset.Fields("Lib code") = "ACC 007"
                        MsgBox "Book Deposited.", vbOKOnly, "Deposited"
                        Check = True
                        Exit Function
                    Else
                        MsgBox "This book was not issued to this student."
                        Exit Function
                    End If
                Else
                    .Recordset.MoveNext
                End If
           
           
       
           
       
    End With
   
End Function
Thanks for reading.

If NOT .Recordset.EOF THen
  .Recordset.MoveNext
End If

               Form1.Data1.Recordset.Fields("Name") = Form1.Text1.Text

Thanks

Try...

    With Me.Data1
        .Refresh
        .Recordset.Fields("Name") = Form1.Text1.Text
        .Recordset.Fields("Year") = Form1.Text2.Text
        .Recordset.Fields("Book Title") = Form1.Text3.Text
        .Recordset.Fields("Author") = Form1.Text4.Text
        .Recordset.Fields("Lib code") = Form1.Text5.Text
        .Recordset.Fields("Date Borrowed") = Form1.Label10.Caption
        .Recordset.Fields("Return Date") = Form1.Label9.Caption
                If .Recordset.Fields("Name") = Form1.Text1.Text Then
                    If .Recordset.Fields("Book Title") = Form1.Text3.Text Then
                        .Recordset.Fields("Lib code") = "ACC 007"
                        MsgBox "Book Deposited.", vbOKOnly, "Deposited"
                        Check = True
                        Exit Function
                    Else
                        MsgBox "This book was not issued to this student."
                        Exit Function
                    End If
                Else
                    .Recordset.MoveNext
                End If
    End With

Yes I am sure that Name is a valid field in Data1.

When I tried the Me keyword I got: "Invalid use of Me keyword"

Well nothing to do with you problem but your coding. If your using the With statement in your case Form1.Data1 you don't need to specify this again until you End With.

I would also suggest you use the VB prefixes when you name controls it makes the code easier to follow not Form1, Text5, Label10 

Keith

Does it work if you wrap the field name in square brackets?
.Recordset.Fields("[Name]") = Form1.Text1.Text

Mark: Thanks but I still get: "Object variable or With object variable not set"

Hydrolysis (3/18/2009)

---

Keithuk: Yeah you're right I should make the code easier, I'll do that after I solve the problem

Mark: Thanks but I still get: "Object variable or With object variable not set"

Have you bound your controls to the database RecordSets?

Keith