Hi all i was wondering if any one could help me i'm tring to build a view by month calander to show client appointments i have a text box which starts with the current year which i'm planning to be able to change up and down at a later date using buttons but what i'm stuck on is selecting the current month in such away to link in with a table with the months inside and the number of days in each one partly so i can adjust the number of days for leap years using code i have developed
the code is as follows so far:
Option Compare Database
Dim cYear As Integer
Dim cMonth As String
Dim isLeap As Boolean
Private Sub Form_Current()
cYear = year(Date)
cMonth = Month(Date)
isLeap = leapYear
yearTextBox.Def aultValue = cYear
End Sub
the code is as follows so far:
Option Compare Database
Dim cYear As Integer
Dim cMonth As String
Dim isLeap As Boolean
Private Sub Form_Current()
cYear = year(Date)
cMonth = Month(Date)
isLeap = leapYear
yearTextBox.Def aultValue = cYear
End Sub
Comment