عمل تنسيق شرطى بعد المقارنة بين تاريخين

[moh_rayan]

السلام عليكم

انا مبتدئ فى الاكسس

ارجو المساعدة فى عمل تنسيق شرطى للتاريخ فى خانة EXP. Date فى حالة عدم ادخاله و تنسيق شرطى اخر فى حالة ان يكون فى غير شهر Date

و ظهور شاشة تحذيرية فى حالة تكرار P.I No مع العلم انه Primary Key و عدم قبول الادخال

و عمل شاشة لاسم المستخدم Password

مرفق المثال

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

INS.rar

[moh_rayan]

يا اهل الخبرة اول طلب ليا

ارجو المساعدة

[Dream_Works]

تفضل أخي الكريم

و عمل شاشة لاسم المستخدم Password

لم أستكمل هذه النقطة . ... أرجو التأكد من باقي الطلبات

INS.zip

[moh_rayan]

اخى الكريم Dream_Works

مشكور على الاهتمام و مجهود رائع

وهذا فعلاً هو المطلوب

و لكن بالنسبة لرسالة Policy Number is Duplicated اتمنى ان تظهر قبل الخروج من الحقل و ليس بعد اكمال السجل و حتى اذا ادى ذلك الى التغيير فى Primary Key

و فى انتظار شاشة User Name و Password و ارجو ان تكون مع الشرح

[Dream_Works]

و لكن بالنسبة لرسالة Policy Number is Duplicated اتمنى ان تظهر قبل الخروج من الحقل و ليس بعد اكمال السجل و حتى اذا ادى ذلك الى التغيير فى Primary Key

أرجو أن مسح الكود التالي من عندك

Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 3022 Then
MsgBox "Policy Number is Duplicated"
Response = 0
End If
End Sub

ووضع الكود التالي في الحدث BeforeUpdate لحقل رقم الشحنة (PI)

Private Sub PI_BeforeUpdate(Cancel As Integer)

If Not IsNull(DLookup("[رقم الشحنة]", Me.RecordSource, " [رقم الشحنة]= '" & Me.PI & "'")) Then

MsgBox "Already Found"

Cancel = True

End If

INS.zip

تم تعديل مارس 11, 2008 بواسطه Dream_Works

[moh_rayan]

شكراً على سرعة الرد

و تمت تجربته بنجاح

و فى انتظار باقى المساعدة

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

[moh_rayan]

اخى الكريم DreamWork ارجو منك باقى المساعدة فانا مازالت فى الانتظار