I am building the library Application from "Pro Access 2010 Development" book.
I have a checkOUt form that has a checkout button that if availble will lend out the book. For some reason it is not working. Here is the code:
Private Sub CheckOut_Click()
'Go to a new record
DoCmd.GoToRecord acDataForm, "CheckOut", acNewRec
CustomerID = txtCustomerID
InventoryItemID = txtInventoryItemID
'Cause the focus to move off the current record, which
'will cause it to be saved
DoCmd.GoToRecord acDataForm, "CheckOut", acNext // Here is where it gets stuck
DoCmd.GoToRecord acDataForm, "CheckOut", acLast
'Reset the form controls
txtInventoryItemID = ""
DoCmd.Requery "InventoryItemLookup"
InventoryItemLookup.Visible = False
CheckOut.Visible = False
End Sub
Can anyone Help.
Thanks
Leeba
Senin, 24 Oktober 2011
[MS_AccessPros] Access 2010 Lending Library application
__._,_.___
MARKETPLACE
.
__,_._,___
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar