General :: Append Comments Field With User Name
Aug 20, 2013
I need to save a user's machine name when they comment on a record.
I have a form that has a comments field, and a separate area that shows the historical entries from comments.
I also have an invisible field populated by "=fOSMachineName()" that shows the users machine name. Getting this running was tough on my 64 bit machine, but it now works!)
I wish to have the machine name included in the comments field every time the "Save Record and Close" button (which runs a macro) is clicked.
Right now, when someone adds comments, it shows a date and time stamp (which I still want to keep) but I want to also capture the machine name at the same time.
View Replies
ADVERTISEMENT
Mar 26, 2014
How to extract the comment system from the Contacts Web Database template found in Access 2010? I can upload it if you like.
I would like to use it in a standard desktop database to track notes and comments in my records.
I am able to convert it from web to standard, but it still appears to use data macros or something, and my knowledge on macros is limited.
I just want to keep a history of my notes for each record, with the most recent always listed, and the comment system in the Contacts Web Database template seems perfect for that. I just don't know how to implement it into my desktop database.
View 1 Replies
View Related
Sep 18, 2013
We have created a database where data entry happens on the first form. So far all is working well on this form except users complain there is not enough space for comments. I set up a column for comments, but it is limited to 255 characters. What/How else can I set this up to provide a lot more room?
View 1 Replies
View Related
Nov 27, 2012
I should change the Fields(1) and Fields(2) to the actual fields names.
field 1 should be EmployeeListID
field 2 should be ItemsID
PHP Code:
Dim rs As dao.RecordsetDim db As dao.DatabaseSet db = CurrentDbSet rs = db.OpenRecordset("tblEmployeeItems",
dbOpenDynaset)rs.AddNewrs.Fields(1) = Me.[lstAvailableEmployees]rs.Fields(2) = Me.
[lstAvailableItems]rs.Updaters.Closedb.CloseSet rs = NothingSet db = Nothing
View 3 Replies
View Related
Oct 24, 2005
Hopefully there's someone who can help me with this!!! I've had several unsuccesfull attempts and don't know what else to try...
We're trying to force users to make entries in a field called txtComments in the frmQuestionnaire form if they provide negative responses and to stay on that record until the comments are changed. Inside the form is an option group (fraResponses) which contains options (OptA, OptB..etc.) valued from 1 through 7, based on a likert 7 scale. We're only using a likert 6 scale, so the respondents will only see 2-7 on the form. If they options B-D (valued 2-4), they are considered negative, so we want to make sure they enter a comment.
I tried to enter the italicized code under the form on BeforeUpdate, AfterUpdate, CmdUp (click to next question) and CmdDown (click to previous question), with frmQuestionnaire but nothing happens:
There is a module called clsUser which contains the following and where I tried to insert the code:
Set myForm = Forms!frmQuestionnaire
' ================================================== ==
' First, set the value of the variables
' ================================================== ==
lngQuestion = arrQ(lngArray, 0)
lngSession = GetCustomInfo("TestSession")
lngUser = UserID
lngBillet = BilletID
strComment = Nz(myForm.txtComment, "")
strComment = "None"
'If user selects negative responses
If Form_frmQuestionnaire.fraResponses.OptionValue = 2 Or 3 Or 4 And strComment = "None" Then
MsgBox "Please explain the problems you encountered with the system which " & _
"caused you to select an unfavorable response."
Form_frmQuestionnaire.txtComment.SetFocus
End If
lngResponse = myForm.fraResponses
When I place the code there, the dialog box appears for all values and goes to the next record. This is what appears for the CmdUp (click to next question):
If cUser.blnDirty = False And Me.fraResponses = 153 (this is default value for the entire option group) And cUser.blnNew = True Then
cUser.blnDirty = True
End If
cUser.CaptureAnswer
If cUser.lngArray < cUser.UBound_ArrQ() Then
cUser.lngArray = cUser.lngArray + 1
Else
cUser.lngArray = cUser.UBound_ArrQ()
End If
cUser.FillQuestions
cUser.blnDirty = False
I've tried to enter the line of code with the form and the module, but no luck.
I also want it to remain on the same record until the field is changed. The form is unbound and has the following:
Public Sub FillQuestions()
'************************************************* ****
' Purpose: Scroll through the questions
'
' Assumptions: N/A
'
' Effects: N/A
'
' Inputs:
' None
'
' Returns:
' None
'************************************************* ****
Dim lngRG As Long
Set myForm = Forms!frmQuestionnaire
myForm.txtQuestion = arrQ(lngArray, 1)
lngRG = arrQ(lngArray, 2)
myForm.prgProgress.Value = lngArray + 1
myForm.lblProgText.Caption = "Question " & (lngArray + 1) & " of " & lngQuestions
myForm.lblTS.Caption = "Test Session: " & arrQ(lngArray, 3)
myForm.lblQID.Caption = "Question ID: " & arrQ(lngArray, 0)
GetResponseSet lngRG
FillAnswers
If lngArray = 0 Then
myForm.txtComment.SetFocus
myForm.cmdDown.Enabled = False
Else
myForm.cmdDown.Enabled = True
End If
If lngArray >= UBound(arrQ) Then
myForm.txtComment.SetFocus
myForm.cmdUp.Enabled = False
Else
myForm.cmdUp.Enabled = True
End If
End Sub
Public Sub FillAnswers()
'************************************************* ****
' Purpose: Fill out the user's previous responses
'
' Assumptions: N/A
'
' Effects: N/A
'
' Inputs:
' None
'
' Returns:
' None
'************************************************* ****
Dim strSQL As String
Dim recAnswer As New ADODB.Recordset
Set myForm = Forms!frmQuestionnaire
strSQL = "SELECT datResponse.reDatQuestionID, datResponse.reDatRespondentID, "
strSQL = strSQL & "datResponse.reDatResponseSetID, datResponse.reComment "
strSQL = strSQL & "FROM datResponse "
strSQL = strSQL & "WHERE datResponse.reDatQuestionID=" & arrQ(lngArray, 0)
strSQL = strSQL & "AND datResponse.reDatRespondentID=" & UserID
recAnswer.Open strSQL, CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic
If Not recAnswer.EOF Then
myForm.fraResponses = recAnswer!reDatResponseSetID
myForm.txtComment = recAnswer!reComment
blnNew = False
Else
If myForm.fraResponses <> 152 Then
myForm.fraResponses = 153
myForm.txtComment = ""
blnNew = True
End If
End If
recAnswer.Close
Set recAnswer = Nothing
End Sub
Thanks in advance for your help!!
View 1 Replies
View Related
May 5, 2015
Having some trouble with a memo field. For each record, the notes field is present on the Form.... I added an unbound text box (txtMemoAdd) and a command button (Add New Note). When the button is selected, it adds the note to the Read Only Notes Field and adds a timestamp using the following code:
Me.Notes = Me.Notes & vbCrLf & Now () & VbCrLf & Me.txtMemoAdd
Me.txtMemoAdd = ""
The note is added to the bottom, and I was wondering if there was a way to make the new note go to the TOP of the field (Descending Order rather than Ascending).
View 5 Replies
View Related
Jan 15, 2015
I have one memo per change (user input)...I need to have the comment the user inputs to copy into other records that were queried. I tried insert. My coding does one of the records or all of the records ..I need it to copy just to the queried records ...and I have a query but no filter set.
View 4 Replies
View Related
Feb 19, 2013
I have a form that i want to some how in a text box post a time stamp anytime information in a certain field is changed by another user.
The time stamp shows on the table only when the table is saved or imported.
Is there a vba code i can attach to a text box that will show me anytime an entry is made?
View 4 Replies
View Related
Apr 24, 2013
I have a multi user database in Access 2000 that is on a server. The individual users have shortcuts pointing towards the server instance. One user and one user only when opening the shortcut gets the error "you do not have exclusive rights to the database" .
All other users can enter the database with no error box. I have checked the advanced setting under options and they are correct. Ironically if you go to start and open access then navigate to the database shortcut. It opens with no error.
View 1 Replies
View Related
May 20, 2013
How I would go about appending data to a table that has been entered by a user on a form.
My initial idea to tackle this was to create a number of text boxes as a method of user input which would all then transfer to a table but this doesn't have much longevity to it(if the database requires additional columns to be added, etc.)
The setup at the moment is two tables, a main table, and a temporary table(which is where I intend to first store the user input, this is so that the user can view what they have entered and make any necessary changes(undo))
I'm wondering if there are any easier ways to go about this such as, a msgbox appears and asks the user to enter each individual column data for a row. This doesn't sound like the most efficient way but efficiency isn't a priority right now and is something I'll look at later.
I'd like it so that a user can input data into a number of text boxes, a button has an onclick event that will append all entered values to the temporary table, this is then relayed(I'm assuming through requery?) back to the user as a way of checking before really adding it to the main database, and then if they're happy there is another button which is then enabled so they can add it to the main database.
View 9 Replies
View Related
Sep 17, 2013
I have an append query that currently looks like this URL...This query automatically adds the machine parameters for a product code and lot number into the running condition log. This is so the user does not have to manually go in and tediously select each machine parameter.
The running condition log also has a date field to specify what day and record number the machine parameter's value was recorded on. When I run the query the appended rows look like this. The product and lot are defined by user parameter and there are actually about 36 machine parameters
Code:
Productstockcode LotNo Day Record Parameter ActualCond
PE-500 130816m71 StockTemp
PE-500 130816m71 Zone 1
PE-500 130816m71 Zone 2
My question is: how do I modify the query to automatically add the date and record number in one shot? It needs to be user defined at the time of the query because this data is not stored anywhere else in the database. For each 36 machine parameters the day and record would be the same.
View 3 Replies
View Related
Nov 1, 2007
Hi Alli,
I have a database that has a comments field. The database has a status field: Plan Test and Run,
in the comments field the user adds comments, i'm trying to updated the comments with the status, for example; the user added some comments like. "The test will begin next week" I want the comments feild to automatically get updated when the user changes the status for example to Run, I want the "run status to be added to end of the comments line" can somebody help? Thanks.
View 3 Replies
View Related
Dec 17, 2005
I would like to insert comments into my sql code (select query > sql view window).
I tried with usual sequences such as /* ... */ but it doesn't work.
Does anyone knows the right sequence ?
Thanks.
View 6 Replies
View Related
Apr 12, 2006
How can I add comments in an SQL Query mode? ",',?, ; None of these work with text following them.
View 1 Replies
View Related
Aug 3, 2006
On our site we have option where users can add coments to articles. Lately some people have been misbehaving. I wish to add a field in .mdb file and call it "approved". If the field contains "1" then it's ok to show the message, if the field has nothing in it comment will not be shown. How do I implement this into below code. I wish to leave posting as is, just not showing not yet approved comments.
Thank you in advance. (comments are shown in <td>" & rs("Comment") & "</td> part)
Here is the code:
' show past comments
If Not rs.EOF Then
s = s & " <tr bgcolor=""" & TitleBGColor & """>" & vbCrLf
s = s & " <td colspan=""3""> Comments:</td>" & vbCrLf
s = s & " </tr>" & vbCrLf
While not rs.EOF
s = s & " <tr class=""" & TitleClass & """>" & vbCrLf
s = s & " <td> </td>" & vbCrLf
s = s & " <td>From:</td>" & vbCrLf
s = s & " <td>" & rs("Name") & " (" & rs("DateAdded") & ")</td>" & vbCrLf
s = s & " </tr>" & vbCrLf
s = s & " <tr>" & vbCrLf
s = s & " <tr class=""" & TitleClass & """>" & vbCrLf
s = s & " <td> </td>" & vbCrLf
s = s & " <td>Comment:</td>" & vbCrLf
s = s & " <td>" & rs("Comment") & "</td>" & vbCrLf
s = s & " </tr>" & vbCrLf
s = s & " <tr>" & vbCrLf
s = s & " <td> </td>" & vbCrLf
s = s & " <td> </td>" & vbCrLf
s = s & " <td> </td>" & vbCrLf
s = s & " </tr>" & vbCrLf
rs.MoveNext
Wend
End If
View 1 Replies
View Related
Aug 22, 2006
Hey,
In the form I am creating, I have checkboxes. Some of these checkboxes, when ticked, need additional comments entered into a comments box.
Only when the box is ticked, the comments box should appear/become enabled.
Any pointers in the general direction I should help would be greatly appreciated.
Thanks.
View 6 Replies
View Related
Mar 10, 2015
I am having problems with an append from a spreadsheet into a pre-populated table. I am using a macro to do this.
The table is in the middle of a hierarchy of tables. For example:
table 1 - Audit - key: AuditNumber & AuditName
table 2 - Process - key: AuditNumber & AuditName & ProcessRef
table 3 - Risk - key: AuditNumber & AuditName & ProcessRef & RiskRef
table 4 - Controls - key: AuditNumber & AuditName & ProcessRef & RiskRef & ControlRef
table 5 - Control tests - key: AuditNumber & AuditName & ProcessRef & RiskRef & ControlRef & TestRef
The front end of the database has a form for each table. Once you create an Audit in table 1 you can create multiple Processes underneath this one audit. Underneath a process you can create multiple Risks...... hence a hierarchy.
I am trying to append data to table 4 - controls. I have copied the format exactly into excel. I have also prepopulated the Audit, Process and Risk data in the required tables.
The reason I want this functionality is to enable team members to populate control information (oftentimes up to 25) in excel and then upload them easily into the database.
The macro I have created will work when created a new table. but when I point it at the existing table 4 - Controls I get the Key value violation error.
View 5 Replies
View Related
Feb 6, 2013
I have Office 2010 working on XP Pro SP3.
This is the first time I have tried to append/import a bunch of names and addresses from a spreadsheet into my access table.
I thought it would be easy with all the integration of applications but it's not. What happened to the bit where I could match the fields where it's not quite the same name and set the type so it worked OK.
All I seem to be able to get at at the moment is a wizard which does a very poor job and won't allow me to append the records. I tried exporting the Excel as CSV - same thing - error messages.
Is there a way of matching up the fields so everything works? What am I missing - this should be a cinch right?
View 3 Replies
View Related
Sep 3, 2013
I select records from a table based on criteria:
< Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT * FROM [tblLVRWrittenStatements] WHERE [tblLVRWrittenStatements].[seedrsID] = " & seedrsIDVar & "") >
I now want to append these filtered records to another table called ArchivedWrittenStatementsTable;
< CurrentDb.Execute "INSERT INTO [ArchivedWrittenStatementsTable] SELECT * FROM rst" >
Would be lovely except rst not recognised. Is there a way of achieving this without having to <addnew etc > looping through the records.
View 1 Replies
View Related
May 20, 2005
We have several users that access the same database. Is there a way to make it so that the users can add comments to the "coments" field on the form, but not remove any comments once saved?
View 1 Replies
View Related
Aug 23, 2005
I have a comments on my form. I have contacts with them having from 1 to many customers accts. I am trying to come up with a way to update the comments for a contact that adds those comments to all their customers records...but not to those that have been closed.
How would I add these comments to the comments on the form without overwriting the current comments.
Comments - Memo
Contact - Text
It's quite a pain, copying and pasting from record to record.
Thanks
View 1 Replies
View Related
Feb 6, 2006
Help please!!!!
Firstly, I would apologise as I am not overly familiar with the correct terminology!
I need to create a "space" on my form whereby I can add comments etc which will exceed 255 characters: these comments will be specific to each record. I have tried having an "unbound" text box in design view but this makes the comments the same on each record.
I know this is probably "as clear as mud" but if anyone can help I would be really grateful.
Thanks,
Emma
View 3 Replies
View Related
Sep 7, 2014
I am developing a new tool which needs to show the history of updates to the users, i.e.:
An observation is entered into a field on the MAIN FORM by user 1.
User 2 reviews the observation on the MAIN FORM and adds a separate comment in another field on the same form.
When the record is saved, the updates are NOT written to the Main Form Table but to the UPDATES TABLE for audit purposes.
I am also using current date/ time as a timestamp, which is protected and needs to be carried over to the UPDATES TABLE Every time a new comment is added in the MAIN FORM, I need it to be written to the UPDATES TABLE as a new record.
What I need to be able to show is:
Each comment added, as a list of readable records, in a table within the main form AND Each time the main form is refreshed/ opened the separate comment field is blank to enable each new update to be applied.
View 4 Replies
View Related
Nov 21, 2014
I'm trying to make a text box for comments that grows as the user types to fit the comment perfectly.
The comments can be anywhere from 2 words to a paragraph long.
Is this even possible? If it is, is the best place to do it on a form?
I've made a text box and tried the "Can Grow" property, but that doesn't increase the size as you type.
I'm wondering maybe if there's a VBA "After Update" Code that will readjust the textbox to fit the code?
View 1 Replies
View Related
Nov 12, 2012
how to change existing comments on a report?
View 1 Replies
View Related
Dec 28, 2012
I am trying to accomplish this in a macro. I know I was able to do this in older versions of access.I want to get data from a query and paste and append into a table. When I started to design the macro this is far as I got:
Qry Name: GetData
Table Name Storedata
Macro:
1st OpenQuery
Query Name: GetData
View: Datasheet
[code]...
The ? marks I cannot find any options in the macro actions catalog.
View 6 Replies
View Related
