Forms :: Can Automate Adding Date / Initials To Memo
Apr 28, 2014
We have a memo field that folks may add to on different days. Additionally, different users may add notes if the person who started to work on the transaction is out of the office. My manager would like to add a way to include the date and initials of the person that added a new memo automatically after they add a memo. Currently, we don't track user login so I'm assuming we would have to in order to get their initials.
I have a Combo Box bound which gets its values from a table (T_Users).
The Combo Box displays the Users 'Initials' [Column 1], but the Bound Column [Column 2] is that of the Users 'ID' (which is used when a record is edited or a new record added).
What I want to be able to do is when the user clicks the Combo Box, and the drop down list 'drops down' the options, I want them to not only see the 'Initials' but also selected other columns - BUT - when the option is selected I just want the 'Initials' to be displayed in the Combo Box.
Code: So, Normal > | ABC |
Dropped Down > | ABC | -------------------------------------------- | ABC (Annabel Carcus, Big Company Ltd.) | | JB (Joe Bloggs, Medium Company Ltd.) | | FS (Fred Smith, Little Company Ltd.) |
I have a database where multiple users log in and work in 1 of 2 different forms. The 1st form in for initial data entry where users enter data then senter there initials and save each record. the other form is for QC'ing data that has been entered and they will add additional data to the form, then enter their initials and save the record.
How can I make it so that I can have a user once they log in to the database, it will autofill their initials? I have used a dropdown box before but it is not useful for people who have the same first name initial or worst, the same first and second initial because they end up selecting the wrong initials.
I do not currently have it set up where I have a login screen, I just have only forms visible to users when they enter data. Any easiest way to go about making this happen (I am just trying to shorten the amount of data entry that gets done).
>=[Date you wish to view DD/MM/YY] And <=[Enter the Date after DD/MM/YY]
I would like to automate this if possible, the dates are enter are always a set pattern
If its Monday I enter the previous Thursday and Sunday If Its Tuesday I enter the previous Sunday and Monday If Its Wednesday I enter the previous Monday and Tuesday If Its Thursday I enter the previous Tuesday and Wednesday If Its Friday I enter the previous Wednesday and Thursday I dont run rthe report on weekends
The statement below is a snippet from a union query and is repeated 6 times within the SQL Statement for various reasons, I have to manually change this every month, again is there i tiny bit of code I can insert to replace the following so that it automatically runs the previous months data.
We are running many MS Access databases in a mixed estate - mostly Windows XP terminals. The databases are split with the front end on the desk top and the back ends on a server running Windows Server 2003. We have a chronic problem of crashes when users go back into memo fields to add data - all text. The problem is intermittent, not possible to reproduce and varies in frequency.
I want make a date control compulsory if a value is selected from a combo list on the same form.
I have Combo List, status, which can be 25%, 50%, 75%, WON or Lost. If the value is WON or LOST I want the date control, Date Project Closed, to be compulsory. I cant set it to insert today's date as it may have been closed up to a week before.
If 25%, 50% or 75% are selected then the date should not be compulsory.
I have code which is attached to onclick of a checkbox,
What I want it to do is if the user clicks it and checks it then to add some note to a memo field, if the user clicks it and its already checked then it doesn't add a note to a memo field.
Code: Private Sub Check45_Click() If Check45 = 0 Then Check45 = 1 If Len([Forms]![Customer]!Notes.Value & "") = 0 Then
[Code] ....
But I can't seem to add any other lines which make sense to me that it doesnt add "letter sent" to a memo field if its already checked?
I'm using Access 2007 and building a form with controls that will be used to query one of the tables in my database. To pull back results from this table between two dates I have used the "Add Fields" method to drag and drop two textbox date pickers onto the form from the list of available fields. Both of these controls are bound to the same date field in the underlying table.
Will this cause problems when a user attempts to select two different dates on the form? Will a date on the first control be mirrored on the second control and vice versa? Should I remove these bound controls and add two unbound textbox date pickers in their place?
I also need to ensure that the date selected on the second control is the same or later than that on the first.
I have a date picker field in my form that is used as part of a criteria in a query. I also add it as a result field in the query being that it is appending data to a table. But when the query runs it puts weird characters into the query field with expression.
The Expression is as follows:
BillWk: [Forms]![Invoice Form]![WkEnd]
My Criteria is: Between [Forms]![Invoice Form]![WkEnd] And [Forms]![Invoice Form]![WkEnd]-6
I want code with message that can prevent user to adding a new record for an employee within specific of date through a form in the Ms Access database, but after a period of date i can, For example (after two months of the last record on the main table i can add the new record, otherwise the message will popup tell the user that this employee didn't complete tow months of last adding)
I have a Paycheck form with a subform on it. The goal is to not have to click on the check field for every paycheck, instead use a Batch procedure. When you click in the subform (field) (CCheckNo) which gets the focus by default it advances to the next check number and performs other code operations. If you have a lot of checks this is not very user friendly. I created a command button on the subform to try and auto ate this process. Below is the code for this. It gives no errors but does nothing. The db is very complex. The form opens to the first record but can't be sure when the user could run the Batch procedure.
The idea was to try and use the OnClick procedure to run the event code. The field in question is CCheckNo which advances the check number.
frmBonusReimbursementChecks is the Main form. (Check) form is a Subform CCheckNo field gets focus on Load which is the Subform.
Code Below is on a Command Button on the Subform.
If MsgBox("Are you sure you want to Assign All Checks?", vbYesNo, "All Checks Confirmation") = vbYes Then End If If IsNull(Me.CCheckDate) Then 'If no Check Date, Assign One. Me.CCheckDate = Date End If If IsNull(Me.[CCheckNo]) Then 'Advance to the next available Check Number. Me.CCheckNo = Next_Custom_Counter
Seem to be having a brain fade here, I have spent all day trying to figure this out. I am trying to add notes to one of my forms with a date stamp. The form will be viewed every week so new notes will be added with new date stamp any ideas of the best way to do this.
Note that there will be varying combinations: some people will have a Prefix, Firstname then surname (no middle initials), so I would want to display "Mr Joe Bloggs". But others could have no Prefix but two middle initials, so "Joe P J Bloggs".
I am trying to automate a membership status flag based on comparing today's date and a recorded expiry date. The expiry date control is on a sub-form. I have the following code in the OnLoad event of the master form:
Dim DateGap As Integer While Me.CurrentRecord < Me.Recordset.RecordCount If Not Me.NewRecord Then DateGap = DateDiff("y", Date, Forms!PersonalMasterF!MemberSubF.Form.MemberExpire ) Else DoCmd.GoToRecord , , acNext
[Code] .....
With debug pointing to the DateGap = statement I get the error 'Invalid use of Null'. As you can see, I've tried to trap any new records it might run into to avoid nulls in MemberExpire, and there are no null values in the MemberExpire field of the underlying table. I've also tried defining DateGap as Variant, which does not work at all.
The main form contains a combobox, populated from a query which pulls in specific data (time) from a table
The subform is linked to the combo box on the main form. Based on the combobox selection, the subform updates with associated records with the combobox selection
I would like to add additional functionality in the form load event, that would read the current time and identify the nearest value in my combobox.
I have tested the code below behind a button and it works
If Time() > "13.00:00" And Time() < "14:30:00" Then MsgBox "The Time is " & Time() cboPricingCADeadline.Value = "14:30:00" Else cboPricingCADeadline.Value = "NA" End If
Would a loop through the recordset of the Combobox be best used here? Set the first and second values of the recordset to variables, query the time and then return the value if statement is true, or move to the next record in the rs replacing the first and second variable values
eg If value1 > time() and value 1 < value2 then cboPricingCADeadline.Value = value1 end if
If this is a good lead, how do I go about setting up my recordset?
I have an application that has a text box on a form that points to a memo data type.
On the form, I wish to allow the users to insert the system date with a short-cut key. (Trying to use Ctrl-D).
I have coded a Keypress Event that checks for the Ctrl-D. "Current" code is below: =============================== Private Sub PM_Comments_KeyPress(KeyAscii As Integer) Dim MyString As String Dim MyDate As Variant
'Check to see if user pressed Ctrl-D If KeyAscii = 4 Then
MyDate = Date MyString = Format(MyDate, "Short Date") & ":" SendKeys ("") ' Perhaps I need to dump the Ctrl-D in the buffer??? SendKeys (MyString)
End If
End Sub ================================== I say current because I have tried MANY variations. The code is executing properly on the Ctrl-D. I have watched the variables in debug mode and they contain what I want, namely "mm/dd/yy:" for the current date. Problem is, it inserts the TIME in the memo field. And it is the system time, not the integer of the date formatted into the time.
Crazy thing is, in debug mode, the darn thing will do what I want and insert the date in the VB editor page. Just won't do it in the memo field on the form.
We have a memo field that we use for on going notes. Each day they may type more notes. Is there a shortcut key, a button, or a way to automatically enter the date and time before the notes?
I have a memo field on a form. I am trying to autopopulate it when entered into. For example: I enter in clients info and then tab to the memo field and it automatically enters date and time. Then later when I go back to that same record to append to the memo field it adds the current date. This way I can go back and see all the dates and times when that person called. Any idea how to do this? Thank you
