Benn looking through other posts and have found some things which look quite similar but nothing which answers the question simply enough for my standard!
Basically I have a form with 5 fields...Number, Name, Location, Date and Owner.
All fields are locked apart from Location and Date.
I have a combo box which lists the field "Number" and then displays the record's data. The aim of the form is to be able to update the Location field easily.
A user entering the form would use the combo box to select say number "3243". This would bring up record number 3243. The date displayed would be the last updated date. Currently 23/08/05. I am trying desperately to get the Date to refresh to the current date as soon as someone changes the "Location" field. I have tried putting in the AfterUpdate part of Location...Me.Date.Requery.
I feel that I may be well off track but that the answer I require is not too difficult. Please could someone advise?!?!
TIA.
--Update--
Think I've sorted it now everyone!!
My code looks like this, seems to do the trick.
Private Sub Combo15_AfterUpdate()
Me.Date = Format(Now(), "dd/mm/yy")
End Sub
I guess I should learn to try my hardest before posting here!! :)
I have a form open with a Text box displaying todays date, I have used the default Date().
If the user leaves the form open over night the date is still set to yesterday, any ideas how I can refresh the default? I want to refresh just that object nothing else.
I have a form with (among others) a Y/N field and a multivalued field. The Y/N field indicates whether or not the resident is year-round or not (seasonal/snowbird). The multivalued field contains the months the resident it here. The user wants me to auto-select all months in the multivalued vield when the year-round field is set to yes in order to minimize data entry.
I have been trying to use an AfterUpdate Event using the following syntaxes as a test but Access doesn't like the format at all:
[Master Table].[Months Available].[Value] = "June" (this gives 2465 error) Me ! [Months Available].[Value] = "June" (this gives a 424 error)
I'm not at all fluent with VBA but have been successful in populating form fields using data fields in another table so thought this would be similar.
Any way other than not to use multivalued fields? Because that isn't an option.
I have a combo box, 'Type' that has two values - "Instrument" and "Equipment".Another combo box control, 'Criticality', has an Enabled = False value set OnCurrent.
When the user selects "Equipment", Criticality goes Enabled = True and when OnUpdate to "Instrument", Criticality goes Enabled = False.The Criticality field correctly displays and switches off if someone selects Instrument.
However, if someone puts a value in whilst Type is set to "Equipment" and then Type is reset to "Instrument" and in the meantime the user has selected a value for Criticality, the value stays 'stuck' in the Criticality box, despite the field being disabled. It is a bound field.How do I purge any contents stored in Criticality when the field is disabled? I presume it's something like an SQL statement to set the value to null, but I'm not quite certain.
In namefield_AfterUpdate, I check for duplicate name entries and notify the user if any are found - they are prompted as to whether the duplicate was accidental or intentional and continue working. This works fine for normal circumstances.
However, if the user updates namefield so that the value is a duplicate of an existing name in the database, but then presses Cancel (or Delete), then the namefield_AfterUpdate is fired and what button they pressed. The button Click code does not run first.
How can I tell if the user updated the name, but then realized they didn't want to save, and then clicked 'Cancel' (or any button) and the code should really skip the duplicate check validations/messages?
I had a table with an ID field defined as AutoNumber. It contained a large number of records. When I deleted those records, and added a new record, it was alloted an ID which was an increment of the last ID when the Table was full previously.
I want that the AutoNumber ID be ReNumbered from start if any record is deleted.
I've got a form built on a tab control. The form is a sales order form with multiple tabs. One of the tabs is used to enter shipping information and cost. The problem I'm having is:
A field I have added to this tab which is a stored total of the sales order total plus the shipping charge is not showing up after I enter the shipping charge until I switch tabs and return back to the shipping tab.
It's been a while since I've dealt with these refreshing problems. Which event is happening when a tab control is switched so I can call it to trigger my field total?
Btw, the shipping information on that tab is a subform.
I am building an Access database for a client. It is an employee staffing database. With that being said they would like the ability to automatically populate the "T2PPCD" date field based on what is entered into the "Report Date" field. (Same table)
The date is the Monday after 180 days from the report date.
I already know how to get it to auto fill 180 days from the "Report Date" but I'm not sure how to tell it to give me the Monday after 180 days.
Hello I have a three field table viz ItemName, ItemCode, ItemRate wherein ItemCode is Autonumber. What I needed was if I select 3 from dropdown of ItemCode, both ItemName & ItemRate be displayed on the form. A combo box can use to show one value and put other, but for twin values someone sugggested to use the AfterUpdate event. Is there no other way? I don't know how to code in Access. Can you please guide? Thanks
I'm trying to get my "IncidentDate" field to autopopulate two other date fields to a few days from the "IncidentDate". The other two date fields are "ContainDueDate" and "RootDueDate". I'm trying to accomplish this on my "Test CAP Form"
I tried using the following in the BeforeUpdate of "ContainDueDate" and received a complier error: expected =
Code : DateAdd(d,2,[IncidentDate])
so I removed the parenthesis and nothing happened
Code : DateAdd d,2,[IncidentDate]
I even tried redoing it in the AfterUpdate of "IncidentDate" and nothing happened either
Code : DateAdd d,2,[ContainDueDate]
I'm not sure if I'm even using the right function to get what I want.
Is there a central reference on the net that explains the pro's and con's of each of the event types. I historically have used the OnChange event until the other day when someone suggested using the AfterUpdate instead.
Would like to ensure that I have the best event trigger being used where possible in various situations
I Can't figure out why this doesn't work on a form that I want to populate the Timestamp field when they edit the record. Looks like it works for others that have posted. Do I need to add a New Reference to the reference Libary? I'm running Access2k
I get an error box stating the procedure declaration does not match description of event or procedure having the same name.
What am I missing?
Private Sub Form_AfterUpdate() Me.Timestamp = Now() End Sub
I have a field on my form which I want to display a message box when something is entered.Private Sub BoI_AfterUpdate()Box = Msgbox("Is the booking date at least 7 days before the hiring and no more than 8 weeks in advance? If so, click Yes, otherwise, click No. You can check the calender on the Open Form under the 'Miscellanous' tab to check the date. Thank you.", vbYesNo, "Validation")If Box = vbYes Then Cancel = FalseElseCancel = TrueEnd IfEnd SubThat's my code, but I get an error after I type something in that field (BoI)."Compile error: Else without If" I have tried it with 'ElseIf Box = vbNo Then Cancel = True' but that also gives the same error.What's wrong with it?Thanks in advance. :D
I have a form with shipper information (5 fields) and a separate form/table of shippers. I want the ability to either enter shippers on the fly (one time shippers) or the option of picking a shipper from the shipper form/table and having it populate the 5 fields.
This is what I have and it works.
Private Sub FrgnShipCombo_AfterUpdate()
Me.FrgnShipName = Me.FrgnShipCombo.Column(1)
End Sub
Im looking for the how to use this method on multiple fields
I know what I want to do...but have no idea how to get started! I'm new to coding and using macros and quesries doesn't seem to help.
When field [TermDate] is updated with a value, I want to move the record from table [BadgeData] to table [Termed]. I'm sure this is easy for someone who'll be willing to throw out a few suggestions.
Also, is there anywhere in the code builder that will help identify what code (or commands) do? (Does that make sense?)
I've inherited a database into which the user (not me) is entering essentially the same Date data twice: field 1 contains 6/19/2014 and for field 2 they enter June-14 (the month and year from field 1).
I suspect there should be a way to derive and then reformat the display of field 2 based on the contents of field 1, such that the user only has to enter the first. Is this true? If so, how?
(I know there really is no need for the 2nd field, but existing reports and queries are built around it -- so for right now, I'm just trying to eliminate the duplicate data entry)...
Hi. i am very thankful for all your help in my other queries for my database. i have one last question and i guess i will be done after that. i have a form which have 3 fields one is Number and the other is group and the next one is Account. all of them are combo boxes. I am trying to add this function in the Number field text box properties in afterupdate event which is as follow
Sub Number_Afterupdate() If not isnull(Number) Then Number=Format(Number, "000000") Endif End sub
The code is working fine. i debug it and run it no errors. i want to put this function in afterupdate. i copied this whole thing in the afterupdate box and when i go back to my control form try to enter numbers in the Number field it gives me this
Msaccess can't find the macro "private sub Mynumber" the macro or its macrogroup does not exist or the macro is new but has'nt been saved.
Can anyone help me out what i am doing wrong ? or can tell me steps what to do i really appreciate that and thanks alot FONZ :)
I have a split, shared database in which the Before and AfterUpdate events on my forms are not working at all. I tried setting a breakpoint to verify this and, sure enough, they are not firing.
Does anyone have any clue as to why this may be occurring?
Thanks so much for the help. I have tried searching the forum with no luck.
I'm having problems trying to get an If statement working on my form. What I have is a form with two combo boxes linked to a Calendar when you click on the arrow. I can get the dates I select from the calendar into the combo boxes which works perfectly. What I wanted to do then was create a textbox to list the number of days between each date. I have created an If statement for me to do this, which works fine. The problem I am having is that it doesn't seem to update these changes on the form after the date has been changed.
I have placed the code in the AfterUpdate event on both of the combo boxes and also in the Form Current Event.
Anyone any ideas?
If you want to see the If statement let me know, but I don't think it's that.
Below is the code I have created to calculate the values "CalcValue" and "CalcWork". The values for AssignValue, AssignPriority, Complex, Effort, Goal are all assigned by the selection made in the referred to/related combo boxes. However, the caluclated values return the concatonation of the intergers and not the sum of the integers. Additionally, if I am to use the CDec() function how do I specify the number of decimal places?
what am I missing here?
thanks!
Private Sub cboAssignPriority_AfterUpdate()
Dim CalcValue, AssignValue, AssignPriority, Complex, Effort, Goal, CalcWork As Integer
I"ve got a unbound combo box (customername) that has two events (on click); AfterUpdate and NotInList.
The AfterUpdate uses a 'me.recordsetclone' in order to display other data in controls associated with customerid/customername from the Customer table.
The NotInlist, does just that, adds a new customer name to the list along with a new autonumber (used as customerid).
The problem is that I'm getting two entries (different autonumbers). I can't figure out what I'm doing wrong. If I remove the 'AfterUpdate' event, then I can't bring up the customer's data, since then there's no connection to the customername/customerid.
If I remove the Not in List, then there's no way to add a new customer. I reconfigured NotInList many many times and still I get 2 entries. One entry has Customer 'name only', The second entry has name, address, city and the rest of the fields as entered.
I tried setting an index (on Customer table) with CustID and CustomerID, making them unique, but still I'm getting 2 entries whenever I use the 'NotInList'..........Help Help,,
Here are these events:
Code: ( text ) Private Sub customername_AfterUpdate() Dim rst As Object
Set rst = Me.RecordsetClone
rst.FindFirst "CustomerID=" & Me![customername] If Not rst.NoMatch Then
Me.Bookmark = rst.Bookmark Else 'Not found! End If Forms![Add or Delete Customer]![customername].Requery End Sub
Code: ( text ) Private Sub customername_NotInList(NewData As String, Response As Integer) Dim strSQL Dim FirstName As String Dim LastName As String Dim SpacePosition As Integer Dim lngNextID As Long
' Find the highest Cust ID in the Customers table and add 1 lngNextID = DMax("[CustID]", "Customers") + 1 custID = lngNextID
SpacePosition = InStr(NewData, " ") If SpacePosition = 0 Then MsgBox "Your entry requires a space to separate First and Last name." & _ vbNewLine & vbNewLine & _ "Please enter a First and Last Name or choose an entry from the list.", _ vbInformation, "Invalid Data !" Response = acDataErrContinue Exit Sub End If
' Trim the data into first and last name using the space position. FirstName = Trim(Left(NewData, SpacePosition - 1)) LastName = Trim(Mid(NewData, SpacePosition + 1))
If FirstName = "" Then MsgBox "You have not entered details for the first name" & vbNewLine & vbNewLine & _ "Please fix entry.", vbInformation, "Invalid Data !" Response = acDataErrContinue Exit Sub End If
If LastName = "" Then MsgBox "You have not entered details for the last name" & vbNewLine & vbNewLine & _ "Please fix entry.", vbInformation, "Invalid Data !" Response = acDataErrContinue Exit Sub End If
MsgBox "An account for this person does not exist....." & vbNewLine & vbNewLine & _ "Now creating new Customer Account.", vbInformation, "Unknown Customer Details....." strSQL = "Insert Into Customers ([custID], [FirstName], [LastName]) " & _ "values ('" & custID & "','" & FirstName & "','" & LastName & "');" 'MsgBox strsql CurrentDb.Execute strSQL, dbFailOnError Response = acDataErrAdded
I have an "After Update" event procedure for a field on a form that calls a VBA sub. When I use a different VBA sub to input a value in the above mentioned field, the "After Update" event does not occur, even thought the data in the field has been changed. (Of course if I manually enter the data, the field "After Update" event works.)
Is there a flag or condition that needs to be set in my VBA sub to let the field realize that it has been changed? Or possible a way to call the fields AfterUpdate Sub?
I tried having a my sub call the AfterUpdate sub to see what would happen, but didn't get it to work. I got a bunch of error and didn't feel like this was really the way to go.
I also could just duplicate all the code in the AfterUpdate sub for the field, but we all know that that is not a good idea.
I have a form (TransactionBody) & a subform (Detail) in the body I have an option group (Reg Office, Unaccepted and Returned) and want the returned button to be true "IF" a box Yes/No box called "Returned" is checked "yes" in the "Detail" form. I have done simular things in regular forms but not with a subform. I know I need to setup a afterupdate event in the Detail subform in the "returned" yes/no box and I know the basic if..then...else lingo I just don't know how to reference the transactionbody form in the formula from the detail form.
I'd like to call a function when a bound textbox is updated and for some reasons it doesn't seem to work. It works when the textbox is unbound (or maybe I missed something) Here is a very simplified version of the form: http://img207.imageshack.us/img207/3618/apf4ax.jpg
MyFunction() is just a MsgBox for now and I'd like it to appear when the textbox in the main form is updated (i.e. when the text in the subform is updated). I set .AfterUpdate= "=MyFunction()" and .OnChange="=MyFunction()" but nothing happens. (see attached code)
I'm doing a course on Access and I'm trying to populate a text box based on the value I select in a combo box.
Basically, in the combo box I want to select a drug (for pets, it's for a veterinary clinic...) and in the text box next to it I want the cost to pop up. The list of drugs with their costs are listed in a separate table, with the drug name in column 1 (counting from 0) and the cost in column 3. I then have a continous form so I'd like to be able to keep adding drugs and their costs and then sum up the drug costs in a text box with the total.
