Assuming the user name is text:
CurrentDb.Execute "INSERT INTO tblTransferDate (TransferDate, ButtonClicked, FinalObject, UserLoggedIn) " & _
"Values(Date() + Time(), 'cmdAddEmployee', 'Add New Record', '" & Me.txtUser.value & "')", dbFailOnError
Darrell
From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com]
Sent: Friday, April 15, 2016 3:30 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Insert Statement
Hello all,
I have an insert statement in vba that allows me to log when a couple of buttons are clicked and some other information related to it. I was thinking of adding one more function to the insert statement. I want to add the users logged name from a text box I have on a form. the name of the text box is txtUser and the On form load is the following to populate the txtUser control
Private Sub Form_Load()
Me.txtUser = Environ("UserName")
End Sub
Currently the code is
CurrentDb.Execute "INSERT INTO tblTransferDate (TransferDate, ButtonClicked, FinalObject) " & _
"Values(Date() + Time(), 'cmdAddEmployee', 'Add New Record')", dbFailOnError
But I would like to add the value from the txtUser control but I cannot find a way to add the control. I get an error when I try the below code. Run-time error 3061 too few parameters. Expected 1
CurrentDb.Execute "INSERT INTO tblTransferDate (TransferDate, ButtonClicked, FinalObject, UserLoggedIn) " & _
"Values(Date() + Time(), 'cmdAddEmployee', 'Add New Record', Me.txtUser.value)", dbFailOnError
How do I add that text control to the insert statement.
Thank You Very Much
Jim Wagner
The information contained in this communication is highly confidential and is intended solely for the use of the individual(s) to whom this communication is directed. If you are not the intended recipient, you are hereby notified that any viewing, copying, disclosure or distribution of this information is prohibited. Please notify the sender, by electronic mail or telephone, of any unintended receipt and delete the original message without making any copies.
Blue Cross Blue Shield of Michigan and Blue Care Network of Michigan are nonprofit corporations and independent licensees of the Blue Cross and Blue Shield Association.
Posted by: "Embrey, Darrell" <DEmbrey@bcbsm.com>
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (19) |
Tidak ada komentar:
Posting Komentar