اظهار رسالة تحذيرية عند تحقيق شرط معين

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

Private Sub MyText_Exit(Cancel As Integer)
If Len([MyText]) < 13 Then
MsgBox "عذرا اخي الكريم  ... رقم الصنف اقل من المطلوب", vbCritical, "تحذير"
DoCmd.CancelEvent
Me.MyText.SetFocus
End If
End Sub

غير MyText بإسم الحقل الخاص بك

بالتوفيق

شكرا اختي زهرة الله يجزيكي الخير

اختي الكود اشتغل بس ينفذ العملية مرة بعدين الكود ينمسح لوحده ولا اعرف السبب

اختي يا ريت تساعديني القاعدة بالمرفقات والمطلوب التعديل على حقل barcode من نموذج items form

Inventory System.rar

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

za-Inventory System-UP.rar

بالتوفيق

شكرا اختي زهرة

اختي الكريمة الكود الذي يحقق الشرط اشتغل بس الكود الي انا كنت واضعه من الاول يعطي عليه خطأ وهو كود تاكيد اذا كان الصنف موجود ام لا لمنع التكرار

يعني صار تضارب بالكود ولا ايش لانه هذا الخطا ما كان موجود

القاعدة موجودة بالمرفقات الي وضعتيها باخر رد

تفضل اخي الكريم : احمد

ملفك بعد التعديل

za-Inventory System-END.rar

بالتوفيق

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

الكود يعمل 100 %

صدقا لا نعرف كيف نشكرك انتي وهذا المنتدى الرائع لانكم انقذتونا بشكل لم اجده بمكان اخر

وفقك الله اختي