عند عمل Requery

[jo_2010]

السادة الافاضل الخبراء

عند عمل زر Requery 

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

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

[محمد أبوعبدالله]

السلام عليكم

برجاء وضع مرفق للنظر اين المشكلة بالضبط

تحياتي

[أبوبسمله]

مشاركه لاخى @محمد ابوعبد الله

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

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

[jo_2010]

الاخ الفاضل    محمد ابوعبد الله

اليك القاعدة التى طلبتها

 

Dental.accdb

[محمد أبوعبدالله]

استبدل الكود كالتالي

Me.Requery
بهذا
Me.Refresh

كما انصحك باستبدال اسم زر الامر من Requery الى اي اسم اخر مثل XRequery

تحياتي

[kha9009lid]

بعد اذن اساتذتنا الافاضل @أحمد الفلاحجى و @محمد ابوعبد الله

اذا كنت ترغب في استخدام الامر Me.Requery

يمكن عملها عن طريق

Dim x As Integer
x = CurrentRecord
Me.Requery
Me.PCode.SetFocus
DoCmd.FindRecord x, acAnywhere, , acSearchAll

حجز متغير باسم x

المتغير يساوي السجل الحالي

تحديث

نقل التركيز للحقل pcode

البحث عن السجل الى كنا واقفين عليه

في خاصية النموذج حقل pcode كان غير ممكن وغيرته الى ممكن

النموذج مرفق

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

 

Dental.accdb

[Khalid Jnb]

السلام عليكم

مشاركة مع الاساتذه الاعزاء

تفضل اخي الكريم

اتمنى ان يكون المطلوب

تحياتي

Dental.rar

[jjafferr]

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

 

اليكم طريقتي

.

وهذا هو الكود ، ولكن تذكر ان تحذف السطر الذي لا تريده :

Dim ID As Long
Dim ID As String

ID = Me.txtID
Me.Requery

Me.RecordsetClone.FindFirst "[ID]=" & ID
Me.RecordsetClone.FindFirst "[ID]='" & ID & "'"

Me.Bookmark = Me.RecordsetClone.Bookmark

.

 

 

وهذه الطريقة اعلاه ، ولكنها غير مختصرة :

.

وهذا هو الكود ، ولكن تذكر ان تحذف السطر الذي لا تريده :

Dim rst As dao. Recordset

Dim ID As Long
Dim ID As String

ID=Me.txtID
Me.Requery
Set rst = Me.RecordsetClone

rst.FindFirst "[ID]=" & ID
rst.FindFirst "[ID]='" & ID & "'"

Me.BookMark=rst.RecordsetClone.BookMark

 

جعفر

 

[kha9009lid]

استاذ @jjafferr دخلت لوضع شكر لمشاركتك وما وجدتها 😃

[jjafferr]

آسف اخوي خالد 🙂

بعد ان وضعت المشاركة ، واذا بها اخطاء في التنسيق ،

فإستخدمت صلاحياتي ، وقمت بالتعديلات بعيد عن الاعين 🙂

 

عندنا مثل عماني يقول : اللي في يده القلم ، ما يكتب على عمره شقي 🙂

 

جعفر

[أبوبسمله]

جزاكم الله خيرا اخوانى واساتذتى

@محمد ابوعبد الله @kha9009lid @jjafferr @خالد سيسكو

 

[kha9009lid]

24 دقائق مضت, jjafferr said:

عندنا مثل عماني يقول : اللي في يده القلم ، ما يكتب على عمره شقي 🙂

ليت الامور بهذه السهولة اخي جعفر

 

أبدًا يسطر، ما شاء، القلم
ثم يمضى  نافذ الحكم أصم
ليس يمحو نصف سطر ورع
لا ولا يغسله دمع سجم

[kha9009lid]

استاذي الفاضل @jo_2010

في اجابتي لاستفسارك وضعت عبارة

x = CurrentRecord

اي ان المتغير x = السجل الحالي ثم يتم استكمال بقية الكود

وهذا الامر قد يؤدي الى نتيجة غير صحيحة في حالة حذف سجلات في الجدول لكون CurrentRecord يعطي رقم السجل الفعلي باستبعاد السجلات المحذوفة

بناء عليه امل اختيار اجابة الاستاذ @خالد سيسكو او اجابة استاذنا ومعلمنا @jjafferr او تعديل السطر الثاني في مشاركتي ليكون

x = Me.PCode

الملف المعدل مرفق

Dental.accdb

[أبوبسمله]

3 دقائق مضت, kha9009lid said:

استاذي الفاضل @jo_2010

في اجابتي لاستفسارك وضعت عبارة

x = CurrentRecord

اي ان المتغير x = السجل الحالي ثم يتم استكمال بقية الكود

وهذا الامر قد يؤدي الى نتيجة غير صحيحة في حالة حذف سجلات في الجدول لكون CurrentRecord يعطي رقم السجل الفعلي باستبعاد السجلات المحذوفة

بناء عليه امل اختيار اجابة الاستاذ @خالد سيسكو او اجابة استاذنا ومعلمنا @jjafferr او تعديل السطر الثاني في مشاركتي ليكون

x = Me.PCode

الملف المعدل مرفق

Dental.accdb 704 kB · 1 تنزيلات

بارك الله فيك وجزاك الله خيرا

اسال الله لكم اخوانى واساتذتى ان يزيدكم من فضله وعلمه وان يحفظكم ويرزقكم الفردوس الاعلى بجوار سيدنا محمد صل الله عليه وسلم