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

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

قام بنشر

شوف الحدث المناسب وضع هذين السطرين

Me.Filter = ""
Me.Requery

مثلا تعمل زر وتسميه : تحديث .... وتضع السطرين في حدث النقر

 

  • Thanks 1
قام بنشر
6 ساعات مضت, ابن فلسطيـن said:

عملت المطلوب وزبط تماما

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

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

بينما السجل التالي الصحيح لقاسم هو سعيد

لذا فمن الافضل ان نحتفظ بالسجل من خلال متغير في اجراء اسميته k ووضعت فيه الامر التالي

If Me.FilterOn = True Then
Dim x As String
x = Me.اسم_العميل
Me.Filter = ""
Me.اسم_العميل.SetFocus
DoCmd.FindRecord x, acAnywhere, , acSearchAll
Else
End If

ثم في حدث للامرين نشير الى الاجراء الفرعي

الملف مرفق مع عدم الاقتناع بفكرة الفلترة طالما قد نحتاج لاستعراض السجلات التالية او السابقة وسوف اشرح طريقة اسهل في رد تالي

 

Database110.accdb

  • Thanks 2
  • أفضل إجابة
قام بنشر

الطريقة الثانية بدون الحاجة للفلترة ثم الغاء الفلترة للوصول للسجل التالي او السابقة

والطريقة بعمل متغير عام في وحدة نمطية فارعة

ثم نحمل قيمة المتغير من خلال القائمة SearchList

بالامر

x = Me.SearchList.Column(1)

وفي امر فتح نموذج المبيعات نضع الامر

Me.اسم_العميل.SetFocus
DoCmd.FindRecord x, acAnywhere, , acSearchAll

ولا نحتاج الى اوامر او اكواد اخرى

الملف مرفق

 

 

Database1.accdb

  • Thanks 2
قام بنشر

استاتذتنا أبو خليل و متقاعد يارب كل يوم يكون الفطور زين مثل اليوم وتتحفونا بتلك الدرر دوماً  كل عام وانتم بخير ورمضان كريم .:fff:

  • Like 1
  • Haha 1
قام بنشر

@متقاعد 

الحقيقة ان هذا ما اردته فعلا

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

وهذا متعب اذا كان عندك مئات العملاء 

فى حين انك تريد العميل السابق او اللاحق فقط

اشكرك جدا وافضل اجابة لك

قام بنشر
44 دقائق مضت, ابن فلسطيـن said:

اشكرك جدا وافضل اجابة لك

الشكر لله اخي ولا توجد اجابة افضل من اجابة استاذنا ومعلمنا ابوخليل فنحن تلاميذ في مدرسة هو قائدها

27 دقائق مضت, ابن فلسطيـن said:

قام الاخ بتغيير حقل (تاريخ الشراء) فى جدول (مبيعات لزبون) الى الانجليزي

وطبعا الاسم مرتبط به استعلامات وتقارير عديدة

واصبح هناك خلل فى العديد من الامور

اخي الغالي هذا موضوع اخر وقوانين الموقع سؤال واحد في كل موضوع

اقتباس

11. ممنوع طرح أكثر من سؤال في موضوع واحد ليسهل البحث عن المواضيع لاحقا.

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

تحياتي وتقديري

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