السلام عليكم
نعم يمكنك عمل ذلك ولكن مع بعض التغييرات :
Private Sub Form_Open(Cancel As Integer)
If Date() < #12/26/2007# Then
DoCmd.OpenForm "qry_data1", acNormal, , , acFormAdd, acWindowNormal
Else
msgbox "ضع الرسالة التي تريد"
DoCmd.Close
End If
End Sub
شاهد المرفق
AZ_Frm.zip