• 0
ramynassif

العودة إلى نفس الحقل بعد تحديثه

سؤال

أعزائى الكرام هى ممكن تكون حاجة بسيطة ولكن عقلى وقف فى التفكير بها فأرجو مساعدتكم

فى داخل الفورم عند حقل معين بعد الكتابة بداخلة  واستخدام "أنتر" يعود مره أخرى له أما  إذا كان فارغاً بدون بيانات يذهب عادى إلى الحقل التالى بعد "أنتر"

أرفق مثال للتوضيح أكثر

وشكراً لمد يد المساعدة

Tab field Stop.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

6 إجابة على هذا السؤال .

  • 0

وعليكم السلام :)

 

ما تستطيع ان ترجع له مباشرة ، لازم تروح لحقل آخر ثم ترجع له :

Private Sub Text1_AfterUpdate()    'DoCmd.GoToControl ("Text1")    If Len(Me.Text1 & "") <> 0 Then        Me.Text2.SetFocus        Me.Text1.SetFocus    End If    End Sub

جعفر

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أخى العزيز جعفر أشكرك على سرعة تفاعلك معى أنا أيضاً فكرت فى هذا ولكن أنا مستغرب لايوجد أى حل أخر 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

حياك الله :)

 

 

ولكن أنا مستغرب لايوجد أى حل أخر 

 

الرابط التالي يعطينا تسلسل الحدث بالنسبة للنموذج ، والكائنات في النموذج ، والسجلات في هذه الكائنات:

http://office.microsoft.com/en-za/access-help/order-of-events-for-database-objects-HP005186761.aspx

 

 

لو انك فكرت في الموضوع ، لوجدت ان ما يفعله اكسس صحيح:

1. الحدث الذي تم استعماله (او اي حدث آخر) يحصل عندما يتم تغيير القيمة ، ولكننا لم نغادر الحقل ،

2. والطريقة الوحيدة التي يمكننا ان نعود للحقل الذي كنا ، هو عندما نفارق هذا الحقل ونذهب الى حقل آخر (الى الحقل التالي مثلا) ،

لذا ، يمكننا استخدام هذا الكود:

Private Sub Text2_Enter()        If Len(Me.Text1 & "") <> 0 Then        Me.Text1.SetFocus    End IfEnd Sub

فبمجرد ان ندخل الحقل التالي (اي نكون قد خرجنا من الحقل الاول) ، فالكود يستطيع ان يرجع الى الحقل الاول (واذا لاحظت ، ستجد باننا استعمالنا طريقة الكود في مشاركتي الاولى) ، حيث:

1. ذهبنا الى حقل آخر (عن طريق زر Tab او Enter (اي ليس بالكود)،

2. ثم رجعنا الى حقلنا السابق بالكود  :)

 

 

جعفر

تم تعديل بواسطه jjafferr
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

وطريقة اخرى :)

 

اذا كانت توجد قيمة في الحقل Text1 ، فلا تخرج من الحقل اصلا:

Private Sub Text1_Exit(Cancel As Integer)    If Len(Me.Text1 & "") <> 0 Then        Cancel = True    End If    End Sub

جعفر

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

طيب أستاذ جعفر أحنا كده ممكن قربنا نوصل لحل 

هل فى إمكانية بعد استخدام الكود الأخير عند الضغط على زر Tab ينتقل إلى الحقل التالى

أما مع زر Enter لا يستجيب 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ممكن انك تصطاد زر Enter بمعلومات من هذا الرابط :

http://arabteam2000-forum.com/index.php/topic/293234-عند-الضغط-على-زر-enter-يتم-حفظ-البيانات-في-الاكسس/?p=1397918

 

واعمل فيه ما تشاء :)

 

 

جعفر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .