 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
MS Access Forum / General 2 / April 2008Determing who added a record
Access 2003 I have in the past, included the following as the default value in a field "AddedBy" to determine who has entered a new record: =Environ("username") This seems not to work on Access 2007 (or Vista - I forget which). So what would be the proper way to "CODE" this as a module and use it more readily and without version issues. tia Dave > Access 2003 > [quoted text clipped - 7 lines] > So what would be the proper way to "CODE" this as a module and use it more > readily and without version issues. This code has been tested and works in both Vista and Access 2007 http://www.mvps.org/access/api/api0008.htm Save the code and api in a module with a name other than the function's name. You can then use the name of the function as a query criteria, or in the AddedBy field like: =fOSUserName()  SignatureArvin Meyer, MCP, MVP http://www.datastrat.com http://www.mvps.org/access http://www.accessmvp.com wow that is funny. Do you even realize that this is built into SQL Server? select suser_sname() as thisUser that's all you got to do to get to this info in SQL Server. Wouldn't it be nice if things 'just worked' out of the box?? -Aaron > > Access 2003 > [quoted text clipped - 19 lines] > -- > Arvin Meyer, MCP, MVPhttp://www.datastrat.comhttp://www.mvps.org/accesshttp://www.accessmvp.com Aaron, I am not sure if you are making fun of my ignorance here or I am too dumb to use the information you provided but I don't understand how this helps me. Thanks for the reply, dave > wow that is funny. > [quoted text clipped - 34 lines] >> Arvin Meyer, MCP, >> MVPhttp://www.datastrat.comhttp://www.mvps.org/accesshttp://www.accessmvp.com > Aaron, > [quoted text clipped - 3 lines] > > Thanks for the reply, Dave, His information is not designed to help you. Aaron is what is known in the newsgroups as a troll. He wanders around looking for arguments. He thinks he's smarter than everyone, but contantly proves otherwise. I have him blocked so the only time I see his inane remarks is when he's quoted in someone else's reply. Aaron threatened one of the Microsoft MVPs (Tom Wickerath) and this was the result: On Saturday, June 30, 2007, Aaron was taken down by the Tacoma Police Dept. SWAT Team after earlier making public threats to Tom's safety in the newsgroups. He ended up pleading guilty to the crime of cyberstalking, which the Prosecutor later decided to pursue as a misdemeanor instead of a felony. On Dec. 7, 2007, the judge handed down the following sentence: 1.) Pay $500 court costs 2.) 24 months probation 3.) He must use his name in any electronic postings --no aliases allowed. 4.) Complete an anger management session. 5.) Perform 136 hours of community service. It looks to me as if the anger management session hasn't been started yet. SignatureArvin Meyer, MCP, MVP http://www.datastrat.com http://www.mvps.org/access http://www.accessmvp.com Arvin, Thanks for the link. I am however having some trouble using it. I crerated a Module called "UserName" I pasted in the code exactly as it was in the link. I then tried both of these as default value: =fOSUserName() =UserName() Both gave me errors. Should this be public and not private? Or am I missing/not doing something else wrong? Dave >> Access 2003 >> [quoted text clipped - 17 lines] > > =fOSUserName() > Arvin, > [quoted text clipped - 15 lines] > Should this be public and not private? > Or am I missing/not doing something else wrong? Not sure what the problem is. Have you copied the api code? Have you compiled the code? Does it compile? If not, what is the error message? If it does compile try running something like this in a query; SELECT FirstName, LastName, fOSUserName() AS Expr1 FROM MyTable; Of course you'll need to put your own field and table names in. One other thing that occured to me, you cannot use non-built-in functions in a table because the expression service doesn't run in tables. But it should work in a query, form, or report. SignatureArvin Meyer, MCP, MVP http://www.datastrat.com http://www.mvps.org/access http://www.accessmvp.com "Have you copied the api code? Have you compiled the code? Does it compile? " Well I am totally missing something. I copied the code that was one the link you posted into a new module. I am not sure what the api code is but I am sure I have compiled nothing. sounds like this is going to be above my head for what I was hoping was simple :( Thanks for the tip about aaron dave >> Arvin, >> [quoted text clipped - 28 lines] > in a table because the expression service doesn't run in tables. But it > should work in a query, form, or report. I have used this for years in the form before update. I also display it on the form, tends to make users more aware of attention to details. Also when I had to go to a hearing I had to place individual at the machine, not just someone used thier logon so with witness that they were at that machine case closed. fOSMachineName is also on same web site. Much thanks to Dev Ashish for fOSUserName and fOSMachineName. '------------------------------------------------------------ ' M_LastModified ' '------------------------------------------------------------ Function fLastModified() On Error GoTo fLastModified_Err With CodeContextObject .DateModified = Date .TimeModified = Time() .UserLogon = fOSUserName() .MachineName = fOSMachineName() End With fLastModified_Exit: Exit Function fLastModified_Err: MsgBox Error$ Resume fLastModified_Exit End Function >> Arvin, >> [quoted text clipped - 28 lines] > in a table because the expression service doesn't run in tables. But it > should work in a query, form, or report. |
Reply to this Message |
 Sign In
 Join
 My Latest Posts My Monitored Threads My Blog My Photo Gallery My Profile My Homepage Start New Thread Enable EMail Alerts Rate this Thread
|
©2008 Advenet LLC Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.