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.
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.
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?
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
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:
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
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
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:
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).
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.
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.
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.
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.
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.
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
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.
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?
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?
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.
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.
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.
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:
