jo_2010 قام بنشر أبريل 17, 2019 مشاركة قام بنشر أبريل 17, 2019 السادة الافااضل بعد التحية ارجو من سيادتكم مساعدتى فى طلبى هذا هو عدم انتقال المؤشر من حقل pname الا بعد الكتابة فية بمعنى طالما فارغ وتم الضغط على انتر لاينتقل المؤشر الى الحقل التالى مرفق قاعدة مصغرة للتعديل عليها خالص الشكر Database1.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 17, 2019 مشاركة قام بنشر أبريل 17, 2019 وعليكم السلام 🙂 في الحدث "قبل التحديث" للحقل pname تأكد من وجود قيمة ، هكذا مثلا: if len(me.pname & "")=0 then 'لا توجد قيمة في الحقل ، اذن لابد من اشعار المستخدم msgbox "الحقل فارغ، رجاء ادخال قيمة فيه" cancel=true exit sub end if جعفر رابط هذا التعليق شارك More sharing options...
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 فارغ مع خالص الشكر رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 17, 2019 مشاركة قام بنشر أبريل 17, 2019 وانا الآن قمت بنسخ الكود ، وكله تمام !! يعني المؤشر لا ينتقل لحقل آخر ، اذا كان الحقل فارغ (طبعا اذا كتبت نقطة او مسافة ، فلا يُعتبر الحقل فارغ ، وهنا يجب ان تغير اعدادات الحقل حتى يلتزم بالبيانات اللي في القائمة فقط). جعفر رابط هذا التعليق شارك More sharing options...
SEMO.Pa3x قام بنشر أبريل 17, 2019 مشاركة قام بنشر أبريل 17, 2019 استخدم الدالة IsNull لتفادي اخطاء المسافات. رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر أبريل 17, 2019 الكاتب مشاركة قام بنشر أبريل 17, 2019 استاذى الفاضل وضعت الكود فى حدث قبل التحديث وقمت بالتجربة وعند الضغط على انتر ينتقل الكود بكل بساطة الى الاحقل التالى ممكن بعد اذن حضرتك ترسل لى القاعدة المرسلة مع التعديل لو مايتعبش حضرتك ولا يزعلك منى رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
essam rabea قام بنشر أبريل 17, 2019 مشاركة قام بنشر أبريل 17, 2019 Database1.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 17, 2019 مشاركة قام بنشر أبريل 17, 2019 تفضل المرفق 🙂 1041.Database1.accdb.zip رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر أبريل 17, 2019 الكاتب مشاركة قام بنشر أبريل 17, 2019 استاذى الفاضل essam rabea ماالكود واين قمت بكتابتة اريد ان اقوم بتطبيقة على فاعدة البيانات الخاصة بى مع خالص الشكر رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر أبريل 17, 2019 الكاتب مشاركة قام بنشر أبريل 17, 2019 استاذتى الافاضل اتقدم بخالص الشكر لحضرتكم على مساعدتى شكرا لكم جميعا رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 17, 2019 مشاركة قام بنشر أبريل 17, 2019 اخي jo 🙂 الآن وقد حصلت على الاجابة والحمدلله 🙂 رجاء تجربة المرفق الذي ارسلته لك ، لأنه فنيا يجب ان يعمل ، واذا ما عمل ، فمعناه ان الاكسس فيه مشكلة !! جعفر رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر أبريل 18, 2019 الكاتب مشاركة قام بنشر أبريل 18, 2019 (معدل) استاذى الفاضلjjafferr قمت بالتجربة ولم يعمل مع قبل التحديث ولكنة يعمل عند حدث الخروج ولكن هناك مشكلة اذا اردت اضافة سجل جديد وبعد ذلك تراجعت واردت اغلاق النموذج لا يغلق او اذا اردت الذهاب للسجل السابق لا ينفذ الامر ويطالبنى بادخال بيانات اريد خل للخروج مرفق البرنامج بعد وضع الكود فى ُEXIT 1041.Database1.accdb.zip تم تعديل أبريل 18, 2019 بواسطه jo_2010 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.