Hello,
I am trying to create a combo box that is asking for a date. I'm using VB to program the combo box, but I don't
think I'm using the right code for the date. The first combo box is asking for the Owner Plan, the second box for the Servicing Plan and the third is supposed to ask for the period which is a date. I'm using a subform and everything else is working except for the date combo box. Please help me! Here is the code for combo box cboPeriod:
I have some code that filters job raised I have 2 text box's txtdatestart and txtenddate after entering. date range between the too text boxs it shows me all job raised with in the period.i have entered what I would like is filter it again by client field using combo box cboclient so if the user enter's client name in cboclient combo box and date range in txtdatestart and txtenddate it will only show jobs raised with in the date range of the client enter in the combo box but if the combo box is empty show.
Code:
Private Sub cmdPreview_Click() 'On Error GoTo Err_Handler 'Remove the single quote from start of this line once you have it working. Dim strReport As String Dim strDateField As String Dim strWhere As String Dim lngView As Long Const strcJetDate = "#mm/dd/yyyy#" 'Do NOT change it to match your local settings.
Hello, is it possible to temporally store a date from a combo box and display this date in the header of a report? (without having to store in a table)I have a form with 2 combo boxes, one combo where the user selects “from date” and another combo where the user selects an “End date” and a button that loads up a report. I would like to temporally store these 2 dates and display them in the header of the report when the report is loaded by the button.Ideally with either a "to" or a "-" between the dates like this: 25/02/2006 to 03/03/2006Is this possible?, I think I need to a variable to store the date(s) but not sure how to go about this. Anybody kindly point me in the right direction?Thanks
I have a problem. I want to apply a filter on my form.When I filter on the combobox it works fine. But when I filter on the date the form jumps into the error handler. Below is the code that I use for my filter:
Sub ApplyFilter() Dim sFilter As String sFilter = ""
'Filter on date If Me.txtFilterDatumMelding = "" Or IsNull(Me.txtFilterDatumMelding) Or Me.txtFilterDatumMelding = 0 Then If sFilter = "" Then sFilter = "" Else sFilter = sFilter & "" End If Else If sFilter = "" Then sFilter = "[DatumMelding] = " & "'" & txtFilterDatumMelding & "'"
Else sFilter = sFilter & " and [DatumMelding] = " & "'" & txtFilterDatumMelding & "'" End If End If
'Filter on combobox If Me.cboFilterCallMelder = "" Or IsNull(Me.cboFilterCallMelder) Or Me.cboFilterCallMelder = 0 Then If sFilter = "" Then sFilter = "" Else sFilter = sFilter & "" End If Else If sFilter = "" Then sFilter = "[CallMelder_ID] = " & cboFilterCallMelder Else sFilter = sFilter & " And [CallMelder_ID] = " & cboFilterCallMelder End If End If
If Len(sFilter) > 0 Then Me.Filter = sFilter Me.FilterOn = True Else Me.Filter = "" Me.FilterOn = False End If End Sub
I hope that you gus can help me. Could it be that the filter is a string and the date filter field is a date??????
It would be nice to have a date picker, to reduce input errors.
I'm trying to get a combo box datepicker to work from a popup form. I've looked at fontstuff's version (http://www.fontstuff.com/access/acctut13a.htm), but it has the date on the main form (as do the examples I've found using search).
I have to run two queries to get the data I need, and the best way is to have them called at the same time from a macro - hence the popup form. If I use a text box txt_Date formatted as a date box forms![GetDate]![txt_Date] works fine. How do I get the variabe txt_Date to accept the results of the three combo boxes as a single date value?
I've got an Access 2010 database based on the Tasks template. I've added a column to the Tasks table called "CompletedDate" I'd like for the Status combo box on the Task Details form to update the Completed Date for that record.
i.e. so when the Status is set to completed, it auto completes the Completed Date with the current date.
I've tried using an OnChange and an afterUpdate statement on the Status box but I don't seem to be getting anywhere.
I have a set of combo filters that filter one after the other as follows –
Code: Private Sub cboCity_AfterUpdate() If Nz(Me.cboCity.Text) = "" Then Me.Form.Filter = "" Me.FilterOn = False
[code]...
and so on to filter down so the user can work with what they filter, my question is how can I add on a filter that filters between dates? and second I was hoping that I could program the filters so that they could be changed individually/randomly as to filtering one after the other and then clearing to restart the filtering again if that makes sense. I have tried using this, but it doesn’t work ‘Bad Command’
i am looking to generate a list of dates in a combo box. I want the dates to be from 1 week ago to today. And all other attempted entries to be invalid. This means the user could only select one of those dates, with any other entry returning an error
I'm working on a database where users enter an assignment into a datasheet form. Assignments are selected from a combo box that has values stored in a table. After choosing the assignment, the user adds the date it was completed. After this is done, I would like the "Next Due" column to update. Each assignment will have a different next due date, such as one year from the completion date, six months, etc. I don't know how to add different values depending on the combo box selection.
I have a query that I want the Now() function in the year only format and in an expression combine with the auto number one extra field to get the following:date YYYY-------Autonumber---------color----------exp1: ---2007--------------23--------------green-------2007-23-greenThanks for the help
Is it possible to have a combo box that shows date and text? I would like to have a combo box with dates that also allows the user to choose the word "unassigned." the reason for this is because sometimes we don't know dates due until a future time and that is specifically what my boss wants. They don't want the field empty either.
I have a query of "Donations" in a sub form and want to use a combo box to specify all donations having a specific date.is this a job for VBA code? or is there some other way.
I try to create an error message if a user fills in a date field and leaves a combo box with wrong value.I have no clue how to use "Is Not" to check the combo box.The date field that will be filled in is called "Sent to Check" and the combo box is called "Status Case" and the value should be "Sent For Check" If the value in the combo box is different, then the back ground should change to red and get a message.This is the code I have so far that does not work:
Code: Private Sub Test__date_started__AfterUpdate() 'XXXXXXXXXX working onXXXXXXXXXXXXXX If Not IsNull(Me.[Sent_To_Check] And Me.[Status_Case] IsNot "Sent For Check" Then MsgBox "Status Case be set to Sent For Check!", , "Incomplete Form!" Me.[Sent_To_Check].BackColor = RGB(255, 0, 0) Else Me.[Sent_To_Check].BackColor = RGB(255, 255, 255) End If End Sub
I would like to have a text box display the number of records for a selected title that fall within a selected date range. Been looking around for a while and have this so far;
=DCount("Discussion_Title","Discussions","[Discussion_Title]='" & [cboType] & "' And [Discussion_Date] = Between ([txtStartDate] And [txtEndDate])'")
I get an #Error message. I just threw that together because it describes what I want, but I know there are syntax problems.
I have a database I'm creating for DVD/blu-ray sales. I currently have a order system in place in a subform, which uses a combo box to find the customer and fills in all the information in the rest of the subform. One piece of information is the date of sale.
I need to be able to have the ability to change the price of the DVDs and have a history of sales with the right price. The easiest way to do this seemed to be by Date of sale. So the price is linked to the date of sale, when the price changes, all orders before that change use the old price, after use the current price.
I was wondering if there is anyway to have a second subform on the same page and us the date of sale from subform1 and have it display the price in the second subform?
I have combo boxes that contain attorney names and phone numbers. The attorney name is what is filled into the field when a selection is made from the combo box into the form. The phone number is just there for the occasions that the person managing the data in the database needs to call that attorney. Just a quicker way instead of having to go to another form to find the phone number. I created a query to combine the first and last name to one field (FullName) and this is where the combo box gets it's info.
When I run the query, the phone number is shown formatted as I want it to ((###)###-####), but in the combo box in the form, the phone number has no format to it. What I need to do to get the phone number to show up formatted in the combo box list?
I have a query with a date field that is formatted mm/dd/yyyy. I have a combo box that is formatted as mm/yyyy. I need the choice from the combo box to be the criteria for the date field in the query. the combo box has to contain the month and year only (which it does now) and the query must return mm/dd/yyyy. I have tried a few statements and the closest I got was a between statement that added 30 days to the combo box selection but that's not really accurate.
I have a "Status" combobox, I'd like the "Date Case Closed" field to auto fill today's date when "Status" combobox = Closed. The way I know how to do this is by using an IIf with Date() function, but, if I do that, the date is gonna keep changing everyday. Do I have options to do this?
I'm trying to create a combo list box in a form that has all 12 months (January, February......etc,) listed in rows, and depending on the selection will bring up only that particular month within a range of dates from a table. I don't want it to look at the day or the year, but only the month.
Example: I select January from the drop down list in my combo box and my form will display all records with dates that are in January regardless of month or year.
I have a form that our operators use to do their hourly quality audits on. This is getting to be a huge burden on them because right now, they enter the date, the week ending date, the month every time they have to do an entry, and for me it is a nightmare because they can still enter the wrong information. So, what I was wondering is if there is a way that I can have them select the date from a combo box (easy enough), but from that, have the week ending date and the month fields automatically update as well. Any advice? I would really appreciate it! Thanks so much!!!!
I am using this code to filter a List Box based on a Date range and a Combo Box selection:
Code: Private Sub Combo139_AfterUpdate() Dim StrgSQL As String StrgSQL = "SELECT [User Name], [Date Of Request], [Description of Problem], Status, Sub_Job FROM QRY_SearchAll " & _ "WHERE [Date of request] BETWEEN #" & CDate(Me.txtStartDate) & _ "# AND #" & CDate(Me.txtEndDate) & "#;" StrgSQL = StrgSQL & " WHERE Sub_Job = Combo139" Me.SearchResults.RowSource = StrgSQL Me.SearchResults.Requery End Sub
However, It is not working. when I click the Combo box the List Box comes up blank.
I have a form that is filter based on a combo box. I would like to add another filter for date. but the code I'm using for the first combo box doesn't work for date.
the code is:
Sub SetFilter() Dim LSQL As String LSQL = "select * from Preventive_Q_View" LSQL = LSQL & " where Item_Name = '" & Combo206 & "'" Form_Preventive_View.RecordSource = LSQL End Sub
How do I modify this code to work with the date combo box? Also, is there a way to get both filters to work together, as in filter based on the first combo OR the second combo, OR both?
