jo_2010 قام بنشر أبريل 17, 2019 قام بنشر أبريل 17, 2019 السادة الافااضل بعد التحية ارجو من سيادتكم مساعدتى فى طلبى هذا هو عدم انتقال المؤشر من حقل pname الا بعد الكتابة فية بمعنى طالما فارغ وتم الضغط على انتر لاينتقل المؤشر الى الحقل التالى مرفق قاعدة مصغرة للتعديل عليها خالص الشكر Database1.rar
jjafferr قام بنشر أبريل 17, 2019 قام بنشر أبريل 17, 2019 وعليكم السلام 🙂 في الحدث "قبل التحديث" للحقل pname تأكد من وجود قيمة ، هكذا مثلا: if len(me.pname & "")=0 then 'لا توجد قيمة في الحقل ، اذن لابد من اشعار المستخدم msgbox "الحقل فارغ، رجاء ادخال قيمة فيه" cancel=true exit sub end if جعفر
jo_2010 قام بنشر أبريل 17, 2019 الكاتب قام بنشر أبريل 17, 2019 استاذى الفاضل جعفر قمت بعمل الاتى كما اشرت حضرتك Private Sub Pname_BeforeUpdate(Cancel As Integer) If Len(Me.Pname & "") = 0 Then 'لا توجد قيمة في الحقل ، اذن لابد من اشعار المستخدم MsgBox "الحقل فارغ، رجاء ادخال قيمة فيه" Cancel = True Exit Sub End If End Sub ولكن عند الضغط على انتر ينتقل المؤشر للحفل التالى رغم ان pname قارغ اريد عدم انتقال المؤشر الى حقل جدبد طالما pname فارغ مع خالص الشكر
jjafferr قام بنشر أبريل 17, 2019 قام بنشر أبريل 17, 2019 وانا الآن قمت بنسخ الكود ، وكله تمام !! يعني المؤشر لا ينتقل لحقل آخر ، اذا كان الحقل فارغ (طبعا اذا كتبت نقطة او مسافة ، فلا يُعتبر الحقل فارغ ، وهنا يجب ان تغير اعدادات الحقل حتى يلتزم بالبيانات اللي في القائمة فقط). جعفر
SEMO.Pa3x قام بنشر أبريل 17, 2019 قام بنشر أبريل 17, 2019 استخدم الدالة IsNull لتفادي اخطاء المسافات.
jo_2010 قام بنشر أبريل 17, 2019 الكاتب قام بنشر أبريل 17, 2019 استاذى الفاضل وضعت الكود فى حدث قبل التحديث وقمت بالتجربة وعند الضغط على انتر ينتقل الكود بكل بساطة الى الاحقل التالى ممكن بعد اذن حضرتك ترسل لى القاعدة المرسلة مع التعديل لو مايتعبش حضرتك ولا يزعلك منى
jjafferr قام بنشر أبريل 17, 2019 قام بنشر أبريل 17, 2019 26 دقائق مضت, SEMO.Pa3x said: استخدم الدالة IsNull لتفادي اخطاء المسافات. اخي حسنين 🙂 بدل ان تكتب If isnull(Me.Pname) = false or Me.Pname = "" Then يمكنك استبدالهما بهذا السطر If Len(Me.Pname & "") = 0 Then جعفر 1
jo_2010 قام بنشر أبريل 17, 2019 الكاتب قام بنشر أبريل 17, 2019 استاذى الفاضل essam rabea ماالكود واين قمت بكتابتة اريد ان اقوم بتطبيقة على فاعدة البيانات الخاصة بى مع خالص الشكر
midomashakel قام بنشر أبريل 17, 2019 قام بنشر أبريل 17, 2019 (معدل) Private Sub w1_Exit(Cancel As Integer) ' اجبار المستخدم على ادخال رقم الوارد If IsNull(w1) Or w1 = "" Then MsgBox " عفوا ...! يجب اخال رقم الوارد " DoCmd.CancelEvent w1.SetFocus End If End Sub هذا هو الكود في حدث On Exit تم تعديل أبريل 17, 2019 بواسطه midomashakel 1
essam rabea قام بنشر أبريل 17, 2019 قام بنشر أبريل 17, 2019 أول حقل يذهب اليه المؤشر بعد الضغط على إنتر هو TCode .. أذاً لوكتبت كود للتحقق من إسم المريض فى حدث On Got Focus ان كان خاليا ام لا سيفى بالغرض Private Sub TCode_GotFocus() If IsNull(Forms!New_Project!Pname) Then MsgBox "لا يمكن ترك إسم المريض فارغا" Cancel = True Forms!New_Project!Pname.SetFocus End If End Sub هذا والله أعلم تحياتى 1
jo_2010 قام بنشر أبريل 17, 2019 الكاتب قام بنشر أبريل 17, 2019 استاذتى الافاضل اتقدم بخالص الشكر لحضرتكم على مساعدتى شكرا لكم جميعا
jjafferr قام بنشر أبريل 17, 2019 قام بنشر أبريل 17, 2019 اخي jo 🙂 الآن وقد حصلت على الاجابة والحمدلله 🙂 رجاء تجربة المرفق الذي ارسلته لك ، لأنه فنيا يجب ان يعمل ، واذا ما عمل ، فمعناه ان الاكسس فيه مشكلة !! جعفر
jo_2010 قام بنشر أبريل 18, 2019 الكاتب قام بنشر أبريل 18, 2019 (معدل) استاذى الفاضلjjafferr قمت بالتجربة ولم يعمل مع قبل التحديث ولكنة يعمل عند حدث الخروج ولكن هناك مشكلة اذا اردت اضافة سجل جديد وبعد ذلك تراجعت واردت اغلاق النموذج لا يغلق او اذا اردت الذهاب للسجل السابق لا ينفذ الامر ويطالبنى بادخال بيانات اريد خل للخروج مرفق البرنامج بعد وضع الكود فى ُEXIT 1041.Database1.accdb.zip تم تعديل أبريل 18, 2019 بواسطه jo_2010
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.