ACCESS VBA 日曆傳值

Private Sub Calendar7_Click()
Forms![查詢日期]![起始日期].Value = Calendar7.Value
DoCmd.Close
End Sub