MS Access [Form] and vb Code

[batman31]

Dear All
How are, I am new memeber to your comunuity.
i have built s small database to check out books
two tables have been created
Books and Students
Books have B-Id and Status
Student Have name,id and book tag
andf one query that has book tage and stauts is check to true
Book tage gets its info from book table where the realation is 1 to M
i created a form using wizerd
i creatd a button called check out , where i code the follwing

Private Sub CheckOut_Click()

Dim temp
Dim strSQL As String
temp = Forms!students.LaptopTag
strSQL = "UPDATE Book SET Book.[Status-Av] = False, book.TagNumber = '" & temp & "';"

DoCmd.RunSQL strSQL
Refresh



End Sub

But i ge an error from access saying the following
microsoft can not update all the record in the query
key vailoation ,conversion faliure,lock vaiolation

[Dököll]

Dear All
How are, I am new memeber to your comunuity.
i have built s small database to check out books
two tables have been created
Books and Students
Books have B-Id and Status
Student Have name,id and book tag
andf one query that has book tage and stauts is check to true
Book tage gets its info from book table where the realation is 1 to M
i created a form using wizerd
i creatd a button called check out , where i code the follwing

Private Sub CheckOut_Click()
 
Dim temp
Dim strSQL As String
temp = Forms!students.LaptopTag
strSQL = "UPDATE Book SET Book.[Status-Av] = False, book.TagNumber = '" & temp & "';"
 
    DoCmd.RunSQL strSQL
    Refresh
 
 
 
End Sub
 
 

But i ge an error from access saying the following
microsoft can not update all the record in the query
key vailoation ,conversion faliure,lock vaiolation

I am going to first add to Access forum for you, I think you'll get added support there.

Also, is temp the same data format as TagNumber

[ADezii]

I am going to first add to Access forum for you, I think you'll get added support there.

Also, is temp the same data format as TagNumber

Private Sub CheckOut_Click()
Dim temp As String
Dim strSQL As String
 
temp = Forms!students.LaptopTag
 
If Not IsNull(temp) Then
  strSQL = "UPDATE Book SET Book.[Status-Av] = False Where Book.TagNumber = '" & temp & "';"
 
  DoCmd.RunSQL strSQL
  Me.Refresh
End If
End Sub