انهاء عمل برنامج

[jaffjaff]

تحياتي

اخوان عندى برنامج واود ان لا يعمل بعد تاريخ معين مثال28/12/2007

هل استطيع ان اكتب في حقل الخصائص ( في الحال)في نفس فورم الموظفين

iif [date()]>"28/12/2007" then

open form [الموظفين]

else

DoCmd.exit

[عمار زيد]

السلام عليكم

نعم يمكنك عمل ذلك ولكن مع بعض التغييرات :

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

تم تعديل ديسمبر 24, 2007 بواسطه عمار زيد

[jaffjaff]

جزاك الله خيرا

[copra]

السلام عليكم و رحمه الله و بركاتة

في البداية لكم جزبل الشكر للمساعدة

أريد مساعدتكم في هذا الكود

أريد النموذج يفتح تلقائيا اذا تم تحديث بياناتة من الجدول الخاص بة

و لكم جزيل الشكر