wrightyrx7
Registered User.
- Local time
- Today, 06:42
- Joined
- Sep 4, 2014
- Messages
- 104
Hi all,
Looked online and cannot find anything to correct this. The module is not named the same as the Function which seems to be the popular reason for this.
When the Database is opened by a new user or i send out an updated front-end to current users an error message appears saying: -
-Undefined function 'weekdays' in expression
This is referring to my function that calculates working days which i use in a couple of my queries. I found this function online and it seems to work but i cannot get rid of the error when opening. The code was obtained from the Microsoft website.
Hope someone can help.
Many thanks
Chris
ALSO posted HERE
Looked online and cannot find anything to correct this. The module is not named the same as the Function which seems to be the popular reason for this.
When the Database is opened by a new user or i send out an updated front-end to current users an error message appears saying: -
-Undefined function 'weekdays' in expression
This is referring to my function that calculates working days which i use in a couple of my queries. I found this function online and it seems to work but i cannot get rid of the error when opening. The code was obtained from the Microsoft website.
Hope someone can help.
Many thanks
Chris
ALSO posted HERE
Code:
Public Function Weekdays(ByRef startDate As Date, ByRef endDate As Date) As Integer
' Returns the number of weekdays in the period from startDate
' to endDate inclusive. Returns -1 if an error occurs.
' If your weekend days do not include Saturday and Sunday and
' do not total two per week in number, this function will
' require modification.
On Error GoTo Weekdays_Error
' The number of weekend days per week.
Const ncNumberOfWeekendDays As Integer = 2
' The number of days inclusive.
Dim varDays As Variant
' The number of weekend days.
Dim varWeekendDays As Variant
' Temporary storage for datetime.
Dim dtmX As Date
' If the end date is earlier, swap the dates.
If endDate < startDate Then
dtmX = startDate
startDate = endDate
endDate = dtmX
End If
' Calculate the number of days inclusive (+ 1 is to add back startDate).
varDays = DateDiff(Interval:="d", _
date1:=startDate, _
date2:=endDate) + 1
' Calculate the number of weekend days.
varWeekendDays = (DateDiff(Interval:="ww", _
date1:=startDate, _
date2:=endDate) _
* ncNumberOfWeekendDays) _
+ IIf(DatePart(Interval:="w", _
Date:=startDate) = vbSunday, 1, 0) _
+ IIf(DatePart(Interval:="w", _
Date:=endDate) = vbSaturday, 1, 0)
' Calculate the number of weekdays.
Weekdays = (varDays - varWeekendDays)
Weekdays_Exit:
Exit Function
Weekdays_Error:
Weekdays = -1
MsgBox "Error " & Err.Number & ": " & Err.Description, _
vbCritical, "Weekdays"
Resume Weekdays_Exit
End Function