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

لابد من ادخال بيانات


jo_2010

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

السادة الافااضل

بعد التحية 

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

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

 

Database1.rar

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

وعليكم السلام 🙂

 

في الحدث "قبل التحديث" للحقل pname تأكد من وجود قيمة ، هكذا مثلا:

if len(me.pname & "")=0 then
	'لا توجد قيمة في الحقل ، اذن لابد من اشعار المستخدم
	msgbox "الحقل فارغ، رجاء ادخال قيمة فيه"
	cancel=true
	exit sub
end if

 

جعفر

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

استاذى الفاضل جعفر

قمت بعمل الاتى كما اشرت حضرتك

Private Sub Pname_BeforeUpdate(Cancel As Integer)
If Len(Me.Pname & "") = 0 Then
    'لا توجد قيمة في الحقل ، اذن لابد من اشعار المستخدم
    MsgBox "الحقل فارغ، رجاء ادخال قيمة فيه"
    Cancel = True
    Exit Sub
End If
 
End Sub
 

ولكن عند الضغط على انتر ينتقل المؤشر للحفل التالى رغم ان pname قارغ

اريد عدم انتقال المؤشر الى حقل جدبد طالما pname فارغ مع خالص الشكر

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

وانا الآن قمت بنسخ الكود ، وكله تمام !!

يعني المؤشر لا ينتقل لحقل آخر ، اذا كان الحقل فارغ (طبعا اذا كتبت نقطة او مسافة ، فلا يُعتبر الحقل فارغ ، وهنا يجب ان تغير اعدادات الحقل حتى يلتزم بالبيانات اللي في القائمة فقط).

 

جعفر

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

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

ممكن بعد اذن حضرتك ترسل لى القاعدة المرسلة مع التعديل لو مايتعبش حضرتك ولا يزعلك منى

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

26 دقائق مضت, SEMO.Pa3x said:

استخدم الدالة IsNull لتفادي اخطاء المسافات.

اخي حسنين 🙂

بدل ان تكتب
If isnull(Me.Pname) = false or Me.Pname = ""  Then

يمكنك استبدالهما بهذا السطر
If Len(Me.Pname & "") = 0 Then

 

جعفر

 

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

 استاذى الفاضل essam rabea

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

مع خالص الشكر

 

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

Private Sub w1_Exit(Cancel As Integer)
' اجبار المستخدم على ادخال رقم الوارد
   If IsNull(w1) Or w1 = "" Then
      MsgBox " عفوا ...! يجب اخال رقم الوارد "
      DoCmd.CancelEvent
      w1.SetFocus
    End If
End Sub


هذا هو الكود في حدث On Exit

تم تعديل بواسطه midomashakel
  • Thanks 1
رابط هذا التعليق
شارك

أول حقل يذهب اليه المؤشر بعد الضغط على إنتر هو 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

هذا والله أعلم

تحياتى

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

اخي jo 🙂

 

الآن وقد حصلت على الاجابة والحمدلله 🙂

رجاء تجربة المرفق الذي ارسلته لك ، لأنه فنيا يجب ان يعمل ، واذا ما عمل ، فمعناه ان الاكسس فيه مشكلة !!

 

جعفر

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

 استاذى الفاضلjjafferr

قمت بالتجربة ولم يعمل  مع قبل التحديث ولكنة يعمل عند حدث الخروج

ولكن هناك مشكلة اذا اردت اضافة سجل جديد وبعد ذلك تراجعت واردت اغلاق النموذج لا يغلق  او اذا اردت الذهاب للسجل السابق لا ينفذ الامر ويطالبنى بادخال بيانات اريد خل للخروج مرفق البرنامج بعد وضع الكود فى ُEXIT

1041.Database1.accdb.zip

تم تعديل بواسطه 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.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information