Access 2013 prevent a book from being checked out by 2 diff people

[LaughingBull]

This is the code for the select combo box that selects a book to be checked out. After update if the book selected has already been checked out and no date in the returned date field then msgbox this book is already checked out.

Private Sub Combo13_AfterUpdate()
On Error GoTo Combo13_AfterUpdate_Err

DoCmd.SearchForRecord , "", acFirst, "[ID] = " & Str(Nz(Screen.ActiveControl, 0))


Combo13_AfterUpdate_Exit:
Exit Sub

Combo13_AfterUpdate_Err:
MsgBox Error$
Resume Combo13_AfterUpdate_Exit

End Sub

Thanks for your help

[June7]

What is your question? Is the code not working for you?

Probably should use BeforeUpdate event.

Or set up the combobox RowSource to not include books that are already checked out.

[LaughingBull]

afterUpdate If If Forms!tblLibrary1!CheckedOut = True Then
MsgBox "This book is checked Out Select another"


End If
Works great thanks

[LaughingBull]

June7

I seen on one of your post reply's a database for the Library check out or something like that. will you send me that link so I can download it please?

Thank you

[June7]

Your profile shows Access 2003. Is that still what you are working with?

[LaughingBull]

no 2013 I will go change that thank you

[June7]

Then open Access > File > New > Database > Desktop Lending Library

At least that's what I would do in 2010.