اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


safari
إذهب إلى أفضل إجابة Solved by ابوخليل,

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

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

محتاج اعرف ازاى افلتر استعلام باستخدام كود 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"

 

رابط هذا التعليق
شارك

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

 

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

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

اسم النموذج stores

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

شكرا مقدما

 

test.rar

رابط هذا التعليق
شارك

النتيجة هى :

 

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

تم تعديل بواسطه safari
رابط هذا التعليق
شارك

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

  • أفضل إجابة
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

  • Like 1
رابط هذا التعليق
شارك

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

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

سؤالى هنا .. 

 

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

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

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

 

 
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information