قناع الادخال

[jo_2010]

الى الافاضل خبراء الاكسيس

بعد التحية

عندى جدول بة عام الميلاد مثلا 1975 او 1951 اريد فى النموذج ان اكتب 51 فقط فتظهر 1951

او 70 فتظهر 1970 حاول اعملها بقناع الادخال لكنى فشلت ارجو افادتى جازاكم اللة خيرا

شكررررررررررررررررررررراااااااااااااااااااااااا مقدما

 

[محمد احمد لطفى]

If Me.x = 50 then me x = 1950

elseif me.x=51 then Me.x 1951 
وهكذا 

اخي العزيز ارفق مثال ليتم عليه التعديل ومساعدتك

 

•  

تم تعديل أبريل 17, 2018 بواسطه محمد احمد لطفى

[jo_2010]

اخى الفاضل محمد

النموذج الذى اعمل علية هو اسم المريض وسنة واسم الطبيب المعالج انا اقوم بكتابة سنة الميلاد من البطاقة ومن خلال عملىة حسابية يتم طرح 2018 من سنة الميلاد يعطى السن

مثلا 1970 عندما اقو بكتابتها فى مربع عام الميلاد يعطى فى مربع السن 2018-1970=48 سنة

هذا ابسط مثال فلايعقل ان اكتب كود بة كل السنين كل ماريدة هو    --19 وانا اقوم بوضع رقمين مكان الشرطتين 70 مثلا تصبح 1970 ارجو ان يكون سؤالى وطلب وصل لحضرتك

 

[ابوخليل]

على اعتبار ان اسم حقل تاريخ الميلاد  txtdate

فيما لواحتجت التغيير بين سنة 2000  و 1900 في حدث بعد التحديث اكتب السطر التالي :

Private Sub txtdate_AfterUpdate()
txtdate = Left(Format(Date, "yyyy"), 2) - 1 & txtdate
End Sub

او هذا الاختصار يقوم بالمهمة

Private Sub txtdate_AfterUpdate()
txtdate = "19" & txtdate
End Sub

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

حتى لاتمكن من ادخال اكثر من رقمين

[jo_2010]

الاخ الفاضل ابو خليل 

اشكرك على علمك الذى لاتبخل بة على احد قمت بتطبيق الكود الاول واعطى نتائج مزهلة ولكن كيف استخدم سنة مثلا 2005

كما ذكرت حضرتك انة ممكن التغيير بين سنة 2000  و 1900 في حدث بعد التحديث اكتب السطر التالي

كيف اقوم بهذا التغيير

اريد كتابة 2005 كيف يتم كتايتها فى الحقل عندما اكتب 05 يتحول الى 195 

سامح خبرتى المحدودة فى الاكواد واشكر سعة صدرك لك خالص الشكررررررررررررررر

[ابوخليل]

قصدت من كلامي لو اردت ان الرقم يبقى على القرن الحالي الافتراضي اللي هو 2000  فقط  احذف  (1-) الموجود في سطر الكود

في ١٨‏/٤‏/٢٠١٨ at 03:43, jo_2010 said:

اريد كتابة 2005 كيف يتم كتايتها فى الحقل عندما اكتب 05 يتحول الى 195 

لن تتمكن من الحصول على نتيجتين مختلفتين في حقل واحد الا  باستخدام واسطة

لان اكسس حين تكتب الرقم ( 05) لا يعلم هل تريد 2005  أو 1905

لذا  يجب ان تستخدم وسيطة  مثلا :

- تستخدم خانة خيار بجانب الحقل لتحديد القرن

او

- يتم ادخال رقم كعلامة على القرن مثلا  الرقم  05  اذا ادخلته هكذا تكون النتيجة  2005

ولكن اذا اردت القرن السابق  يجب ان تضيف صفرا بالبداية 005 لتكون النتيجة 1905

هذه الوسيطة يتم معالجتها داخل الكود باستخدام  الشرط ( اذا كان عدد الارقام  3  اذن = 19 واذا  2 = 20 )  شي مشابه لهذا

او اي وسيطة اخرى ترى انها مناسبة فالبرمجة فكر وطريقة

كلمة اخيرة : كتابة اربعة ارقام اسهل من كل هذه الدوشة .. 

[jo_2010]

لك كل الشكر اخي الفاضل  ابو خليل

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

[ابوخليل]

 

[jo_2010]

الاخ الفاضل ابو خليل 

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

لس سؤال جديد بخصوص الوضوع السابق

عملت رسالة تظهر عندما يكون السن اقل من 12 سنة تحذر انة صغير السن عندما اضغط  ok من الرسالة 

على الرغم من انى طلبت عند الضعط على  ok  

 me.b_y=null

me.b_y.setfocus

لكى اقوم بكتابة السن صح لكن اجد المؤشر تترك حقل b_y فارغ

وانتقل الى الحقل التالى وهو حقل مكان السكن

كيف الزم المستخدم بعدم ترك الحقل الا بعد تصحيح

 

 لك خالص الشكررررررررررررررر

[ابوخليل]

استخدم حدث قبل التحديث 

وضع هذا السطر لالغاء الحدث

DoCmd.CancelEvent

 

[jo_2010]

اخي الفاضل ليس هذا مااريدة الامر السابق يلغي الحدث كلة وسوف اعيد اداخال البيانات من جديد كل ماريدة هو عندما تظهر رسالة بانالسن اقل من المسموح بة واضغط على ok يذهب المؤشر الي حقل( سنة الميلاد)ولكن مع الاسف يذهب إلى  هناك ولايستقر للتعديل لكنة يذهب لحظة وبعدها ينتقل الي الحقل التالي وهو( مكان السكن

لماذا لايستقر المؤشر في حقل سنة الميلاد علي الرغم من اني واضع كود بعد ظهور الرسالة اضغط ok 

Me.b_y.setfocus

Me.b_y= null

لجعل الحقل جاهز للتعديل ورغم هذا بجعل الحقل فارغ وينتقل إلى الحقل التالي هاتجنن مش عارف ليةرغم اني عامل نفس الاوامر في نماذج اخري وتعمل بكفاءه افيدوني كيف اجعل المؤشر يستقر في الحقل الذي اريدة ولايغادرة قبل التحديث وضغط انتر اطلت عليكم افيدوني شكرااااااا