Modules & VBA :: DCount Won't Show Updated Number Automatically
Jul 9, 2013
I have a main form called "frmMain" and on it I have a text control named "txtBoatStatus". The control source for txtBoatStatus is determined by code that I have in the Form_Current event. The code is as follows:
txtBoatStatus.Value = "There are " & BoatStatus & " boat orders that are complete."
(end code sample)
Now when I first open the frmMain everything works great and the control will say, "There are 5 boat orders that are complete." Perfect. However, In the instance if I open the form with my Boat Orders and mark off another order as complete (bringing my total to 6), the txtBoatStatus does not update when I reopen frmMain. It will only update and show, "There are 6 boat orders that are complete." if I manually hit SHIFT+F9.
How can I do this automatically? I've tried various things such adding "Me.Recalc" or "Me.Requery" to differnt events, controls, etc. but I still cant get it to show the updated number automatically. How can I get it to update without SHIFT+F9?
i want to be able to create an On Click Event when pushing a command button that will run an Update query to update a record and after it has been updated that specific record will pop up on a Form and be displayed. i know a different way is to run the Update query and then have it displayed in a Select query but i want it to be displayed on a Form instead. is it possible?
Is it possible for a query to automatically get updated each time a table is added. For example I am looking at prices and each month a new table of information is added for that month and I use a query to view each month next to each other. Is there a way that each time I add a table the query will automatically update?
I have a database that has 5 linked excel files. From there I have a form that runs many different queries. I have a macro that updates the queries by running them and closing them. Occasionally I update the excel files and was wondering if there is a way to show which records were added to the linked excel files. In other words, I need to display the new records that were updated. Does anyone have any solutions? Thank you for your help in advance.
I need a (group by?) query that shows my items only by the last updated price by date.
Basically i need to show the last date. (MaxDate?)
I keep a database for my restaurant of my food items and change their price everyday. i now have a table that archives individual items by date, price and company in a subform.
I am trying to kick out an item or inventory sheet by creating this query but i cant seem to group by last date. i have all my items showing up multiple times (as many as i entered) i have been easily able to create an inventory report off a query i used with only one date that i would change. but now i want to archive prices for charts.
i have tried max dates on item_id fields and date fields and nothing seems to work.
I have created a form with two subforms within it.
The TOP subform enables the user to view a specific record (not change it)
The BOTTOM subform enables users to view a datasheet form of all the records and amend them where necessary.
I want the TOP subform to automatically go to the last updated record, meaning that if the user changes the data of a record in the BOTTOM subform it will automatically display the last record on TOP that was updated in the table.
I've looked at the macros available and it only allows me to 'GoToRecord' to either Last, Previous, New etc... Is there any way to go to 'Last modified in the table'??
I maintain a shared database that I would like other users to be able to see when the data was last updated when they open it so that they can see how up to date the information is from the switchboard.
Currently I am doing this manually by updating the date in a label on the switchboard header, but ideally I would like to add a final action to my update macro (that imports new data into the database) that would automatically do this for me on completion if possible.
how can I get dates to show in last updated and last viewed fields..I did get last updated working but for some reason when I tried to do last viewed, last updated vanished :/
I did try writing code (but im a novice lol, I think that's why last updated vanished).I have got 2 unbound fields called HiddenLastViewed and HiddenLastUpdated thought I might need them.
I have a report that I am trying to complete based on several queries. I am trying to count the number of records based on certain criteria and using the following DCount.
=DCount("[Calculated time]","IPG1","[Calculated Time] <= 0.04" And [Ship-to party] In ("SN00207PJZ","SN09162XXX","SN09324XXX"))
I want to count the number of IPG1 records that are under .04 and have the Ship-to party of the ones listed. I have tried everything that I can think of to get it to work but can's seem to get it to. I figure it's something easy but I don't see it.
I am trying to count the number of records in a subform where the text box (txtFinal) = RPR-RPR & RTN. The subform is called PartNumbers. The table name the subform is bound to is named Completed.
I tried using =DCount("[Part Number]","Completed","[Final] = 'RPR-RPR & RTN'"). That is counting the total number of records in the table, not the total number of records in the subform. How do I get it to count the total number of records in the subform?
hi, can anyone help me? i have created a database for the use of a distribution centre which consists of order details and other information. the main idea is for the system to show the next order listed automatically to the user. i have a table of new order details. each order can be one of three either completed, pending or awaiting delivery. so i want the system to automatically clear the completed ones for the user and for the next order details which are pending or awaiting delivery to be shown. how can i do this?
I'd sure like to drag fields from the field list onto a report without a label automatically showing with it. I have so many fields to deal with the time just to click it gone adds up.
I am new to MS Access. I got two databases. The 1st database consists of the basic fields like the department,adress,salary etc of the employers(Primary key is the ID). Now in the 2nd database I have the same basic fields and some extra fields. Now my requirement is to when I enter the ID in 2nd database, all the basic fields have to be filled up based on the 1st database( May be I should link the 2 databases).
In one form, I have to click on button that opens the other form. Each form is bound to its table and those two tables are linked by Primary [RaDAR_Id] and Foreign [radar_id] fields. I would like the code to:
* open the other form * move to the first record that has [radar_id] = [RaDAR_Is] if exists
If there is no any record in the other form that contains [radar_id] = [RaDAR_Id] then I want to create such record. So I am using the code (below). The problem is that the other form is not being updated.
Code:
Private Sub cmd_edit_usage_Click() ' DoCmd.OpenForm "frm_edit_usage" Dim lngRadarId As Long Dim patientId As Long Dim rsUsage As DAO.Recordset Dim rsUsageWrite As DAO.Recordset
Some vba code which is able to get the last updated or last modified value of an excel file stored in a folder in a shared drive and update a field on a form in ms access.
I need to check the combination of a text box and a combo box that are bound to the same table for duplicates and then give a message box telling of the existing records. The 2 fields are set up as a compound index so access displays a generic message but I am trying to customize the message without doing it through error trapping (because I want it earlier in the processes on the form).
I am trying to us Dcount as follows but this is not working. It seems to be checking for either rather than a combination of the 2 fields because I get my message if either the Description OR the Group is duplicated (both of the text box and the combo box can have duplicates and it is only the combination that is singular) .
If DCount("[Description]", "[ItemTBL]", "[Description] = '" & Description & "'") And DCount("[Group]", "[ItemTBL]", "[Group] = '" & Group & "'") > 0 Then MsgBox "This Item is already in the database.", vbExclamation, "Already in Database"
Looking to see if there is an easy solution to this problem I have.
I have a table which holds order information, the primary key for this table is orderID which is an autonumber.
The field in question is order number, which has a default value of "JJO"00000, which I have started manually at JJO10001, is there anyway i can get my database to automatically increment this number to save me from keep checking the last order number produced.
Lost count of the number of times I have gave the same order number to numerous customers.
In a field called PSSheets I want the number to be update every new entry, if I use the AutoNumber feature it won't let me enter the number I want to start with, which is 1421001, then the next number would be 1421002 and so on right up to 1421200 and then the number would change to 1422001.
Everything is going well, when i make a transc ,transcid generated
i,e 1,2,3,to 47,48,49,50 and so on. In this case there are minimum 50 transaction on daily bases,
Here i have an idea that daily after 11.59pm, I mean after changing date, when I make a transaction, transaction id or sequence no start from 1, and my last day data will also remain safe .
This is what I am trying to accomplish I need to be able to create a serial number which automatically resets every day so I may use it to easily know how many records were created per day, without running a report.
I have a database which I've creating but now want to make others available to update - in the past this has not gone well! The database uses data from two excel sheets and the problem has been people do not always check if these have been updated today before running and therefore the database gets loaded with old data.I have found code that will check and display a message showing datelastmodified for a file but what i'm trying to find is code which will check both files' datelast modified, if they are modified today then run the update macro, if one or both are not modified today, then to display a message saying that the excel is not updated.
