Next Years Meeting Dates

Question

Been toying with different thoughts, SQL and Functions but haven't come up with the right plan of action.
We have a monthly meeting, typically on the 1st Monday of the Month. Occasionally it needs to be different. The date needs to be saved to a Table for referencing other code and documents on the server. These are some of the things I have toyed with in trying
to figure out how to do it.
I have a Form that uses =DMax("BoardDates","Board and submission dates") to return the highest date in the Table.
There are several functions in a Standard Module from the Forums
1)
'"the following function was made to display info on Report"
Public Function fnIsFirstMondayOfMonth(dteInput As Date) As Boolean
fnIsFirstMondayOfMonth = (Day(dteInput) <= 7) _
And (Weekday(dteInput) = vbMonday)
End Function
2)
'The following function by Dirk is to try creating dates on a Form to store in the Tables
Function fncFirstMondayOfNextMonth( _
BaseDate As Date, _
Optional WeekdayWanted As VbDayOfWeek = vbMonday) _
As Date
' Given a datem return the date of the first occurrence
'of a given day of the week in the next month.
' The default is the first Monday
' but the optional WeedayWanted argument
' can be used to specify any desired day of the week, as
' a member of the vbDayOfWeek enum.
Dim dtNextYear As Date
Dim dtNextMonth As Date
Dim intDay As Integer
' Start with the first day of next month.
dtNextMonth = DateSerial(Year(BaseDate), Month(BaseDate) + 1, 1)
' Find the first <WeekdayWanted> on or after dtNextMonth.
intDay = Weekday(dtNextMonth)
'fncFirstWeekdayOfNextMonth = DateAdd("d", (WeekdayWanted + IIf(intDay > WeekdayWanted, 7, 0)) - intDay, dtNextMonth)
End Function
3)
'The following function by Ken is to try creating future dates on a Form to store in the Table
Public Function GetMondayDate(dtmDate As Date, intWeekNum As Integer)
On Error GoTo Err_Handler
Const NOCURRENTRECORD = 3021
Dim rst As DAO.Recordset
Dim strSQL As String
Dim strFrom As String
Dim strTo As String
Dim n As Integer
Dim dtmReturnDate As Date
' get start and end dates of next month as date literals
' in internationally unambiguous ISO format of YYYY-MM-DD
strFrom = "#" & Format(DateSerial(Year(dtmDate), _
Month(dtmDate) + 1, 1), "yyyy-mm-dd") & "#"
strTo = "#" & Format(DateSerial(Year(dtmDate), _
Month(dtmDate) + 2, 0), "yyyy-mm-dd") & "#"
' establish a recordset of all Wednesday dates in next month
strSQL = _
"SELECT WeekStart " & _
"FROM WednesdayCalendar " & _
"WHERE WeekStart BETWEEN " & _
strFrom & " AND " & strTo & _
" ORDER BY WeekStart"
Set rst = CurrentDb.OpenRecordset(strSQL)
' loop until required week of month
' and get Wednesday date
With rst
Do While n < intWeekNum
dtmReturnDate = .Fields("WeekStart")
n = n + 1
.MoveNext
Loop
End With
GetMondayDate = dtmReturnDate
Exit_Here:
Exit Function
Err_Handler:
' if number of weeks in month with a Wednesday
' has been exceeded return a Null
' otherwise inform user of any unknown error
Select Case Err.Number
Case NOCURRENTRECORD
GetMondayDate = Null
Case Else
MsgBox Err.Description, vbExclamation, "Error"
End Select
Resume Exit_Here
End Function
Then have tried the following in unbound controls on the Form with a highest date in the Table at 11/3/2015.
=IIf(fnIsFirstMondayOfMonth([HighestDate]+DatePart("m",2)),Null,"*") & Format([HighestDate],"mmmm dd"", ""yyyy") which returns - The current Date preceded by *
=IIf(("m",[highestdate]>10),DateAdd("m",1,[HighestDate]),[highestdate]) Returns The current date + 1 Month (12/3/2015)
=DateDiff("d",Now(),[HighestDate]) - Returns the difference between today's date and the highest date in the Table (315)
=Format(DateDiff("d",Now(),[HighestDate]),"yyyy") - Returns 1900
=Format([HIghestDate],"yyyy")+1 - Returns the Next highest Year (2016)
=DateAdd("d",("Monday"+IIf([intDay]>[WeekdayWanted],7,0))-[intDay],[dtNextMonth]) - Returns #Name? error
=DateAdd("d",(3+IIf(Day(DateSerial(Year(Date()),Month(Date())+1,1))>3,7,0))-Day(DateSerial(Year(Date()),Month(Date())+1,1)),DateSerial(Year(Date()),Month(Date())+1,1)) - Returns 1/3/2015
=DateAdd("d",7-(7-Day(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),0)+1))),DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),0)+1)) - Returns 1/2/2015
=DateDiff("y",[HighestDate],DateAdd("y",+1,DateAdd("yyyy",3,[HighestDate]))) - Returns 1097
=(365-Day(Now())) - Returns 342
=DateAdd("y",-1,(Now())) - Returns 12/22/2014 2:41:03 PM
=IIf([HighestDate]<Now(),Now(),DateAdd("d",+1,Now())) - Returns 12/24/2014 2:41:03 PM
=Format(IIf([HighestDate]<Now(),Now(),DateAdd("yyyy",+1,Now())),"yyyy") - Returns the year of the highest date (2015)
So we need to be able to have on the Form the 11 dates in Bound controls based on the selected year in an unbound Form, and then have 11 unbound controls show the next years monthly meeting dates. A button to update the unbound dates to the Table provided
those months of the year do not already have dates. We don't want the code to update the Table if the Month/Year already has a date as 1 or 2 times a year the dates will be deferred and we need the deferred date to remain.
I was also looking at using the following code to make it work???
    If Len(Trim(Nz(Me.[JanMDate], "") & "")) = 0 Then
    'check to see if the text box already has data - if it doesn't then
    Me.[JanMDate] = DateAdd("d", 365, Me.[HighestDate])
    'use the Highest date value and calculate next years dates to store in the unboun date text boxes
    End If
Thank you for your help!!!
Just takes a click to give thanks for a helpful post or answer.
Please vote “Helpful” or Mark as “Answer” as appropriate.
Chris Ward
Microsoft Community Contributor 2012

Answer 1

If not automated, regular compacting of a database should be a maintenance task undertaken by the database administrator, but failing that I can see three possible approaches:
1.  Create the temporary table in an external file, which is itself created and deleted at runtime.  The BoM demo in my OneDrive folder adopts this approach to create temporary tables on the fly to simulate recursive querying to generate a bill of
materials.
2.  Adapt my code so that instead of creating a separate table from which to append rows it inserts rows into your operational table annually.
3.  Instead of creating a temporary table, create a permanent auxiliary calendar table stretching 10 or 20 years into the future, and restrict an append query by a date range to insert a subset of rows into the operational table annually.  Auxiliary
calendar tables are normally permanent objects as the dates in them are not usually subject to amendment, apart from the deletion of public and concessionary holidays dates as and when these become known.  In your case, however, if you created a table
of first Mondays of each month say, the table would need to be updated if subsequently the regular dates were to change to another day in the month, e.g. 2nd Tuesday.  This would not be difficult to incorporate into the interface as it would involve no
more than deleting rows after the first Monday dates ceased to be appropriate, and inserting rows from that date onwards for the 2nd Tuesdays.
Ken Sheridan, Stafford, England