الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود الفلترة

بدأه hasan@ في 29 مايو 2008 · 4 رد · 1,600 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته ..

أرجو مساعدتي وإعطائي طريقة وضع الآمر applyFilter في كود بحث لنفس النفس وأعني بذلك ما يلي مع ملاحظة أني أريد الكود vba وليس عن طريق الماكرو :

إسم الحقل المطلوب البحث فيه في نفس النموذج book_no (هذا الحقل منظم إلى جدول بيانات) .

إسم الحقل المطلوب الأخذ منه للبحث في نفس النموذج إسمه (B) (هذا الحقل غير منظم) .

إسم النموذج الذي يحتوي الحقلين هو (frm1) .

إسم زر البحث المطلوب وضع الكود به عند النقر هو (بحث) .

لقد وضعت هذا الكود بالطريقة التالية ولكنه لا يعمل معي ولا أدري ما السبب أرجو إفادتي فقط طريقة الكود لهذا الأمر لأني أول مرة أستخدمه في قاعدة بيانات من نوع adp مرتبطة بـ sql_server .

الكود المطلوب التعديل عليه هو :

docmd.applyFilter [book_no] , where "book_no" = ([form]![frm1]!) code

أرجو التعديل على الكود أو وضع كود آخر يؤدي نفس غرض البحث (فلترة) للمدخل الغير منظم في نفس النموذج . وفقكم الله تعالى .

#2
اقتباس
كود بحث لنفس النفس

نفس النفس، ولا نفس النموذج!!! اكيد تفرق,,,,

على العموم..

docmd.applyFilter [book_no] , where "book_no" = ([form]![frm1]!

خطأ..

لان الصيغة لا يجب ان تحتوي كلمة where

الصحيح هو..

Docmd.ApplyFilter  , "[book_no] = [Forms]![frm1]!"

حيث تستخدم كلمة Forms! وليس Form

كما ان اسم الفلتر او التصفية لي شرطا وجوده..

جرب واطلعنا على الجديد..

همام

تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 29 مايو 2008 في 22:04

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#3

أولاً أتقدم بالشكر الجزيل لك يا أستاذ همام على كريم فضلك بهذه الإلتفاته لأخيكم الصغير .

ثانياً سوف أقوم بتجربة الكود وأفيدكم وفقكم الله .

ولكن أستاذي إستفسار هل هذا الكود ينطبق على فئة الأكسس adp

جزاكم الله خيراً .

#4

اظن انه ينطبق فقط في الجزء الخاص باستخدام فيجوال بيسك في شاشات الاكسس.. ولكن اذا كنت تستخدم لغة برمجة اخرى، او النسخة 6 من فيجوال بيسك قد يختلف،

وهذا لم استخدمه من قبل..

همام

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#5

السلام عليكم ورحمة الله وبركاته ..

والله يا أستاذ همام ما نفع الكود معايا حيث أني أستخدم مشروع أكسس adp والظاهر أن الأكواد فيه تختلف ربما فمن وجهة نظرك ما هو الحل .

مواضيع مشابهة