safari قام بنشر ديسمبر 21, 2021 مشاركة قام بنشر ديسمبر 21, 2021 السلام عليكم ورحمة الله محتاج اعرف ازاى افلتر استعلام باستخدام كود VBA عن طريق النقر على زر معين يجيب نتيجة معينة بدلالة SELECT WHERE انا جربت SELECT * FROM "ALLITEMS" WHERE STOREID=2 و بردو ما اشتغلش انا عايز يجيب الاصناف الموجودة فى مستودع رقم 2 لكن عن طريق الكود مش استعلام SELECT المعروف اكتب الكود ازاى ؟ شكرا رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 21, 2021 مشاركة قام بنشر ديسمبر 21, 2021 تفضل .. للتنفيذ مثل هذا docmd.RunSQL "SELECT ALLITEMS.* FROM ALLITEMS WHERE ALLITEMS.STOREID=2" او ارجاعه كمتغير مثل هذا strsql = "SELECT ALLITEMS.* FROM ALLITEMS WHERE ALLITEMS.STOREID=2" رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 21, 2021 مشاركة قام بنشر ديسمبر 21, 2021 وعليكم السلام 🙂 ولإضافة اكثر من شرط في جملة الاستعلام ، وبسهولة: جعفر رابط هذا التعليق شارك More sharing options...
safari قام بنشر ديسمبر 21, 2021 الكاتب مشاركة قام بنشر ديسمبر 21, 2021 شكرا جزيلا يا فندم لكن بردو الكود ما اشتغلش بعد ما ضيفتة انا ارفقت قاعدة البيانات لحضرتك للتوضيح و ياريت نطبق الكود عليها عشان اتعلمه و اشوف بيشتغل ازاى اسم النموذج stores و الزر اسمه command3 الكومبو بوكس اللى فيه القيمة اسمه store شكرا مقدما test.rar رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 21, 2021 مشاركة قام بنشر ديسمبر 21, 2021 لم تذكر ما النتيجة التي تريد اظهارها 1- كيف ؟ ......... جدول او قيمة حقل محدد 2- اين ؟ ........ المكان الذي تريد اظهارها فيه رابط هذا التعليق شارك More sharing options...
safari قام بنشر ديسمبر 21, 2021 الكاتب مشاركة قام بنشر ديسمبر 21, 2021 (معدل) النتيجة هى : عايز لما اختار كود المستودع من الكومبوبوكس store يظهر كل الاصناف فى الموجودة فى المستودع اللى اختارت كوده من الاستعلام allitems تم تعديل ديسمبر 21, 2021 بواسطه safari رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 21, 2021 مشاركة قام بنشر ديسمبر 21, 2021 تظهر فين ؟؟؟؟؟؟؟ رابط هذا التعليق شارك More sharing options...
safari قام بنشر ديسمبر 21, 2021 الكاتب مشاركة قام بنشر ديسمبر 21, 2021 تظهر فى الاستعلام ( تصفية للاستعلام ) رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 21, 2021 مشاركة قام بنشر ديسمبر 21, 2021 ما دمت تريد التصفية من خلال استعلام ، لماذا تستخدم جملة sql ؟ رابط هذا التعليق شارك More sharing options...
safari قام بنشر ديسمبر 21, 2021 الكاتب مشاركة قام بنشر ديسمبر 21, 2021 عايز اصفي الاستعلام عن طريق الكود و الضغط على الزر مش عايز استخدم معيار فى الاستعلام نفسه عايز عن طريق select - where لانى حابب اتعلم الطريقة دى هى انى اقدر اصفي استعلام من غير ما استخدم الكراتيريا او المعيار داخل الاستعلام عايز لما اختار من الكومبو بوكس رقم المستودع يظهر فى الاستعلام ما يخص المستودع اللى اختارت رقمه عن طريق الكومبوبوكس و ارفقت قاعدة البيانات رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 21, 2021 مشاركة قام بنشر ديسمبر 21, 2021 30 دقائق مضت, safari said: هى انى اقدر اصفي استعلام من غير ما استخدم الكراتيريا او المعيار داخل الاستعلام الآن فهمتك تريد الاستعلام مؤقت (عرض فقط ) من غير يكون له وجود ضمن الاستعلامات ولكن لا بد تعلم لازم يكون المعيار اللي هو [forms]![stores]![store] لازم يكون داخل الجملة رابط هذا التعليق شارك More sharing options...
safari قام بنشر ديسمبر 21, 2021 الكاتب مشاركة قام بنشر ديسمبر 21, 2021 بالظبط كدة : ازاى اكتب الكود دة صح و يكون للعرض فقط ؟ ممكن تعدل على قاعدة البيانات المرفقة و انا اراجع الكود وافهمه على مهل رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابوخليل قام بنشر ديسمبر 21, 2021 أفضل إجابة مشاركة قام بنشر ديسمبر 21, 2021 Dim qryd As QueryDef Dim strSQL As String strSQL = "SELECT TblItems.* FROM TblItems WHERE (((TblItems.Wh)=[forms]![stores]![store]))" Set qryd = CurrentDb.CreateQueryDef("qryTemp", strSQL) DoCmd.OpenQuery qryd.Name CurrentDb.QueryDefs.Delete qryd.Name test2.rar 1 رابط هذا التعليق شارك More sharing options...
safari قام بنشر ديسمبر 21, 2021 الكاتب مشاركة قام بنشر ديسمبر 21, 2021 برافو عليك الله ينور كدة انا صفيت الاستعلام بدون اى معايير مكتوبة داخل استعلام التحديد نفسه سؤالى هنا .. لو انا عايز اكتر من معيار مثلا كود المستودع و كود الصنف فى الحالة دى اضيف الشرط التانى ازاى ؟ استخدام AND قبل " ولا بعدها يعنى الكود يبقا كدة : Dim qryd As QueryDef Dim strSQL As String strSQL = "SELECT Allitems.* FROM Allitems WHERE (((Allitems.STOREID)=[forms]![stores]![store]))OR (((Allitems.itemstoreid)=[forms]![stores]![ITEMCODEE]))" Set qryd = CurrentDb.CreateQueryDef("qryTemp", strSQL) DoCmd.OpenQuery qryd.Name CurrentDb.QueryDefs.Delete qryd.Name رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 21, 2021 مشاركة قام بنشر ديسمبر 21, 2021 نعم صحيح رابط هذا التعليق شارك More sharing options...
safari قام بنشر ديسمبر 21, 2021 الكاتب مشاركة قام بنشر ديسمبر 21, 2021 شكرا جزيلا على مجهود حضرتك معايا و كمان ا. جعفري بجد منتدى اكتر من رائع و تعليمي فى المقام الاول بشكركم مرة تانية .. جزاكم الله عني كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان