اذهب الي المحتوي
أوفيسنا

عدم ترك خانه فارغه


إذهب إلى أفضل إجابة Solved by ابوخليل,

الردود الموصى بها

السلام عليكم

اود شكر كل من ساهم في مساعدتي في برنامجي

واود منكم المساعدة في المرفق

الموضوع في الايبان في خانة اضافة بيانات

المطلوب في حال كتابة رقم يتم التنبؤ بالايبان بشكل تمام

ولكن اود في حال ترك خانه فارغه يعني رقم ناقص لايتم الحفظ الا في ملئ كافة رقم اليبان

وشكرا

W.rar

رابط هذا التعليق
شارك

ده مثال من اختنا الكريمه زهره بارك الله فيها 

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

عدم ترك عدة حقول فارغه ولايقبل الحفظ إلا يتعبئتها باستخدام الكود زهره.rar

رابط هذا التعليق
شارك

انا عدلتلك فيه على قد خبرتى 

شوف التعديلات 

نصيحه من اخ ومن خبراء قواعد البيانات استخدم التسميات بالانجليزى 

Up-W.rar

تم تعديل بواسطه طالب علم مبتدىء
رابط هذا التعليق
شارك

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

ولكن لم يؤدي المطلوب

انظر الى المرفق وشاهد في مربع اضافة الايبان يتم التنبؤ بالرقم بشكل سليم ولكن يقبل الحفظ لو ناقص رقم وده غلط لازم يمتلئ كافة الارقام الخاصه في الايبان

اتمنى ان يكون التوضيح مفيد

W.rar

رابط هذا التعليق
شارك

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

ولكن لم يؤدي المطلوب

انظر الى المرفق وشاهد في مربع اضافة الايبان يتم التنبؤ بالرقم بشكل سليم ولكن يقبل الحفظ لو ناقص رقم وده غلط لازم يمتلئ كافة الارقام الخاصه في الايبان

اتمنى ان يكون التوضيح مفيد

 

اخى الكريم 

انت قلت 

 

 

المطلوب في حال كتابة رقم يتم التنبؤ بالايبان بشكل تمام

ولكن اود في حال ترك خانه فارغه يعني رقم ناقص لايتم الحفظ الا في ملئ كافة رقم اليبان

وشكرا

 

ترك الخانات الفارغه شىء 

وعد الارقام الناقصه شىء آخر 

 

هل رقم الايبان ثابت ؟ 

كم رقم ؟

 

احاول مساعدتك على قد ما اقدر فمازلت اتعلم مثلك

رابط هذا التعليق
شارك

رقم الايبان مكون من 24 رقم وهو غير ثابت طبعا لكل موظف له رقم لايتطابق مع موظف اخر وعند كتابة رقم الايبان يتم التبنؤ في حال يوجد رقم سابق ولكن في حال لايوجد رقم سابق وكتبت 23 رقم يجب ان لايتم الحفظ

رابط هذا التعليق
شارك

أخى الكريم 

فى حدث عند الخروج او حدث باعد التحديث ضع الكود التالى 

If e < 24 Then
 MsgBox " رقم الآيبان المدخل اقل من 24 رقم ", vbExclamation, "إنتبه "
Kwmy.SelLength = Len(Kwmy.text)
                Cancel = True

غير الكلمات فى الكود Kwmy الى اسم حقل الايبان لديك

إن شاء الله يظبط معاك

تم تعديل بواسطه طالب علم مبتدىء
رابط هذا التعليق
شارك

  • أفضل إجابة

جزاك الله خيرا ياطالب العلم

تعديل بسيط على الكود 

جرب لعله ينفع

If Len(yourText)<> 24 Then
 MsgBox " رقم الآيبان المدخل لا يساوي 24 رقم ", vbExclamation, "إنتبه "
                Cancel = True
end if

 

 

والا كما ذكر لك ارفق المثال على صيغة mdb

  • Like 1
رابط هذا التعليق
شارك

الكود تمام ورسالة رقم الايبان لايساوي 24

ولكن تظهررسالة لايمكنك الذهاب الى السجل المحدد ماهي طريقة الغائها

وشكرا جزيلا

رابط هذا التعليق
شارك

الكود شغال 100%

و (yourText) يعني اسم حقل الايبان الذي عندك

 

للمعلومية

يمكنك دائما حفظ المثال علي اي اصدار 2003 او 2007  ...

من : ملف / حفظ ونشر

 

وهذا مثالك بعد التعديل

 

Wz.rar

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information