ACCESS FEED: RE: [AccessDevelopers] Access 2010 Lending Library application

Senin, 24 Oktober 2011

RE: [AccessDevelopers] Access 2010 Lending Library application

For saving a record, you could also try

DoCmd.RunCommand acCmdSaveRecord

Although some people think Me.Dirty = False is a better way.

http://bytes.com/topic/access/answers/196574-docmd-runcommand-accmdsaverecord-vs-me-dirty-false

Hope that helps,

Toby

-----Original Message-----
From: AccessDevelopers@yahoogroups.com [mailto:AccessDevelopers@yahoogroups.com] On Behalf Of leebasmith
Sent: Monday, October 24, 2011 12:44 AM
To: AccessDevelopers@yahoogroups.com
Subject: [AccessDevelopers] Access 2010 Lending Library application

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