Error argument not optional occurs at Call getCalendarData
How to make your code work? Function getCalendarData(employeeID As Long) As Boolean
Dim rs As DAO.Recordset
Dim strDate As String
Dim strCode As String
Dim strSQL As String
Dim i As Integer
'// setup sql to retrieve one employee's...