عند الضغط على السجل التالى او السابق لا تظهر السجلات

[ابو طارق سعيد]

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

Database1.rar

[ابوخليل]

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

Me.Filter = ""
Me.Requery

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

 

[ابو طارق سعيد]

@ابوخليل

احسنت

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

 

Database1.rar

[متقاعد]

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

[متقاعد]

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

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

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

بالامر

x = Me.SearchList.Column(1)

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

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

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

الملف مرفق

 

 

Database1.accdb

[kkhalifa1960]

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

[ابو طارق سعيد]

@متقاعد 

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

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

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

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

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

[ابو طارق سعيد]

اشكركم جدا

تم تعديل أبريل 7, 2023 بواسطه ابن فلسطيـن

[متقاعد]

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

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

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

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

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

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

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

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

اقتباس

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

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

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

[ابو طارق سعيد]

حاضر اخى @متقاعد

قمت بحذف المشاركة

وملتزم بقوانين المنتدى