با سلام به دوست عزیز askar
این نمونه رو ببینید (نمونه تکمیل شده از سایت برنامه نویس)
هر جا خواستید از تقویم استفاده کنید این کد را اضافه کنید
DoCmd.OpenForm "frmcalendar", acNormal, , , , acDialog
If strDate <> Empty Then
txt_date.Value = strDate
End If
فرم و دو ماژول همراه آن را در برنامه خود کپی و یا درگ (drag & drop)کنید
موفق باشید
پاسخ با نقل قول