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

[ahsnko]

السلام عليكم

عندي نموذج يوجد به العديد من الحقول ولكن انا عملت نموذج مصغر للتوضيح .

وكما هو موضح عند الدخول على حقل BOX1  او BOX2 لاضافة فيه رقم معين  .....  مباشره ينقلك الى سجل  1 او 2 الموجود في الجدول  .... اضفت كود عند الدخول الى box ينقلك الى رقم  السجل  على حسب رقم box   

السوال هنا  .... هل يوجد طريقه اظهار بيانات السجلات في نفس القسم ولا تظهر في باقي الاقسام الاخرى ....

 

w.accdbFetching info...

[ahsnko]

 بفضل الله تم حل الموضوع ...

[ابو جودي]

  في 3‏/12‏/2020 at 12:40, ahsnko said:

 بفضل الله تم حل الموضوع ...

Expand  

فصلا وكرما وليس امرا ضع الحل ليكون افادة للجميع 

[ahsnko]

ابا جودى

اخي واستاذنا الحبيب اسوف اقوم بنشر ما عملته انا ...

انتظر قليلا لان في بعض التعديلات التي اجريتها عليه 

[ahsnko]

PPPP.accdbFetching info...  

ملاحظه : الحقول الرئيسيه الي في النموذج مخفيه وعملت على اظهار حقول غير منضم ....

ووضعت الكود في الحقول الخمسه اعلى النموذج (BOX1-BOX5) .

الحدث عند الدخول ، حيث عند الدخول على احدى  الحقول الخمسه يذهب مباشره  للسجل رقم () ...

وبعدها الحقول العشره الرئيسيه المخفيه تساوي حقول العشره غير منضم .

تحياتي لك ... وشكرا على تعاونك

[ahsnko]

تم تصحيح الكود . لم ارسل البرنامج الصحيح ...

ارفق لك الكود الصحيح 

 

عذرا على الخطأ PPPP.accdb

[jjafferr]

ردي على حسب المعلومة التي ارفقتها 🙂

بدل ان تعمل حقل BOX لكل سجل ،

قد يمكنك استعمال النموذج التالي:

.

وكود بعد التحديث بعد النقر على قائمة ListBox :

Private Sub lst_ID_AfterUpdate()

    Me.ID.SetFocus
    DoCmd.FindRecord Me.lst_ID, , , , , acCurrent, True
End Sub

 

جعفر

1301.PPPP.accdb.zipFetching info...

[ابو جودي]

  في 3‏/12‏/2020 at 18:51, jjafferr said:

ردي على حسب المعلومة التي ارفقتها 🙂

بدل ان تعمل حقل BOX لكل سجل ،

قد يمكنك استعمال النموذج التالي:

.

وكود بعد التحديث بعد النقر على قائمة ListBox :

Private Sub lst_ID_AfterUpdate()

    Me.ID.SetFocus
    DoCmd.FindRecord Me.lst_ID, , , , , acCurrent, True
End Sub

 

جعفر

1301.PPPP.accdb.zip 70.67 kB · 0 downloads

Expand  

وربى ما فهمت المطلوب لحد ما وصل مرفق استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr