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

[وسيم الحمادة]

السلام عليكم

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

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

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

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

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

وشكرا

W.rar

[أبوبسمله]

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

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

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

[وسيم الحمادة]

شكرا كثير لك ولكن اود التوضيح اكثر ارجو المساعدة

[أبوبسمله]

وضح النموذج اللى تريد العمل عليه اخى الفاضل حتى تلقى المساعده 

بالتوفيق

[وسيم الحمادة]

موجود اخي الكريم في بداية الصفحة وجزاك الله كل خير 

[أبوبسمله]

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

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

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

Up-W.rar

تم تعديل يوليو 7, 2015 بواسطه طالب علم مبتدىء

[وسيم الحمادة]

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

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

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

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

W.rar

[أبوبسمله]

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

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

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

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

 

اخى الكريم 

انت قلت 

 

 

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

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

وشكرا

 

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

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

 

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

كم رقم ؟

 

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

[وسيم الحمادة]

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

[أبوبسمله]

أخى الكريم 

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

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

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

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

تم تعديل يوليو 7, 2015 بواسطه طالب علم مبتدىء

[وسيم الحمادة]

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

والمرفق يوضح الخطوات والرسائل حيث انه لم يؤدي المطلوب.

W.rar

[أبوبسمله]

قم بتحويل الملف الى تنسيق 2003 

لان اوفيس حاليا معايا 2003 حت استطيع ان اساعدك او احد الاخوان يساعدك ان شاء الله

[ابوخليل]

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

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

جرب لعله ينفع

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

 

 

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

[وسيم الحمادة]

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

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

وشكرا جزيلا

[ابوخليل]

اكتب الايعاز التالي :

DoCmd.CancelEvent

بدلا من :

Cancel = True

 

ولا تنسى تجعل الحدث قبل التحديث 

[وسيم الحمادة]

الكود صحيح وشغال ولكن لايقبل الحفظ لو كان العدد 24 خانة

[أبوبسمله]

حول البرنامج لصيغة 2003

وارفعه وهنشوف ايه المشكله

[وسيم الحمادة]

انا شغال على 2010 والله 

المعذرة منك اتمنى الحل على 2010 لو سمحت.

[أبوبسمله]

معذرة أخى الكريم فا أنا لا أملك 2010

شغال على 2003  قم بتحويله وارفعه وكمل انتا زى ما تحب على نسختك 

[ابوخليل]

الكود شغال 100%

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

 

للمعلومية

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

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

 

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

 

Wz.rar

[وسيم الحمادة]

جزاكم الله كل خير اخواني الكرام