Forms :: Adding Windows Username In New Record?
Nov 1, 2013
I am having a difficult time figuring out how to have a table add a new record that includes the Windows username of the user that clicks the button on my form. The function is in place that pulls the Windows username:
Code:
Public Function getWinUser() As String
getWinUser = Environ("UserName")
End Function
I then call the function during the button click by simply adding getWinUser. Unfortunately, all that occurs is that the same record gets updated instead of creating a new record.
View Replies
ADVERTISEMENT
Jun 11, 2012
I am trying to record the current windows username in an audit field. But all i can get is the Username Admin?
Dim MyForm As Form, C As Control, xName As String
Set MyForm = Screen.ActiveForm
'Set date and current user if form has been updated.
MyForm!Audit = MyForm!Audit & Chr(13) & Chr(10) & _
"Changes made on " & Now & Date & " by " & CurrentUser() & ";"
[Code] ....
View 3 Replies
View Related
Jul 25, 2006
A couple of questions. I want my database to query the AD and make sure that the user trying to open the database had an account in the AD. I dont want them prompted for a password though. I have had a look at trying to change the example NT logon in the samples area, but just managed to get myself in a bit of a mess. Also is there anyway that you can query the users full name in AD and call that variable,or does this only work with the username?
Also, when a user created a record in a from, I would like the users username, called from the AD saved in a field in the table. I have tried this and the only way that I can call the variable is by having the "=Environ("USERNAME")" in the control source of the text box. Which means that it cant be save in a field in the table. I have also tried an after updated event on that textbox to update another textbox and have that textbox control source a field on the table. But again this doesn't work. Can someone tell me if what I am trying to do is possible. Thanks
View 1 Replies
View Related
Jul 19, 2013
My problem is related to an Access database, where an auto complete Combo box is used to select a client record by entering the ID number or the clients name. EG: 14034 or Bloggs,Fred. This problem has me puzzled (not difficult to do).I have seen this in a functioning DB. I can see that maybe the ID (a long integer) would have to be stored or converted to a string on the fly.
I am currently using Access 2007 but 2010 and 2013 are available (prefer 2007 as MS keep moving things around ).I am currently selecting a client record using either an ID select Combo or a ClientName Combo and works very well. But, after seeing it done in one Combo box, it just seems so elegant.
View 1 Replies
View Related
May 9, 2005
Have developed a support database in Access.
I need the dB to automatically pick up the username of the user logged on to the PC. Thus if I'm logged on to the PC as FLESTER, this username wil populate a database field.
Any ideas?
View 1 Replies
View Related
Jul 26, 2005
How do you get Access to pick up th OS username currently logged in to the database? For example I'm logged on to the PC as FLESTER and I wnat that recorded in the dB.
View 5 Replies
View Related
Oct 2, 2013
Is it possible to open a form to add a child record related to the highlighted record in the subform?
View 2 Replies
View Related
Nov 29, 2005
I have a form where there are many users to enter or update data. I need to capture the username who created a record , then , on form load , I want system to check for username if it is same as the creator of a record , then allow update , otherwise don’t allow update , but allow only adding new records. How can I do this
View 3 Replies
View Related
Nov 26, 2013
I have a field that records comments call house comments i wonder is it possible to record which user leaves what comment?
Code:
=ColumnHistory([RecordSource],"Comments","[ID]=" & Nz([txtID],0))
View 1 Replies
View Related
Dec 26, 2013
I am still new to Access code.
I was wanting to know if there is a way to Add the Username to a table as a default value when a new record is added. I know you can add =Date() to get the date. Is there a simple way to get the ID of the person logged into Window?
View 6 Replies
View Related
Aug 1, 2014
I am trying to match if a user has already started a record using the date and username. I have written the following code but I keep getting a error 94 about null. I know its an issue involving the date part. why this isn't working.
Code:
DLookup("TimeSheetID", "TimeSheet", "EmployeeID=" & Nz(Me.ListEmploy.Value) & " AND TimeSheetDate=#" & Date2 & "#")))
The full code
Code:
Dim Date2 As Date
Date2 = Date
If (Not IsNull(DLookup("TimeSheetID", "TimeSheet", "EmployeeID=" & Nz(Me.ListEmploy.Value) & " AND TimeSheetDate=#" & Date2 & "#"))) Then
lngEmployeeID = DLookup("TimeSheetID", "TimeSheet", "EmployeeID=" & Nz(Me.ListEmploy.Value) & " AND TimeSheetDate=#" & Date2 & "#")
DoCmd.OpenForm "frmTimeSheetMain", , , "TimeSheetID=" & Nz(lngEmployeeID), , , "NoTimeSheetID"
View 5 Replies
View Related
Jul 4, 2013
I have a form with a subform (in continuous) I have on the main form a few unbound text boxes which once im happy with the results i press a command button on mainform which adds the unbound text boxes to a new record on subform im struggling with this one. I have done similar before but that was with the unbound text boxes in header of the actual form i was adding record too.
View 3 Replies
View Related
Jan 25, 2015
I am new to Access and I was trying to create database for chemical inventory handling.I have two tables. one of my tables (chemical info) has information on chemical properties. I used "Cas NO" as primary key. I have another fields such as "chemical name", 'product number" and etc.
In Second table (chemical inventory) i have "ID" field as primary key and I used lookup wizard in order to fill "Chemical Name" field. I thought it will be easy to pick up name rather than typing it because the names were complicated.After I created two forms. one form is chemicals info form based on chemical info table and other one is LAb_inventory based on chemical inventory table.
I set up Lab inventory form as main form and Chemicals info form as subform. Linking field is chemical name. So that when I chose chemical name from combo box i can see inventory data in main form and chemical properties information in subform. Now i have two problems..One of them is when I add new record to my subform I cant see this new record in main form. I suppose it is because chemicals names of each form is derived from different tables. furthermore in main form instead of chemicals name i see "my primary key CAS NO".
What i want to achieve is add new record to chemicals info form and fill up all chemical information save and in the main form to add new record choose new chemical name which i just added and fill up inventory information.
View 1 Replies
View Related
Jan 25, 2015
I am new to Access and I was trying to create database for chemical inventory handling...I have two tables. one of my tables (chemical info) has information on chemical properties. I used "Cas NO" as primary key. I have another fields such as "chemical name", 'product number" and etc.
In Second table (chemical inventory) i have "ID" field as primary key and I used lookup wizard in order to fill "Chemical Name" field. I thought it will be easy to pick up name rather than typing it because the names were complicated.After I created two forms. one form is chemicals info form based on chemical info table and other one is LAb_inventory based on chemical inventory table.
I set up Lab inventory form as main form and Chemicals info form as subform. Linking field is chemical name. So that when I chose chemical name from combo box i can see inventory data in main form and chemical properties information in subform. Now i have two problems
One of them is when I add new record to my subform I cant see this new record in main form. I suppose it is because chemicals names of each form is derived from different tables. furthermore in main form instead of chemicals name i see "my primary key CAS NO". What i want to achieve is add new record to chemicals info form and fill up all chemical information save and in the main form to add new record choose new chemical name which i just added and fill up inventory information.
View 6 Replies
View Related
May 3, 2013
I am building a database for running a shoot. I want to be able to add Firers, Beaters and Picker Ups to each day. All of those people are held in a [Contacts] form and have a checkbox to designate them as Shooters, Beaters or Picker Ups or a combination of them
I have a form where I can create the shoot date and timings etc. Now I want to add people to the form.
My idea is to have a seperate form with a list of all the Shoot Dates, on the same form will be three more lists showing Shoot Date and ID, List of all Guns, List of All Beaters, List of all Picker Ups in the Database.
You would then select the shoot date from the first list which would highlight, then go each of the other three lists and select a checkbox next to each person that you wanted to attend that day.
I know what I want to do but dont know how to do it!
I have attached a picture....
View 5 Replies
View Related
Aug 9, 2013
I want to send out my database to a client so they can add records into it via the forms i've created, but I don't want them to be able to change the coding etc. But I also want to be able to update my database and send it back out to them but obviously the records they've entered need to remain. Do i convert it to an accde and then back to an accdb, make my changes then convert again to accde?
View 1 Replies
View Related
Nov 6, 2013
I have limited experience in Access, but I have managed to create a user form, where items are selected from comboboxes (Test results; when, who, outcome, etc)
At the end I have built in a command button that should add a record to an existing table, but so far no luck. I have used the following VB code for this:
Private Sub Save_test_results_KeyPress(KeyAscii As Integer)
Dim dbsICT_Test_Management As DAO.Database
Dim rstActual_test_results As DAO.Recordset
Set dbsICT_Test_Management = CurrentDb
Set rstActual_test_results = dbsICT_Test_Management.OpenRecordset("Actual_test_ results")
rstActual_test_results.AddNew
rstActual_test_results.Update
End Sub
View 6 Replies
View Related
May 22, 2013
Whenever I add a new record to a table with a form I created, it records the "ID autonumber" that it's associated with instead of the text. For instance, if I selected "Kevin" from a combobox list and had the form record it, it will show up as "1" in the table under the field name "Names".
View 3 Replies
View Related
Aug 31, 2013
I have a form based on a mysql table. There is a button in the footer to add a new record.
The pertinent vba code: DoCmd.GoToRecord , , acNewRec
It adds the new record and properly places the cursor in the first field. Immediately after the first letter is typed, the error message "Field cannot be updated" pops up. I can click ok and the message goes away and I am able to continue filling in the fields. The same thing happens if I add the record by use of the record selectors.
View 14 Replies
View Related
Oct 25, 2013
I'm working on a database that has a subform which pulls its data from a table and I'm trying to use a popup form to enter the data in the sub form. For example the table is called student debts. The form is called student debt. The pop up form is called student debt entry from. I want the inform that's in the student debt entry form to be recorded in the student debt form which is a subform on the main form. I know i have to create a add new records button to do it but not sure of the code.
View 4 Replies
View Related
Apr 9, 2014
I have a module that pulls the user name in the firstname.lastname format. This is the module (module name is fosUserName):
Code:
Public Function GetUser() As String
Dim WNet As Object
Set WNet = CreateObject("WScript.Network")
GetUser = WNet.UserName
End Function
I what to add a a text box on the welcome screen that says something along the lines of Welcome firstname (from the firstname.lastname that the code above pulls) what would you like to do? I need some code that will get me all the characters left of the period that separates the firstname from the lastname.
View 4 Replies
View Related
Nov 2, 2014
I have an error message or debug message in my code in username & password log in.. it has an error in if else statement
empname is a cobobox
empass is a txtbox
logempID is a autonum I.D
usrnmpass is a table name
there's an specific record in a table of usrnmpass showing in the attachment
this is my code....
Private Sub Command1_Click()
If IsNull(empname) Or empname = "" Then
MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"
empname.SetFocus
Exit Sub
End If
[code]....
View 14 Replies
View Related
Aug 1, 2013
how to automatically populate a certain field. To add some context, I have a form which registers the details of a contact with standard information of contact details. There is a subform which shows the different products that the client from the main form is interested in. This is a actually a data sheet which returns the results of a query (selecting from the relevant table the client in question and the products he/she wants).
I have added a button which opens up another form and allows a product (and hence a new record) to be added for that particular client. I would like that the form automatically populates one of the fields in the form that is the client id. Given that the subform is opened from a form which already identifies the client, how do I do this?
View 14 Replies
View Related
May 12, 2014
I have a main form with several subforms in tabs. From one of the subforms I list linked records to the main form (Clients) within that subform (Bank account details). I list the records and have a button to add new records.
Where the Client has one or more records in the subform the add button works perfectly.
When the subform has no records the add new records button produces the following error "Run-time error '2498' An expression you entered is the wrong data type for one of the arguments"
The add button has
Private Sub Command52_Click()
DoCmd.OpenForm "AddClientBankDetailsFrm", acNormal, , , , acFormAdd, OpenArgs:=Me!ClientId
End Sub
the "AddClientBankDetailsFrm" popup form has
Private Sub Form_Load()
If IsNull(Me.OpenArgs) = False Then
MsgBox "Form was opened with ClientID = " & Me.OpenArgs
Me!ClientId = Me.OpenArgs
Else
MsgBox "No ClientID was passed."
End If
End Sub
ClientId is the primary key of the main form and the secondary key in the new record.
View 14 Replies
View Related
May 29, 2014
I have a table with 2 fields in it - Type and Pallet_Case - using a form the user enters the name of the Type and then from a combo box selects either Pallet or Case. There is a button on the form that is to save the new record to the table. (code below) The strangeness that is happening is that when the new record is added to the table, whatever is the first existing record alphabetically in the table is changed to the same Pallet_Case selection that was made for the new record.
I have a list box that displays on the form that is updated after a new record is added to show what records exist in the table (this is done by a query of the table and sorts on the type), so I can see this happening without having to open the table. It doesn't matter what sort order I put the list box in nor the table it still changes the first record alphabetically. And it is only change the Pallet-Case field. I even changed the first record to something else and it still did this.
Dim dbs As DAO.Database, strSql As String
Set dbs = CurrentDb
strSql = "Insert into [PP Type TBL] ([Prepack Type],[Pallet Case]) Values ('" & Me.Type & "','" & Me.Pallet_Case & "' )"
dbs.Execute strSql, dbFailOnError
View 5 Replies
View Related
Oct 27, 2014
Created a button through button wizard that is supposed to open a form to add a new record, but all of the fields don't clear out. Only some fields clear and other fields actually populate data from another record.
Snip1 shows my form with a record selected. When I click the 'New Waste' button, you can see that the record ID goes to '(New)', but the fields actually populate data from another record.
This even happens if I set 'Data Entry' to yes for the form.
here's the code behind my button:
Code:
Private Sub btnNewWaste_Click()
DoCmd.GoToRecord , , acNewRec
End Sub
I even commented out my code for duplicating my record just in case but that didn't make a different.
Code:
Private Sub btnDuplicateRecord_Click()
Dim ctrl As Control
For Each ctrl In Me.Form.Controls
If ctrl.Tag = "DefaultMe" Then
ctrl.DefaultValue = """" & ctrl & """"
End If
[Code]....
edit: this problem persists in a backup database that only contains one test record. The button pre-populates data that doesn't exist in the back-up database.
View 10 Replies
View Related
