اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

عند عمل Requery


jo_2010
إذهب إلى أفضل إجابة Solved by kha9009lid,

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

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

عند عمل زر Requery 

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

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

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

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

Me.Requery
بهذا
Me.Refresh

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

تحياتي

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

  • أفضل إجابة

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

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

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

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

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

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

تحديث

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

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

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

النموذج مرفق

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

 

Dental.accdb

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

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

 

اليكم طريقتي

image.png.6de55f19fd18a957a88b42e0d02506d5.png

.

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

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

.

 

 

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

image.png.35513d9f6bffd927d024f6e7ca99d53c.png

.

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

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

 

جعفر

 

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

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

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

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

 

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

 

جعفر

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

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

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

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

 

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

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

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

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

x = CurrentRecord

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

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

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

x = Me.PCode

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

Dental.accdb

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

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

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

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


x = CurrentRecord

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

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

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


x = Me.PCode

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

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

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

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

:fff:

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

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