Private Sub btnDateChosen_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo btnDateChosen_MouseDown_Error
Dim DayValue As Integer
Dim TheDate As Variant
DayValue = (1 + Me![DayZero] + (X \ (Me![1].Width) + (7 * (Y \ (Me![1].Height)))))
If ((DayValue > 0) And (DayValue <= Me![Days])) Then
    TheDate = DateValue(Str$(DayValue) & Format$([CalendarMonth], "/mmm/yyyy"))
    If Me.Parent.lblTime.Caption = "NO TIME" Then
        TheDate = TheDate & " " & Me.Parent.cboHrs & ":" & Me.Parent.cboMins
    End If
    If (OArgs & "" = "") Then
        Forms(sFrm)(sCtl) = TheDate 'returns the date with the control format specified
    Else
          
'<<<<<<  Access error on the following line............. >>>>>>>    
  
        Forms(sFrm)(OArgs).Form(sCtl) = TheDate 'returns the date with the control format specified
    
    
    End If
    DoCmd.Close A_FORM, "frmCalendar"
End If
btnDateChosen_MouseDown_Exit:
    On Error Resume Next
    DoCmd.SetWarnings True
    DoCmd.Hourglass False
    Exit Sub
btnDateChosen_MouseDown_Error:
    MsgBox "An Error Has Occurred..." & Chr$(13) & Chr$(10) & "[" & Str$(Err) & "] " & Error$, 16, "btnDateChosen_MouseDown"
    Resume btnDateChosen_MouseDown_Exit
End Sub

'~~~~~~~~~ Error handler code ~~~~~~~~~
  
   'set up Error Handler -- put at top of procedure
   On Error GoTo Proc_Err

   'statements

   'then, at the bottom of the procedure:

Proc_Exit:
   On Error Resume Next
   'close and release object variables
   Exit Sub/Function
  
Proc_Err:
   SELECT CASE err.number
   'put in case statements for specific error numbers you want to handle
   case 998, 999
       'statements
   case 9998, 9999
       'statements
   END Select

   'if you are here, the specific number was not handled

   MsgBox Err.Description, , _
        "ERROR " & Err.Number _
        & "   ProcedureName"

   'press F8 to step through code and debug
   'remove next line after debugged
   If IsAdmin() then Stop: Resume

   Resume Proc_Exit

End Sub/Function

'~~~~~~~~~~~~~~~~~~~~~~ IsAdmin
Function IsAdmin() As Boolean
   'while developing, set to True
   'for distribution, set to False
   'unless you have savvy users and instruct them what to do if they pop into code <smile>
   IsAdmin = True
End Function