ถ้าใครเคย d/l ตัวอย่างการใช้ Calendar จาก 
http://agserver.kku.ac.th/basiceng/Computer/download/calendar1.zip 
 
ผมได้ปรับปรุงให้สามารถใช้งานกับ Text Box ที่อยู่ใน Subform ให้ครับ 
โดยให้ copy ฟังก์ชันนี้ลงไป 
 
Function fGetDate3(strControl As String) 
Dim strActiveForm As String, strCurrentControl As String 
    DoCmd.OpenForm "frmCalendarSubForm" 
    Forms!frmCalendarSubForm!txtGetForm = Left(strControl, InStr(strControl, "\") - 1) 
    Forms!frmCalendarSubForm!txtGetControl = Mid(strControl, InStr(strControl, "\") + 1) 
End Function 
 
เวลาเรียกใช้ ก็ใช้เหมือนในตัวอย่างที่เคยทำ แต่เปลี่ยนพารามีเตอร์ดังนี้ 
 
Private Sub BOD_DblClick(Cancel As Integer) 
    fGetDate3 Me.Parent.Name & "\" & Me.Name & "/" & Me.ActiveControl.Name 
End Sub 
 
ถ้าใครยังไม่เคยศึกษาตัวอย่าง ก็เอาไปดูได้ครับตามลิ้งค์ข้างบน หรือจะอ่านบทความเกี่ยวกับ Calendar ก็อ่านได้ที่ http://agserver.kku.ac.th/basiceng/Computer/Calendar.htm ครับ