I have a database that contains a table with all tasks made in our team and the time it takes to perform the task. I have another table with month, year and value in which I put month after month the volumes that each task handles. So, in a query I multiply the time to perform the task and the volume; month after month I have different results. However "the time to perform the task" may vary depending on processes improvements that we made. If before I had 5 minutes to perform the task and now I have 2, I change it and then the results on the query are changed for all months. I do not know if there is a way to specify that that change must be applied from the month where it is updated to the following months and not retroactively.
I have a form with names, address, work completed on a certain date. etc. I have a bound textbox called "DATE" and a bound checkbox called "APPLY_DATE_TO_ALL". I wish to enter a date in a textbox called "DATE" then place a check in a checkbox called "APPLY_DATE_TO_ALL" and it applies this date to ALL records.
Hello everyone. I am having trouble with applying filter on 2 date fields in form. I have succeeded by applying fiter on report by Date, but I just can't seem to work it out on Form! I believe there has to be something to do with the DoCmd code.
I have a main form (frmRate) which has fields (txtDate & txtValidity) that contain dates. I have a subform called (frmSearchRateCustomer) which has 4 fields (txtStartDate, txtEndDate, txtStartDate2, txtEndDate2) where the data range should be filled in as search criteria. I have also an additional combobox (cboCustomer) where user can select customer as a search criteria as well. I have a button that has to do the Search in frmRate. The combobox criteria works very well, just the date filtering is not working. I am pasting my code as follows:
Code:Private Sub cmdSearch_Click()On Error GoTo Err_cmdSearch_ClickDim strCustomer As StringDim strFilter As StringDim stDocName As StringDim strForm As StringDim strField As String 'Name of your Order field.Dim strWhere As String 'Where condition for OpenReport.Const conDateFormat = "#dd/mm/yyyy#"Dim strField2 As String 'Name of your Arrival field.Dim strWhere2 As String 'Where condition for OpenReport.Const conDateFormat2 = "#dd/mm/yyyy#" strForm = "frmRate" strField = "txtDate" strField2 = "txtValidity" ' For the Order Date Search Criteria Date range If IsNull(Me.txtStartDate) Then If Not IsNull(Me.txtEndDate) Then 'End date, but no start. strWhere = strField & " < " & Format(Me.txtEndDate, conDateFormat) End If Else If IsNull(Me.txtEndDate) Then 'Start date, but no End. strWhere = strField & " > " & Format(Me.txtStartDate, conDateFormat) Else 'Both start and end dates. strWhere = strField & " Between " & Format(Me.txtStartDate, conDateFormat) & " And " & Format(Me.txtEndDate, conDateFormat) End If End If ' Debug.Print strWhere 'For debugging purposes only. ' For the Arrival Date Search Criteria Date rangeIf IsNull(Me.txtStartDate2) Then If Not IsNull(Me.txtEndDate2) Then 'End date, but no start. strWhere2 = strField2 & " < " & Format(Me.txtEndDate2, conDateFormat2) End If Else If IsNull(Me.txtEndDate2) Then 'Start date, but no End. strWhere2 = strField2 & " > " & Format(Me.txtStartDate2, conDateFormat2) Else 'Both start and end dates. strWhere2 = strField2 & " Between " & Format(Me.txtStartDate2, conDateFormat2) & " And " & Format(Me.txtEndDate2, conDateFormat2) End If End If If IsNull(Me.cboCustomer.Value) Then strCustomer = "Like '*'" Else strCustomer = "='" & Me.cboCustomer.Value & "'" End If ' Build filter string strFilter = "[txtCustomerName] " & strCustomer DoCmd.OpenForm strForm, acNormal, , strWhere ' for date DoCmd.OpenForm strForm, acNormal, , strWhere2 ' for date stDocName = "frmRate" DoCmd.OpenForm stDocName, acNormal ' Apply filter to report With Forms![frmRate] .Filter = strFilter .FilterOn = True End WithExit_cmdSearch_Click: Exit SubErr_cmdSearch_Click: MsgBox Err.Description Resume Exit_cmdSearch_Click End Sub
I have used the same code as I have used for my Report, just changed few things like rpt --> frm etc...
I have come across a weird event from the 1st July.
I have a form that inputs dates into the table.......nothing special.......
Form is totally unbound and the insertion to the table is done via DoCmd.RunSQL Insert every thing has been fine until the 1st of July at this point it started saving the date into the table in American format 07/02/2013 instead of UK 02/07/2013 There have been no changes to the database at all to give me a reason why this has happened.
The Table fields are set to Date Fields.
The SQL Insert was set to Date ( #" & DATE & "# )
The date displayed on the form is in the correct format to get around this I have set the insert of the date as a string ( '" & DATE & "' ) AND how can i reformat the dates that are incorrectly inserted to the correct format as they include the date and time 07/02/2012 11:11:47
There is about 1000 lines so manual change will be a nightmare.
Within my main table / form I have six status drop down boxes and would like to record with a date and time ever time they are changed and save this data in a second table.
If I cant do this with the six drop downs, can I do it if any change has happened to the recorded.
It would only apply the formatting for dates that were equal to the date and +5 days.
I then tried Between Now() and Now() + 14
Same results
I then tried Between Date() and DateAdd("d",14,Date())
No change
I checked the property for the box and the back style is normal.
I am making the back color a light red. I tried to change the fore color red. Nothing.
I displayed what Date() was giving me in a text box control and I displayed what Date() + 14 was giving me in a text box control. They both were showing the correct dates, but my date, which was in between them, was not changing colors.
On my form have a status field with about 7 options to choose from a combo box, i have these values set in another table. What i would like is for my other field, which is a date, to automatically change whenever the status field is changed. So i know how long ago the status field was set. So basically if i change the status to complete i want the date to then set the date and time now.
I have a query where on an IIF result a field is displayed or an "OK"
I have an imported field of 6 chrs where I only want the left 5 so I use Loc:=Left([Location],5) ,
I then compare the result in, MoveTo: to another fixed field [PreferLoc]
MoveTo: IIf([Loc]=[PreferLoc],"OK",[PreferLoc])
I wish to citeria out all the "OK" values so I have <>"OK" in the critria section but when I try to run the query I am presented with a selection box asking for Loc This Query feeds a report so I set the filter to yes in the report properties and use [MoveTo]<>"OK" as the filter and this works great until I close and reopen the app where the filter has gone ? Can anyone advise where I am going wrong with my query and or my report ?
I have a form with a "Keyword Search" This functions great. It applies a filter when I do the search. Which is what I want. But when I'm done, I want the filter removed. I can do this with a macro "ShowAllRecords". This works fine when I click on the command button it is applied to. The only thing is, it is no longer sorted by the "Auto" number field :( . I would like this to be done automatically when I remove the filter.
Is there any way to do this without clicking on my field, and then clicking on the "sort" button on the toolbar?
Thanks for any help.
:p Up to now, I've been able to find the answers to my questions by doing a search on this forum. So thanks to everyone who has been answering everyone's questions
Anyway for questions that state "check all that apply" I could either store in the Response Field a yes, or a no (or a number code for those answers) OR simply store the yes values for ones that are checked. Seems like the latter, but for querying later, will I run into problems? I have had different views based on reviewing posts.
I have a form where people can enter multiple records. In a command button on that form I have code that assigns a unique identifier for the record. Unfortunately I am getting an error and I think it is b/c the code is not running for each record. Is there a way to tell the code to run once for each record?
I am working on an ADP ( first time working with this ). I have a form that is based on a parametized query.
The record source for the form is the parametized query which works fine the first time it is brought up. When the user wants to change the client number, a button "change client" is clicked and the event that gets triggered is openform=("edit client")...... Well, instead of being prompted, I get the error "The ApplyFilter action contiains a filter name that cannot be applied".... When I do a right -click on that same button, and "remove filter "I can get my prompt, but I dont want to keep doing that. I am not sure how to remove the filter from this button. I am not sure what the error message is telling me. Thanks for your help.
I have created a runtime setup package for a friend to let her use my Access 2010 application, without having to purchase Access 2010. However, the ApplyFilter macro in one of the forms doesn't work in the runtime environment. The message suggested I use a SelectObject before ApplyFilter but that gave me another error.
How do I apply a filter that automatically loads when a form is opened? For example, I have a check box and I only want to load records where the box is checked.
I have an issue trying to apply a filter to a record-set. Here's the code:
Dim choice As String Dim rset1, rset2 As DAO.Recordset Dim dbs as DAO.Database Dim var As Variant
[code]...
Whenever the last line is executed, i.e. rset2=rset1.OpenRecordset, I get the following error message:<<<Too few parameters, Expected 2>.. It used to work before? Maybe an issue with my library?
I have a DB with tables where the primary key fields are autoincremented, but with formatting applied.
Formatting is for example "CC"000000 so record 1 will be CC000001. (each table has a different alpha prefix)
This works fine, except the database content is being read by another application, and it sees only the 1, 2, 3 etc. Exporting the data to Excel format proves that this is due to Access not the other application.
However, if I export to Excel format, and tick the "Save Formatted" option, the data exported is as I require, CC000001, CC000002 etc.
Is there a setting or way to make Access present the data when it is read by another application to be the 'formatted' version of the data?
I have a continuos form (list of records) with a tool bar with "filter by form buton". This buton allow to users filter the list of records showed by the form by diferent field criterias.
After applied a filter I need a buton in the tool bar to print the filtered records on a report with a specific design: logo company, header, footer, etc.
I don't know how to apply the same filter used by the form to a report. Notice the filter by form continuos change depending the user.
I have not too much experiencie in programming. So I appreciate in advance any help.
Hi, OK my main form is unbound and I have a subform in it which is shown as a datasheet. What I'm trying to do is have a list box control at the top that allows the user to filter the records shown in the subform.
Q1. Do I need to have this set-up like this? Is it possible to just use one form? I have tried doing this but when I add my list box, lables etc to the top of the form or the header they just do not appear in datasheet view.
Q2. If I do need to use a subform how do I reference it when using DoCmd.ApplyFilter from my main form:
DoCmd.ApplyFilter , "DrawingNum = '32-35612'"
At the moment this gives an error saying that the action or method is invalid because the form is unbound.
I have a text box that the user enters a number into between 1 and 5. I can use the validation rule in the table and that works nicely, the trouble is that I don't want the standard Access message box.how to apply the validation rules.
Hi. I have a table used for years. I added new fields bringing number to 160. When I go to insert another row, I get message saying 'Row inserted in the grid exceeds limit of 255 rows for table or 1,000 rows (actions) for a macro.'
BUT as the number of records had not increased and I am under the 255 limit why the error message?
I tried in vain to copy and compact/repair the database, but still no luck.
Hi! I am making a form that will be composed of two subforms. Each subform will be based on a differrnt table, however the tables are identicle as far as the number of columns. I designed form_1 to be based on table_1. Now, is there a way to copy form_1 (which will be changed to form_2 in the copied version) and redirect it to table_2?
I tried copy and pasting form_1, opened it in design view, looked at the Form properties, specifically: Data-> Record Source, and changed it to table_2, but.....the form didn't pick up table_2 field names, values, etc. I am guessing this is not the way to do this but how does one do this? Thanks John
I am trying to create a form with control buttons on the form for all the letters of the alphabet. When a user clicks on the button for A, I would like them to only see records that starts with an "A". I assume that I should apply an event to the button's OnClick-property, with a filter, but I can't seem to get it right...any suggestions would be very much appreciated!
I have a form with a bottom that has a macro that uses applyfilter to filter the current form based on what is within a textbox located on the form.
I used the macobuilder and have my where condition as
[num] Like "*" & [Forms]![frm_Main]![Text181] & "*" Or [name] Like "*" & [Forms]![frm_Main]![Text181] & "*"
This works when I open the form by itself but when I try adding the form to a navigation form I get prompted to put in "num" and "[Forms]![frm_Main]![Text181] " etc. when I click the bottom.