انشاء استعلام عن طريق VBA جملة SELECT

[safari]

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

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

يجيب نتيجة معينة بدلالة SELECT   WHERE  

انا جربت 

SELECT * FROM "ALLITEMS" WHERE STOREID=2 

و بردو ما اشتغلش 

انا عايز يجيب الاصناف الموجودة فى مستودع رقم 2 

لكن عن طريق الكود مش استعلام SELECT  المعروف  

 

اكتب الكود ازاى ؟

 

شكرا

[ابوخليل]

تفضل .. للتنفيذ مثل هذا 

docmd.RunSQL "SELECT ALLITEMS.* FROM ALLITEMS WHERE ALLITEMS.STOREID=2"

او ارجاعه كمتغير   مثل هذا

strsql = "SELECT ALLITEMS.* FROM ALLITEMS WHERE ALLITEMS.STOREID=2"

 

[jjafferr]

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

 

ولإضافة اكثر من شرط في جملة الاستعلام ، وبسهولة:

 

 

جعفر

[safari]

شكرا جزيلا يا فندم 

 

لكن بردو الكود ما اشتغلش بعد ما ضيفتة 

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

اسم النموذج stores

و الزر اسمه command3   الكومبو بوكس اللى فيه القيمة اسمه store

شكرا مقدما

 

test.rar

[ابوخليل]

لم تذكر  ما النتيجة التي تريد اظهارها

1- كيف  ؟ ......... جدول او قيمة حقل محدد

2- اين ؟ ........ المكان الذي تريد اظهارها فيه

[safari]

النتيجة هى :

 

عايز لما اختار كود المستودع من الكومبوبوكس store  يظهر كل الاصناف فى الموجودة فى المستودع اللى اختارت كوده  من الاستعلام allitems

تم تعديل ديسمبر 21, 2021 بواسطه safari

[ابوخليل]

تظهر فين ؟؟؟؟؟؟؟

[safari]

تظهر فى الاستعلام  ( تصفية للاستعلام ) 

[ابوخليل]

ما دمت تريد التصفية من خلال استعلام  ، لماذا تستخدم جملة sql ؟

 

[safari]

عايز اصفي الاستعلام عن طريق الكود و الضغط على الزر 

مش عايز استخدم معيار فى الاستعلام نفسه 

عايز عن طريق select        -        where 

لانى حابب اتعلم الطريقة دى 

هى انى اقدر اصفي استعلام من غير ما استخدم الكراتيريا او المعيار داخل الاستعلام 

عايز لما اختار من الكومبو بوكس رقم المستودع يظهر فى الاستعلام ما يخص المستودع اللى اختارت رقمه عن طريق الكومبوبوكس و ارفقت قاعدة البيانات 

[ابوخليل]

30 دقائق مضت, safari said:

هى انى اقدر اصفي استعلام من غير ما استخدم الكراتيريا او المعيار داخل الاستعلام 

الآن فهمتك تريد الاستعلام مؤقت (عرض فقط ) من غير يكون له وجود ضمن الاستعلامات

ولكن لا بد تعلم لازم يكون المعيار اللي هو  [forms]![stores]![store]  لازم يكون داخل الجملة

[safari]

بالظبط كدة  :

 

ازاى اكتب الكود دة صح و يكون للعرض فقط  ؟

 

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

[ابوخليل]

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

[safari]

برافو عليك الله ينور 

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

سؤالى هنا .. 

 

لو انا عايز اكتر من معيار مثلا كود المستودع و كود الصنف 

فى الحالة دى اضيف الشرط التانى ازاى  ؟

استخدام 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

 

 

[ابوخليل]

نعم صحيح

[safari]

شكرا جزيلا على مجهود حضرتك معايا و كمان ا. جعفري 

بجد منتدى اكتر من رائع و تعليمي فى المقام الاول 

بشكركم مرة تانية .. جزاكم الله عني كل خير