Access Date + Calendar Control
The access date when i want dd/mm/yy is weird!
it shows 24/4/01 as 4/1/24 how do i fix this?
So it's show properly?
Also with the claendar control or dt picker how do i get it to set a value into a db? when i date is clicked on?
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Calendar Control Date Format Help
Hi
is there any way to change the date format of a calendar control from code, i have a calendar control with a label an my form when you click the day on the calendar the the date is displayed in the label, all good and well, but i would like to change the date format so that 12-Apr-2006 (wed) is displayed in the label. I have tried in the form load something like
calendar1.value = Date(Now,"dd-mmm-yyyy",(ddd)
but no matter what format i use it always takes the system date, please can someone advise me.
Many thanks
Calendar Control Date Formatting
I have created a Word 2000 template that has a custom userform with a calendar control. The template is working just fine, but the users are going to want to have the date spelled out. For example, now when they select a date on the calendar on the userform, it displays in the document as 06/15/04. I want it to be displayed as June 15, 2004. Can you use the calendar control for this or do I need to try something else and if so, can I get some suggestions? I chose the calendar control because the dates that they pick vary and can be in the past or the future.
Thanks.
Calendar Control - Date -sqlserver
hi,
when i pass a date from the calendar control to a textbox whose dataformat is date(dd/mm/yyyy) and then save this in a sqlserver2000 database table column with datetime datatype (using recordset), i am not able to retrieve the same record,
it does not fetch for that date, though when i open directly the table , i can view all the dates.
Kindly let me know what could be the problem
Thanks in advance
Calendar Control Or Date Picker Control
Visual Basic 6 w/MS Excel.
Are there any calendar controls or date picker controls that can be used with Excel? Ideally, I would like a calendar to come up on the screen so the user can pick a specific date, then enter into a specified cell.
Date Format Question With Calendar Control
I have a two-pronged question:
I have a form that is popping up the Calendar Control Form. It is working great with the following code:
frmEntry.maindate = Format$(CalendarA.Value,"mm/dd/yyyy")
Question one - when I select the date I have to click on the Month then the Year then the day. If I select the Month then the day followed by the year the Calendar value returns the month and day selected, but it returns the current year instead of the year selected. Is there a way to force the date to stay as the date selected no matter what order the user does the selections or am I stuck with the month, year, day input sequence?
Question two - some users are going to want to enter the date rather than use the pop-up. I have the field defined as mm/dd/yyyy. If the user inputs the date as mmddyyyy is there a way to stop an error from happening and reformat the numeric string to be the date string format I am expecting ?
Thank you,
Jennifer
Using Calendar Control Without Changing System Date?
Hello,
On my form, the user first clicks a date on the Calender and then clicks a text box to populate that date into the text box.
This works fine and dandy and quickly allows my users to fill in their information, but it has the side affect of changing the system date to the date as well.
Is there any way to just use the control as an interactive element to tell my program the date something is going to happen?
Thanks!
Date Field Stay The Same For Each Record When Using Calendar Control
I am new to this forum, but am in need of help with calendar control. I am using calendar control 10 to set a text field to whatever date is clicked on using the calendar control activex component. The problem occurs when I click to the next record - the date remains the same for every record thereafter. My question is this - how do I keep a date that is entered in one record from becoming the date for every other record, as well as keep that date that was entered in the previous record from changing to the date in the current record?
regards,
jba4718
Date Picker Control Question - How Do I NOT Display The Calendar?
I have several date picker controls that are being using to select a sign off date.
I have been given a list of folks that are authorized to do sign offs. If the logged in user is not on the sign off list (which is nothing more than a backend db table), then my specs call for me to pop up a message box indicating that you are not authorized. All of that works fine.
The problem is that once OK is pressed on the message box, the drop down calendar is still displayed, and I have not figured out a way to not display calendar, even though the control has been clicked, if the user is not authorized.
Does anyone know how to click on a date picker control but NOT display a drop down calendar?
(BTW: I wanted to just disable the control altogether in the Form Load if the logged in user wasn't authorized to perform this task, but, I've been told I have to be nice and tell them they can't sign off, so disabling the control is not an option.)
VB 6.0 Calendar Control With Access Database
Ok, I'm most certain I'm not the only one who has been in this boat!
Calendar Control for VB6. Quite the nice tool. When you click on it, it passes the value of the date you clicked on to the "Value" property. Spiffy...
Now here's my dilema. I'm working on a scheduling application. My form is frm2Schedule, my ado Control is adoSched, my Calendar Control is MSched, I have text fields bound to my database for both the date, and the various time slots of this schedule application. My goal is to have the Calendar Control perform a few things:
1. When a date is clicked on in the calendar control, the function will begin a search query.
2. If this query fails (date not currently found in database), the function will call another function to create a new record, and the date for the record will match MSched.Value.
3. If this query succeeds (a record is found with that date), the function will call up this record.
Below is the start of my code. I'm familiar with VB, but this is my first time using the calendar control. Does anyone have any helpful advice to tackle this problem. I think I need to put an IF in here, but my IF failed.
Code:
Private Sub MSched_Click()
Dim nSearch As String
nSearch = MSched.Value
frm2Schedule.adoSched.Recordset.Find ("SDate =" & nSearch)
'I tried an IF statement here, but when I tested it, it failed.
'The messagebox I used to catch it never displayed.
End If
End Sub
Any help would be greatly appreciated.
Access - Using VB To Control Popup Of Calendar
I'm trying to use a calendar in Access 2003 to enter data in data fields.
I found a site that showed how to write the code so it will popup when you click on the date field and then disappear when you select the date from the calendar.
I got it working but I want to be able to access that same calendar for other date fields on the form.
So I used a variable call 'originator' to pass the originators name to the variable.
Only thing is...now it doesn't work. I get a type mismatch error and I don't know why. It's exactly the same as the example I found(obviously with my names substituted in).
Please help. (dob is the field I want the date to go into and Calendar6 is the name of the calendar I'm using.) Here's my code:
Option Compare Database
Option Explicit
Dim originator As ComboBox
Private Sub dob_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Set originator = dob
Calendar6.Visible = True
Calendar6.SetFocus
If Not IsNull(originator) Then
Calendar6.Value = originator.Value
Else
Calendar6.Value = Date
End If
End Sub
Private Sub Calendar6_Click()
originator.Value = Calendar6.Value
originator.SetFocus
Calendar6.Visible = False
Set originator = Nothing
End Sub
Access & Calendar ActiveX Control
Hi,
I am creating an Access database and I want to add a Calendar control to ensure users pick a valid date. In my form I click on 'More Controls...' in the toolbox. I have a long list available and choose CoyoteCalendar2.Calendar and this adds the functionality I need.
However, I am a little worried that when I move this database to another users computer the ActiveX control may not be on their machine. Is this correct and if so how would I get the control onto their computer?
I don't even know how the Coyote Control got onto my machine - it may have been while installing another program e.g. Visual Studio.
Any help is appreciated.
Thanks,
jonny
Access 2000 Calendar Control
I am fairly new to Access, I am trying to add a calendar control to an existing database. using the calandar control i would like to be able to select dates and show all events listed for that date. is this possible?? if so please help.
Calendar Control In An Access Form
I have a calendar control (class MSCAL.Calendar.7 if that means anything) in an Access 2003 form. (It's actually in an Access 2000 file format.)
I have an event
Code:
Private Sub Calendar8_AfterUpdate()
Me.Text60.Value = Me.Calendar8.Value
End Sub
which does not always fire.
If I open the form in normal view the event does not fire.
If I open the form in normal view, switch to design view, open the form in normal view, the event fires.
Has anyone seen this type of behavior?
------------------------------------------------------------------------------------------------
Put your PC to good work at vbCity at world community grid and join Team vbCity.
2,669,763 3,325,308 points and ranked 1,195 1,149 as of March 8 May 23, 2008!
------------------------------------------------------------------------------------------------
Calendar Control And Simple Access Query
For some reason this won't work:
Code:
sql = "select * from Customers where Date_PS=" & Calendar1.Value
I am not sure why. The Date_PS field is a date (short date format). I have this query running on the Click event and when the value of the click is present in the access table, it won't be selected. I haven't gotten mismatch errors and have tried a bunch of formatting things to try to get a match, but at this point I am at a loss.
Thanks for your help...
Microsoft Access 2000, SQL And Calendar Control
Hello!
I'm doing a little project with MS Access 2000 and I have been stucked with the following problem a few days:
I have a SQL query:
SELECT Sum(Table.Column) As Total
FROM Table WHERE Table.Date = [Forms]![MyForm]![ActiveXCtl].[Value] (I've also tried many other SQL-queries)
On the form I have a Calendar Control and its name is ActiveXCtl, I have put the following function call to the ActiveXCtl's Click-method: Form_MyForm.Total.Requery
I also have that query on the form as edit box (Name: Total).
Now when I click on a certain date on the calendar control, I would like to see query results for that date, but nothing happens.
Can anyone help me with this one?
Date & Calendar - Can't Print Calendar
Basically I'm trying to create a program which will print the date (day, day of the week, month, year) and the month that that day is in, mainly using the zeller congruence.
The code is below. Everything works, the zeller quantity is right, the date prints fine. The only problem I have is that I'm not sure how I should do the calendar. The Sub for the Calendar is at the bottom, and there you can see my attempt at printing it, but it didn't get anywhere.
Anyone know how I'd code it so that the calendar prints? If you want I can zip everything and attatch the file.
Thank you!
Edit: Oh and this is in Vb6.
Quote:
'Purpose: Create a program which will allow a user
' to choose a day, a month, and enter a
' year. After the data is inputted is
' collected, the date and the calendar of
' that month in that year is printed.
Option Explicit
Sub LeapYear(blnLeapYear As Boolean, intYear As Integer)
intYear = txtYear.Text
'If intYear Mod 4 = 0 Then
'blnLeapYear = True
If (intYear 100) Mod 4 = 0 Then
blnLeapYear = True
If (intYear Mod 100) Mod 4 <> 0 Then
blnLeapYear = False
End If
End If
End Sub
Sub MaxDays(intDaysInYear As Integer, intDaysInMonth As Integer)
Dim blnLeapYear As Boolean
Dim intYear As Integer
LeapYear blnLeapYear, intYear
If blnLeapYear = True Then
intDaysInYear = 366
ElseIf blnLeapYear = False Then
intDaysInYear = 365
End If
If cmbMonth.ListIndex = 0 Or cmbMonth.ListIndex = 2 Or cmbMonth.ListIndex = 4 Or cmbMonth.ListIndex = 6 Or cmbMonth.ListIndex = 7 Or cmbMonth.ListIndex = 9 Or cmbMonth.ListIndex = 11 Then
intDaysInMonth = 31
ElseIf blnLeapYear = True And cmbMonth.ListIndex = 1 Then
intDaysInMonth = 29
ElseIf cmbMonth.ListIndex = 1 And blnLeapYear = False Then
intDaysInMonth = 28
ElseIf cmbMonth.ListIndex = 3 Or cmbMonth.ListIndex = 5 Or cmbMonth.ListIndex = 8 Or cmbMonth.ListIndex = 10 Then
intDaysInMonth = 30
End If
End Sub
Private Sub cmdDisplay_Click()
Dim blnDateValidity As Boolean
Dim strDayName As String
Dim strMonthName As String
Dim intYear As Integer
Dim intDay As Integer
picCalendar.Cls
intYear = txtYear.Text
intDay = cmbDay.ListIndex + 1
Valid blnDateValidity
If blnDateValidity = True Then
DayName strDayName
MonthName strMonthName
picCalendar.Print strDayName & ", " & intDay & " " & strMonthName & " " & intYear
ElseIf blnDateValidity = False Then
MsgBox "The date you entered is not valid. Please ensure that if February, it is either the 28th or 29th depending on whether or not it is a leap year, and make sure the year is between 1600 and 2200.", vbOKOnly, "Sorry!"
End If
Calendar
End Sub
Sub Valid(blnDateValidity As Boolean)
Dim blnLeapYear As Boolean
Dim intYear As Integer
LeapYear blnLeapYear, intYear
If (cmbMonth.ListIndex = 3 Or cmbMonth.ListIndex = 5 Or cmbMonth.ListIndex = 8 Or cmbMonth.ListIndex = 10) And cmbDay.ListIndex < 30 And (intYear > 1599 And intYear < 2201) Then
blnDateValidity = True
ElseIf cmbMonth.ListIndex = 0 Or cmbMonth.ListIndex = 2 Or cmbMonth.ListIndex = 4 Or cmbMonth.ListIndex = 6 Or cmbMonth.ListIndex = 7 Or cmbMonth.ListIndex = 9 Or cmbMonth.ListIndex = 11 And (intYear > 1599 And intYear < 2201) Then
blnDateValidity = True
ElseIf cmbMonth.ListIndex = 1 And (intYear > 1599 And intYear < 2201) And cmbDay.ListIndex < 28 And blnLeapYear = False Then
blnDateValidity = True
ElseIf cmbMonth.ListIndex = 1 And (intYear > 1599 And intYear < 2201) And cmbDay.ListIndex < 29 And blnLeapYear = True Then
blnDateValidity = True
Else
blnDateValidity = False
End If
End Sub
Sub Zeller(intReturnedDay As Integer)
Dim intM As Integer
Dim intY As Integer
Dim intP As Integer
Dim intR As Integer
Dim intMonth As Integer
Dim intDay As Integer
intDay = cmbDay.ListIndex + 1
intMonth = cmbMonth.ListIndex + 1
intM = intMonth - 2
intY = Val(txtYear.Text)
If intM <= 0 Then
intM = intM + 12
intY = intY - 1
End If
intP = intY 100
intR = intY Mod 100
intReturnedDay = (intDay + (26 * intM - 2) 10 + intR + intR 4 + intP 4 + 5 * intP) Mod 7
End Sub
Sub DayName(strDayName As String)
Dim intReturnedDay As Integer
Dim intY As Integer
Zeller intReturnedDay
If intReturnedDay = 0 Then
strDayName = "Sunday"
ElseIf intReturnedDay = 1 Then
strDayName = "Monday"
ElseIf intReturnedDay = 2 Then
strDayName = "Tuesday"
ElseIf intReturnedDay = 3 Then
strDayName = "Wednesday"
ElseIf intReturnedDay = 4 Then
strDayName = "Thursday"
ElseIf intReturnedDay = 5 Then
strDayName = "Friday"
ElseIf intReturnedDay = 6 Then
strDayName = "Saturday"
End If
End Sub
Sub MonthName(strMonthName As String)
If cmbMonth.ListIndex = 0 Then
strMonthName = "January"
ElseIf cmbMonth.ListIndex = 1 Then
strMonthName = "February"
ElseIf cmbMonth.ListIndex = 2 Then
strMonthName = "March"
ElseIf cmbMonth.ListIndex = 3 Then
strMonthName = "April"
ElseIf cmbMonth.ListIndex = 4 Then
strMonthName = "May"
ElseIf cmbMonth.ListIndex = 5 Then
strMonthName = "June"
ElseIf cmbMonth.ListIndex = 6 Then
strMonthName = "July"
ElseIf cmbMonth.ListIndex = 7 Then
strMonthName = "August"
ElseIf cmbMonth.ListIndex = 8 Then
strMonthName = "September"
ElseIf cmbMonth.ListIndex = 9 Then
strMonthName = "October"
ElseIf cmbMonth.ListIndex = 10 Then
strMonthName = "November"
ElseIf cmbMonth.ListIndex = 11 Then
strMonthName = "December"
End If
End Sub
Private Sub Form_Load()
cmbMonth.ListIndex = 1
cmbDay.ListIndex = 0
txtYear.Text = 2004
End Sub
Sub Calendar()
Dim intDayCount As Integer
Dim intDayCountTwo As Integer
Dim intDay
Dim intReturnedDay As Integer
Dim intDayTwo As Integer
Zeller intReturnedDay
Print intReturnedDay
picCalendar.Print " "
picCalendar.Print "Sun Mon Tue Wed Thurs Fri Sat"
intDay = 0
If intReturnedDay = 0 Then
Loop Until intDay = 7
intDay = intDay + 1
picCalendar.Print intDay;
For intDayCountTwo = intReturnedDay + 1 To 6
intDayTwo = intDay + 7
picCalendar.Print intDayTwo;
Next intDayCountTwo
picCalendar.Print " "
Next intDayCount
End If
End Sub
I didn't se code or vbcode tags so I thought putting it in quotes was the best way to paste it.
Problems Linking Outlook Calendar To Microsoft Calendar Control In Vb.
Hi,
For a while now I've been trying to find a way to link my outlook calendar to the microsoft calendar control in visual basic. When I click on the calendar in my program, I want it to show the appointment subject in a text box and the appointment body in a Richtext box. I'd appreciate any help?
Thanks.
Date Format, Count No. Of Days & Highlight Date In Calendar
<html><div style='background-color:'><DIV>
<P>Hi all,</P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">Happen to visit this website accidentally and found that it’s very useful to VB beginner like me. <SPAN style="mso-spacerun: yes"> </SPAN>I have the following problems and would appreciate your kind assistance to enlighten me.<SPAN style="mso-spacerun: yes"> </SPAN>Attached is my file for your checking.<SPAN style="mso-spacerun: yes"> </SPAN></P></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <?XML:NAMESPACE PREFIX = O /><O:P></O:P></P>
<DIV></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt 0.5in; TEXT-INDENT: -0.25in; tab-stops: list .5in; mso-list: l0 level1 lfo3">1)<SPAN style="FONT: 7pt 'Times New Roman'"> </SPAN>Sometimes, the number of days is incorrect with a big figure (e.g from 1 to 30 Apr) or even a negative figure after I change the system’s date format from “mm/dd/yyyy” to “dd/mm/yyyy”.<SPAN style="mso-spacerun: yes"> </SPAN></P>
<DIV></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt 0.25in"> <O:P></O:P></P>
<DIV></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt 0.5in; TEXT-INDENT: -0.25in; tab-stops: list .5in; mso-list: l0 level1 lfo3">2)<SPAN style="FONT: 7pt 'Times New Roman'"> </SPAN>In calculating the number of days, I need to exclude Sunday.<SPAN style="mso-spacerun: yes"> </SPAN>By using the “WeekDay (Calendar1) = 7 “ method, I still didn’t get the correct result.<SPAN style="mso-spacerun: yes"> </SPAN></P>
<DIV></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"> </P>
<DIV></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><O:P> 3) How to highlight a certain date in calendar with different colour to indicate it's a public holiday ? </O:P></P>
<DIV></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><O:P></O:P> </P>
<DIV></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">Many thanks in advance.<SPAN style="mso-spacerun: yes"> </SPAN></P>
<DIV></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <O:P></O:P></P>
<DIV></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">Best regards,</P>
<DIV></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">YC </P>
<DIV></DIV>
<DIV></DIV>
<P><BR><BR></P>
<DIV></DIV>
<DIV></DIV></div><br clear=all><hr>Add photos to your e-mail with <a href="http://g.msn.com/8HMVEN/2746">MSN 8.</a> Get 2 months FREE*.</html>
Add Pix To My Custom Calendar (not A Calendar Control)
Hey,
I'm hoping maybe someone can help me. I found this piece of code on the web (don't remember where) and I've made many adjustments to it. The only problem I'm having is I can't seem to add pictures to a date. For example, when the user double clicks on a date to add a text reminder, I would like him to also add a picture to that date. I would appreciate it if any of you could lend some help. Thanx.
NOTE:
This is a simplified version of my calendar. In the calendar in the attached zip file, I have changed the way the user changes the year (it is just a simple command button) and have deleted certain parts of the code that would have just cluttered things up for someone tryin to understand the code.
Edited by - Marce22 on 12/9/2003 1:24:33 PM
Date & Calendar - Need Help With Calendar
Basically I'm trying to create a program which will print the date (day, day of the week, month, year) and the month that that day is in, mainly using the zeller congruence.
The code is below. Everything works, the zeller quantity is right, the date prints fine. The only problem I have is that I'm not sure how I should do the calendar. The Sub for the Calendar is at the bottom, and there you can see my attempt at printing it, but it didn't get anywhere.
Anyone know how I'd code it so that the calendar prints? If you want I can zip everything and attatch the file.
Thank you!
Edit: Oh and this is in Vb6.
VB Code:
'Purpose: Create a program which will allow a user' to choose a day, a month, and enter a' year. After the data is inputted is' collected, the date and the calendar of' that month in that year is printed. Option Explicit Sub LeapYear(blnLeapYear As Boolean, intYear As Integer) intYear = txtYear.Text 'If intYear Mod 4 = 0 Then 'blnLeapYear = True If (intYear 100) Mod 4 = 0 Then blnLeapYear = True If (intYear Mod 100) Mod 4 <> 0 Then blnLeapYear = False End If End If End Sub Sub MaxDays(intDaysInYear As Integer, intDaysInMonth As Integer) Dim blnLeapYear As Boolean Dim intYear As Integer LeapYear blnLeapYear, intYear If blnLeapYear = True Then intDaysInYear = 366 ElseIf blnLeapYear = False Then intDaysInYear = 365 End If If cmbMonth.ListIndex = 0 Or cmbMonth.ListIndex = 2 Or cmbMonth.ListIndex = 4 Or cmbMonth.ListIndex = 6 Or cmbMonth.ListIndex = 7 Or cmbMonth.ListIndex = 9 Or cmbMonth.ListIndex = 11 Then intDaysInMonth = 31 ElseIf blnLeapYear = True And cmbMonth.ListIndex = 1 Then intDaysInMonth = 29 ElseIf cmbMonth.ListIndex = 1 And blnLeapYear = False Then intDaysInMonth = 28 ElseIf cmbMonth.ListIndex = 3 Or cmbMonth.ListIndex = 5 Or cmbMonth.ListIndex = 8 Or cmbMonth.ListIndex = 10 Then intDaysInMonth = 30 End If End Sub Private Sub cmdDisplay_Click() Dim blnDateValidity As BooleanDim strDayName As StringDim strMonthName As StringDim intYear As IntegerDim intDay As Integer picCalendar.Cls intYear = txtYear.TextintDay = cmbDay.ListIndex + 1 Valid blnDateValidity If blnDateValidity = True Then DayName strDayName MonthName strMonthName picCalendar.Print strDayName & ", " & intDay & " " & strMonthName & " " & intYearElseIf blnDateValidity = False Then MsgBox "The date you entered is not valid. Please ensure that if February, it is either the 28th or 29th depending on whether or not it is a leap year, and make sure the year is between 1600 and 2200.", vbOKOnly, "Sorry!"End If Calendar End Sub Sub Valid(blnDateValidity As Boolean) Dim blnLeapYear As Boolean Dim intYear As Integer LeapYear blnLeapYear, intYear If (cmbMonth.ListIndex = 3 Or cmbMonth.ListIndex = 5 Or cmbMonth.ListIndex = 8 Or cmbMonth.ListIndex = 10) And cmbDay.ListIndex < 30 And (intYear > 1599 And intYear < 2201) Then blnDateValidity = True ElseIf cmbMonth.ListIndex = 0 Or cmbMonth.ListIndex = 2 Or cmbMonth.ListIndex = 4 Or cmbMonth.ListIndex = 6 Or cmbMonth.ListIndex = 7 Or cmbMonth.ListIndex = 9 Or cmbMonth.ListIndex = 11 And (intYear > 1599 And intYear < 2201) Then blnDateValidity = True ElseIf cmbMonth.ListIndex = 1 And (intYear > 1599 And intYear < 2201) And cmbDay.ListIndex < 28 And blnLeapYear = False Then blnDateValidity = True ElseIf cmbMonth.ListIndex = 1 And (intYear > 1599 And intYear < 2201) And cmbDay.ListIndex < 29 And blnLeapYear = True Then blnDateValidity = True Else blnDateValidity = False End If End Sub Sub Zeller(intReturnedDay As Integer) Dim intM As Integer Dim intY As Integer Dim intP As Integer Dim intR As Integer Dim intMonth As Integer Dim intDay As Integer intDay = cmbDay.ListIndex + 1 intMonth = cmbMonth.ListIndex + 1 intM = intMonth - 2 intY = Val(txtYear.Text) If intM <= 0 Then intM = intM + 12 intY = intY - 1 End If intP = intY 100 intR = intY Mod 100 intReturnedDay = (intDay + (26 * intM - 2) 10 + intR + intR 4 + intP 4 + 5 * intP) Mod 7 End Sub Sub DayName(strDayName As String) Dim intReturnedDay As Integer Dim intY As Integer Zeller intReturnedDay If intReturnedDay = 0 Then strDayName = "Sunday" ElseIf intReturnedDay = 1 Then strDayName = "Monday" ElseIf intReturnedDay = 2 Then strDayName = "Tuesday" ElseIf intReturnedDay = 3 Then strDayName = "Wednesday" ElseIf intReturnedDay = 4 Then strDayName = "Thursday" ElseIf intReturnedDay = 5 Then strDayName = "Friday" ElseIf intReturnedDay = 6 Then strDayName = "Saturday" End If End Sub Sub MonthName(strMonthName As String) If cmbMonth.ListIndex = 0 Then strMonthName = "January" ElseIf cmbMonth.ListIndex = 1 Then strMonthName = "February" ElseIf cmbMonth.ListIndex = 2 Then strMonthName = "March" ElseIf cmbMonth.ListIndex = 3 Then strMonthName = "April" ElseIf cmbMonth.ListIndex = 4 Then strMonthName = "May" ElseIf cmbMonth.ListIndex = 5 Then strMonthName = "June" ElseIf cmbMonth.ListIndex = 6 Then strMonthName = "July" ElseIf cmbMonth.ListIndex = 7 Then strMonthName = "August" ElseIf cmbMonth.ListIndex = 8 Then strMonthName = "September" ElseIf cmbMonth.ListIndex = 9 Then strMonthName = "October" ElseIf cmbMonth.ListIndex = 10 Then strMonthName = "November" ElseIf cmbMonth.ListIndex = 11 Then strMonthName = "December" End If End Sub Private Sub Form_Load() cmbMonth.ListIndex = 1cmbDay.ListIndex = 0txtYear.Text = 2004 End Sub Sub Calendar() Dim intDayCount As Integer Dim intDayCountTwo As Integer Dim intDay Dim intReturnedDay As Integer Dim intDayTwo As Integer Zeller intReturnedDay Print intReturnedDay picCalendar.Print " " picCalendar.Print "Sun Mon Tue Wed Thurs Fri Sat" intDay = 0 If intReturnedDay = 0 Then Loop Until intDay = 7 intDay = intDay + 1 picCalendar.Print intDay; For intDayCountTwo = intReturnedDay + 1 To 6 intDayTwo = intDay + 7 picCalendar.Print intDayTwo; Next intDayCountTwo picCalendar.Print " " Next intDayCount End If End Sub
Calendar Date
Im using VB6 and would like to add a calendar to my project. Only thig is, when I place the calendar on the form, the highlighted date is the date I placed it on the form:
Placed it on the 9th 3 Days later the highlighted date is STILL the 9th !!
Is there a way I can get the calendar 2 read the computers date and update itself automatically ?
Thankyou
Calendar Date
I'm creating a basic calendar using MS Calendar Control 9.0. It works fine but say I choose the 23rd of January but then decide to switch to February. When I click on February, no date is selected. (i.e. February 23rd or 1st) Is there a simple control on the calendar to make this defualt to a date?
Calendar:highlighting More Than One Date
Hi!
I've a month view object in my form and I want to show highlighted in some way(changing de background colour, the foreground colour, setting to bold, etc) more than the actual day.
I proved this:
monthView1.DayBold(CDate("19/03/2004")) = True
and it's not functioned.
I'll prefer changes the colour because I Want to distinguise the days of holiday from the days where is a reminder (a reminder it's what i'm trying to do)
I don't believe i have to program all the calendar by myself!!!
Thanks for any help.
Format Date In Calendar
i used the calendar in the components of VB and the value that it gives me has this format "mm/dd/yyyy". how can i make the format to "mm-dd-yyyy"? help pls...
Add Text To Calendar Date
Did any one tried to add text to the Calendar Control and display on a specific date? I am trying to use it as a appointment viewer, but can't add any text to a date. The Calendar Control I am talking about is the Infragistic Month/Day/Year combo.... ) SSCALA32.OCX.
Can you help?
Thanks
Date On Calendar Into ADO Textbox
I have a ADO recordset and I am adding a new record right... When I click "add" everything clears and an option to set Calendar1.Visible = True (show calendar) comes up. I click on the show calendar option and the calendar comes up. The problem is that I want to click a date on the calendar and have it appear in the text box. I have already done this in other forms in this project but not on a txt box that is joined with an ADO recordset. Does anybody know how to do this?
Code:
Private Sub Calendar1_Click()
txtDate = Calendar1.Value
Calendar1.Visible = False
End Sub
The error says it is a compile error and improper use of property.
Calendar Start Date.....
I am unsure about how to modify the calendar selection so that when the user opens up the calendar it opens on the current date. Can somebody please identify where in the code I need to make this change? Many thanks:
'VB script to be used for modifying the date within the DI-Diver script
'Created by Darren Carr
'25/09/03
Option Explicit
Private Const SEARCH_STRING As String = """Advert_Insert_Date BETWEEN """
Private Const DATE_FORMAT As String = "YYYY-MM-DD"
'Input file property
Private Property Get TemplateFilename() As String
Dim strPath As String
strPath = App.Path
If Not (Right$(strPath, 1) = "") Then
strPath = strPath & ""
End If
TemplateFilename = strPath & "liverpool.int"
End Property
'Output file property
Private Property Get NewFilename() As String
Dim strPath As String
strPath = App.Path
If Not (Right$(strPath, 1) = "") Then
strPath = strPath & ""
End If
NewFilename = strPath & "liverpool1.int"
End Property
Private Sub cmdLoadile_Click()
Dim intFile As Integer
Dim strData As String
Dim strFile As String
intFile = FreeFile
Open TemplateFilename For Input As #intFile
Do While Not EOF(intFile)
'Input #intFile, strData
Line Input #intFile, strData
strFile = strFile & strData & vbCrLf
Loop
Close #intFile
strFile = Replace$(strFile, "<<DATE_FROM>>", Format$(dtpFrom.Value, DATE_FORMAT))
strFile = Replace$(strFile, "<<DATE_TO>>", Format$(dtpTo.Value, DATE_FORMAT))
If Not (Dir(NewFilename) = vbNullString) Then
Kill NewFilename
End If
intFile = FreeFile
Open NewFilename For Output As #intFile
Print #intFile, strFile
Close #intFile
txtNewSearch.Text = strFile
MsgBox "New int (Integrator Extract) file saved at: " & NewFilename
End Sub
Private Sub Command1_Click()
frmDateRange.Visible = False
End Sub
Calendar Week To Date
Guys this is urgent! Please help.
I need to convert a calendar week no into a date (Saturday).
I did set the first Saturday of the year into a formula (as below). But the output is all Sundays.
sWeekEnding = DateAdd("d", ((rst2!CalendarWeek * 7) - 2), rst5!firstsaturday)
Please help. Is there any other formula that I can use?
Thanks.
Bold Date In Calendar
Hey,
I need to select with bold somw date and as I ahve seen calendar does not have such option.
Please help.
Timer Control Triggered By Date&Time VB6/Access
Hi Guys, I Have a form with a datagrid,Timer and command button.
Im trying to get a timer control to pop up a message when the current time now() is equal to a variable.
What im trying is running but never popping up the msgbox in the timer
Code:
Private Sub Command6_Click()
Dim Timed1
Dim Timed2
Dim timeduration1
On Error Resume Next
Timed1 = DataGrid2.Columns(2).Value
Timed2 = DataGrid2.Columns(0).Value
timevalue1 = DateDiff("n", Timed2, Timed1)
timevalue1 = DateAdd("m", timevalue1, Now())
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
timer1 = Now()
If timer1 = timevalue1 Then
MsgBox "Time Has been Reached"
End If
End Sub
Any and all suggestions are welcomed.
Regards as ever
Colin
I Need To Get Date Value From MonthView Control And Use It To Search Access Database
I am building a little app which allows user to click on monthview date and display study details for half hour time slots for the day chosen in a flexgrid in bottom half of form.
I don't know much about SQL. So far I can get the app to display items with a value of today's date but I can't get it to pick up the date clicked and use that.
I need help fairly urgently or I will have major egg on face!
Calendar Date Display Question
Hello,
I have a calendar (MSCAL.Calendar.7) problem is the Calender doen't go to the current date when I run the program, is there a way to have it do that?
I have been trying to figure it out and I know that the Calender has the property calender1.value. I tried the following code but it doesn't work and I was wondering why?
calender1.value = date()
Is there a way I can fix this using the properties window? Please explain what I need to do to fix this if you know
thanks
Setting Calendar To Current Date
Hi,
Simple problem...In Access 2002 I am using Microsoft's Calendar Control. Prior to displaying the calendar I would like to set it to the current date. Shouldn't be rocket science however nothing I try works. Can someone please help this moron out. Thanks.
Calendar Don't Show Date & Days
Hi Friends,
I am back to my favourite rescue team.
I am working on one little old app. based on VB-6.
App. works great on one network.
Now, I have installed app. on another netwrok.
Whole app. works fine, BUT, calendar controls DON'T SHOW DATE & DAYS.
What could be cause of such strange problem.
Thank you, for your kind help, friends.
-nanc
VB Calendar Don't Show Previous Date
Hello,
I have a VB 6 application that allows the user to pick a date but I don't want them to be able to pick a previous date (old date). How can I set my calendar not to show previous date?
Thank you!
*Resolved* System Date/Calendar
Is there anyway of vb gathering the date and the day from your pc and displaying it in a form within a vb project.. ?
or even better is to have a button which when pushed brings up the windows time and date calendar?
Because every calendar prog code I have found on the net is wrong cause they all tell me that today is a saturday lol...
--------------------------------------------------------------------------------
I am a VB learner with huge ideas!! push yourself and you shall learn more
First Project: www.BowlAGE.co.uk (Forever GROWING!!)
I aim to assist the Ten Pin Bowling Instructors around the world with this!!!!
--------------------------------------------------------------------------------
Edited by - EPOS on 2/14/2005 6:13:34 AM
Date/Time And Calendar Question ...
have two questions ...
I need to force a specific date and time format for users regardless of what their system regional settings are. For some they are using a 24 hour clock and for others it is a 12 hour clock and the date on some is mm/dd/yyyy and on others it id yyyy/dd/mm etc. I know of the formatDateTime() option but it only looks at the system settings. Is there any way to force a specific format?
Secondly - I have a monthview1 calendar. When the date changes I would like the "Today" option to refresh. I have managed to get the highlighted field to change by adding a time and a midnight in the timer event I have monthview1.value = Date so it changes but the "today" option does not. The Code:monthview1.refresh = True does not do anything.
Fill Calendar Component With My Date
Admit have a button un userform named "Calendar".
With the click on this button i want to apper the calendar component and select a date, store the selected date in var_date.
But i want to fill the calendar with the range in column S and naturally hilight onlly the days found in range of column S
DTPicker, Did Not Select Date In Popup Calendar
When using the DTPicker control is there a way not to change the date unless the user clicks/selects a date from the calendar.
For example if a user selects the DTPicker control and scrolls the popup calendar backwards or forward a month and decides not to select/change a date, by clicking outside of the calendar area, I do not want the control to set its Value property to the date that the user scrolled to.
AlanG
How Do I Open The Outlook Calendar On A Specific Date (day)?
Hello readers,
I'm looking for a way to open the calendar in Outlook on a specific day.
This is the code I use so far.
Function OLShowOtherCalendar(UserName As String) As Boolean
Dim ol As Outlook.Application
Dim olns As Outlook.NameSpace
Dim olFld As MAPIFolder
Dim olRecipient As Outlook.Recipient
' Automation code example.
Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")
Set olRecipient = olns.CreateRecipient(UserName)
olRecipient.Resolve
If olRecipient.Resolved Then
Set olFld = olns.GetSharedDefaultFolder(olRecipient, olFolderCalendar)
olFld.Display
OLShowOtherCalendar = True
Else
LShowOtherCalendar = False
End If
End Function
Does anyone have some suggestions?
THX in advance.
Excel VBA - Export Outlook Calendar With Date Range
Dear all
I had used the excel VBA to grap all the data by from MS outlook calendar to a excel file. Now i want to limited the date range (Eg. data between 01 - 10 May 2006), is there anywhere i can supply the date range parameter to my existing VBA code?
Thanks
Jack C
How To Link To Another Page Using Button & Adding Text To The Calendar's Date.
1) How to use a "button" to link to another page..
i cannot use the navigateURL , wat should i do in order to link to another page when i press the "button" ?
2) how to add text to my calendar?
eg. when i click on the date itself i want to add contents/texts into that particular date ... i want to make it something like
PDA application.
Help! -- Put Calendar In Access
Could anybody helps me?
How to insert a calendar in Access, so that I can click the calandar icon and choose the date I want to input into the database instead of typing date like 09/03/2004 in a blank.
Thanks in adv!!!
Access Calendar
I am trying to build a form in MSAccess where clicking on a date in the activex calendar produces a list
of records with that date. When I click on the date I get all the records not just the date selected. I am a beginner who really needs some guidance on this. Thanks
|
TRACKER
