Problem With Passing Values From Calendar Control 10.0
Aug 23, 2007
Hi All,
I'm in the process of creating a database that allows users to enter details into a form which includes a date range as start and end dates.
I have used the inbuilt Calendar Control 10.0 control to allow users to select the date. It is linked to two combo boxes [cmbStartDate] and [cmbEndDate] using the following code (this code is repeated for each combo box):
Code:
Private Sub cmbStartDate_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Set cmbOriginator = cmbStartDate
ocxCalendar.Visible = True
ocxCalendar.SetFocus
If Not IsNull(cmbStartDate) Then
ocxCalendar.Value = cmbStartDate.Value
Else
ocxCalendar.Value = Date
End If
End Sub
And..
Private Sub ocxCalendar_Click()
''Update the ComboBox with the value entered into the ComboBox
''Put the value back into the relevant ComboBox
cmbOriginator.Value = ocxCalendar.Value
''Hide the calendar
cmbOriginator.SetFocus
ocxCalendar.Visible = False
''Clear the variable
Set cmbOriginator = Nothing
End Sub
This all seems to work fine- however, when I try to write the selected dates to a table or use them in a query they are not recognised (the form obviously needs to be open whilst the query runs), but if I manually type dates into these combo boxes these dates are picked up fine.
This is beginning to drive me mad so any help would be greatly appreciated.
Thanks to "Beginning Access97 VBA Programming" by R. Smith & D. Sussman, I was able to implement the use of a calendar form to allow a client to select a date, rather than keying one in. And here I thought I was done with the problem....Wrong !!! The calendar form only works if existing records already have a date(shortdate) associated with the record.
But when I try to create a new record, the date field is "null" and I can't figure out how to pass a date value to the calendar control even though it's receiving a null. I get this "type mismatch" error I've bumped into the part of the code that was supplied via the book where the "property set datecontrol (Byval ctldate as Control) is set, but I can't figure out how to deal with this incoming "null" value from the newly created record.
Can anyone help? I'll check in later on tonight if anyone is needing part of the code as reference to what I'm trying to accomplish.
I am using Access 2003. I have a form with two text fields that I have configured as "Short Date". I set up Calendar Control as a new popup form (frm_Calendar) and set up the date fields to popup the Calendar on double click. I have 2 problems.
1. The calendar does not want to default to today's date. I tried entering "=Date()" into the "Value" field of Calendar Control, but it removes that code after I click off of it. So how can I get Calendar Control to default to today's date?
2. When I double click on a calendar date, I want that date to be posted into the date field. How do I get it to do that? I looked at all the properties, but did not see a way to tell the date field to accept the calendar entry.
I want to use the calendar control on a form, but cannot find a way to 'minimise' it when it is not needed. I feel sure that there is a way to do this. Can anyone help?
I am creating an employee scheduling application to use for ambulances. In one form, I am trying to list those scheduled to the various shifts by date so that we can edit an individual day.
I firstly, want to open the form with the today's date and the employees accordingly. I am using the following code in the form_Current(), the form_GotFocus(), form_load(), and form_Open(Cancel as Integer) subs.
ctlCalendar.Value = Date
I cannot get it to display to today's date.
I am then wanting to pass the date to the query which selects the employees that are working each duty position. When the form opens it opens the oldest record, not today's. I think that there's a problem with the WHERE portion of my SQL statement.
When a user selects a date on the Calendar Control, I want to re-run the query and display the employee's scheduled to work on the selected date.
I have a form with calendar control 11.0 placed on it.
When the form opens, the calendar is invisible.
When the cursor enters a field called ClassDate the calendar (calClassCalendar) becomes visible.
When the user clicks a date on the calendar control I want that date to appear in in the ClassDate field.
I would have expected the Calendar Control to have an OnClick Event Property that would have allowed something like ClassDate.value=calClassCalendar.val
To my complete dismay there is NO OnClick event on the Calendar Control.
How to I get the Calendar Control's date to display in the ClassDate field?
Hi, I have a form that has 2 Calendar Controls that is used to select a Start Date and an End Date. I then have some code that will enter all the dates inbetween into the database.
One thing I would like to have on the form, is when the users selects a date from each calendar. The date is displayed in a text box under it. Just to have a visual double check to make sure they selected the right month/day/year before they hit the submit button.
Anyone know what code I would need to put in my form to make it do this?
Please can someone advise me how I can link the date which I select in the calendar control to a date field in the form. I want to use the calendar instead of a combo box. It's probably simple....but then so am I! Help appreciated Richard
I would like the calendar control to default to the current month and year (if there is no date in the control source). I don't want to set it to the current date.
On my form I have a combo box where the user can select the sex of a person. I had set the row source of the combo to a table, tblSex and this works fine. Now I want to programatically add the table entries ( simply male or female) to the row source, having set the combobox to value list. I cant see how to pass the combobox and tablename parameters and I am getting an error on form load "The expression you entered as the event property setting produced the following error: UserDefined type not defined" The calling procedure from frmPeople is
I think the way the parameters combobox and tablename are passed is incorrect. I want to write a robust procedure which I can use for each of the comboboxes on my form.
I'm recently added the CalendarControl 9.0 into some combo boxes in order to quickly input dates - however only the dates are then added, not the day of the week. The day of the week would be really useful if it was visible as the form is outputted to a HTML page for our intranet for other staff to see.
My (relevant) code at the moment is as follows:
-------------------------------------------------
Option Compare Database Option Explicit Dim cboOriginator As ComboBox
Private Sub cboStartDate_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Set cboOriginator = cboStartDate
ocxCalendar.Visible = True ocxCalendar.SetFocus
If Not IsNull(cboOriginator) Then ocxCalendar.Value = cboOriginator.Value Else ocxCalendar.Value = Date End If End Sub
Private Sub cboEndDate_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Set cboOriginator = cboEndDate
ocxCalendar.Visible = True ocxCalendar.SetFocus
If Not IsNull(cboOriginator) Then ocxCalendar.Value = cboOriginator.Value Else ocxCalendar.Value = Date End If End Sub
Private Sub Form_Load() ocxCalendar.Visible = False End Sub
Private Sub ocxCalendar_Click() cboOriginator.Value = ocxCalendar.Value cboOriginator.SetFocus ocxCalendar.Visible = False Set cboOriginator = Nothing End Sub
I'm using the Microsoft Calendar Control 11 to populate a date field on a form. The date field has a format of "Medium". When I use the control, I select todays date and what gets populated is 30/12/1899. But...if I immediately go back to the Calendar control and select todays date, then the proper value gets added.
This happens for every NEW record I create. What is happening??
I have been using a calendar control on a subform and have now split the data into a tabbed form with 4 subforms. The calendar is now entering the date selected into the first record of each subform instead of just the one on the subform that has the focus.
Do I need to add the calendar control to each subform now or is there a way to reference the correct form in my current code?
Private Sub Calendar_Click()
' Enters the selected date into the DateCompleted field
I have attached a condensed copy of my form/sub-form that has calendar controls on it for the RecvdDt and the Compliance date. I have it set up the say way as I have on other databases and it will not close/populate once opened. I have reset the events on it multiple times and I just can't get it to go.
Can anyone please take a quick look and help me determine why it is not working on this form yet works on others that I have.
I am trying miserably to help a student use the Calendar Control to Open and Go to a specific record
I want to click on a specific date in the calendar in a form eg 09/03/06 and then open the "Bookings" form and go to the record with the field "Date" with the value 09/03/06
I am trying to use an unbound subform based on a query to display only records for a specific date. The query works fine on its own, but the subform returns a blank. I am using the Calendar control on the same form for the user to select the date they wish to view. This in turn inserts the selected date from the calendar into a textbox on the main form and the query that the subform is based on reads this and opens the corresponding records.
Problem, its not working.
Thank you in advance if you can help me throw some light on this one.
I want to be able to click on the date in a calendar control and the jobs scheduled for that day appear on the screen. Is this possible and how would I go about this. I created a query to pull the information I need and I attached that query to a form, I then placed the calendar control the form but I am unable to get the control to pull the data.
I need to find a way of passing a value from an Access form to an .asp page...
Page1.asp is viewable on the web and asks a user for a code and password - these are checked against a database and when a match is found page2.asp is opened showing values based on SQL views which match the criteria from page1.asp.
What I want to do is be able to open page2.asp from a button in Access - the button should therefore force the opening of page2.asp in a web browser and pass to it the values from that record on the database (code and password).
What code would sit on the button to get it to do this?
Hi All. I have a query that is based on 1 table. I am using a form with a calendar control for the users to select the date range. In my table the date format is mm/dd/yyyy. My calendar control is pulling the date format mm/dd/yyyy I need my query to only look at the mm/dd part of the field. In my criteria field inc_date I have Between [Forms]![frm_LookUpEnquiry]![txtSelectDate] And [Forms]![frm_LookUpEnquiry]![txtDate2] I have tried the datepart but Im not sure I am doing it right. Basicly Im not sure how to parse out the date to only look at the mm/dd. Or would this be better done in a SQL query Any Idea's for this would be very appreciated. Im kinda in a bind on this one and its the last thing I have to do to finish this database.
I have used Calendar controls before but this is a new one on me?! When i click on the Calendar, what i am doing is inserting the date clicked into a textbox on another form. The Calendar is set to todays date the system date is also correct and although i click on 31/05/06, what is being inserted is 31/05/20 ?????
I want the calendar to show the date in the field [Next Payment Due] - whenever this value changes, the calendar date should change accordingly.
I want the calendar to be assigned to a text box (txtCalDate), so this would also contain the date of [Next Payment Due].
However, If the calendar date is changed (on the calendar), I want txtCalDate to show this date, but [Next Payment Due] to stay as it's original value. Next Payment Due can only change the value, but not be changed itself.
So I presume VBA would be needed to say when [Next Payment Due] is changed, make calendar this date. And then to simply assign the calendar to txtCalDate so if calendar is changed, this will change with the new date.
I have one dialog form which can receive values from multiple forms. For each form i can build a popup dialog version but that's to much time in administration later on.
The best thing is if i Can declare a variable from the source form and pass it to the target control box in the dialog form. I tried many ways but currently it's not working.
Ok this is probably easy for you guys but my knowledge of access is limited.
I have two forms - Find Job and Notes On the Find Job form I have a text box called 'Job No' and a combo box called 'Status' that I have coded to open Notes if certain conditions are met. The code is
Private Sub Status_AfterUpdate() If Status.Value = "WIP - Snagged" Or Status.Value = "WIP - Suspended" Then DoCmd.OpenForm "Notes", , , acFormAdd End If
What I need is to be able to pass the value of the 'Job no' text box on the Find Job form to the 'Job No' text box on the Notes form.
I am having trouble getting information from a combo box to pass the data through some code.
The code is:
Private Sub ListBoxFind_AfterUpdate()
If ListBoxFind = 141 Then Me.FilterOn = False Else: Me.Filter = "[Assessment ID]= ListBoxFind" Me.FilterOn = True
End If
End Sub
I've tried Me.ListBoxFind, Me.ListBoxFind.Value, and ListBoxFind.Value. In all cases, a message box pops up asking for ListBoxFind (in this iteration) and then the filter works with the value I type in. It just seems that the value from the ListBoxFind never gets into the code. ListBoxFind is a combo box with four columns and the value bound to column 1.
