swed قام بنشر نوفمبر 19, 2020 قام بنشر نوفمبر 19, 2020 (معدل) السلام عليكم https://www.officena.net/ib/topic/2292-تعريف-متغير-عام-و-تمريره-ضمن-الاستعلام/ بارك الله بكم وبجهودكم في المثال السابق عندما لا يكون هنالك عناصر للفرز اي في حال كانت قيمة tst0 = is null وان كان المقصود هو عدم الفرز فما هو الحل علما ان الاستعلام لا يعمل في حال لم يكن هناك قيمة لtst0 بعنا اريد اظهار جميع القيمة db7.rar تم تعديل نوفمبر 21, 2020 بواسطه jjafferr تم فصل الموضوعين ، وعمل رابط يشير الى الموضوع القديم
ابو جودي قام بنشر نوفمبر 19, 2020 قام بنشر نوفمبر 19, 2020 (معدل) بالرغم من قدم تاريخ الموضوع وكان من الاولى فتح موضوع جديد ولكن ان شاء الله ابشر بالخير قم بانشاء موديول جديد وضع به هذه الاكواد Public Function OpenQry(QryNm As String, MyValue As Variant) TempVars.Add "x", MyValue.Value DoCmd.SetWarnings False DoCmd.OpenQuery (QryNm) DoCmd.SetWarnings True End Function على ان يتم استدعاءه من خلال السطر التالى من النموذج من خلال زر امر او من خلال اى حدث حسبما ترغب وتريد Call OpenQry("fi", Me!txtMyValue) ولابد من عمل مربع نص فى النموذج باسم txtMyValue وبهذه الطريقة سوف يتم فتح الاستعلام بتمرير القيمة المعلمة برمجيا اليه من خلال مربع النص وان كان هناك اكثر من استعلام يتم فقط تغير اسم الاستعلام بالسطر الاتى Call OpenQry("اسم الاستعلام", Me!اسم مربع النص فى النموذج والذى يحوى القيمة المعلمة) واخر خطوة وضع هذا السطر فى الاستعلام فى المعيار للحقل المطلوب تمرير القيمة المعلمة اليه [TempVars]![x] تم تعديل نوفمبر 19, 2020 بواسطه ابا جودى 1
ابو جودي قام بنشر نوفمبر 19, 2020 قام بنشر نوفمبر 19, 2020 3 ساعات مضت, swed said: علما ان الاستعلام لا يعمل في حال لم يكن هناك قيمة لtst0 بعنى اريد اظهار جميع القيمة اعتذر نسبت التطرق الى هذه الجزئية لو القيمة خالية يفتح الاستعلام بكامل البيانات بدون فرز وتصفية نستخدم الكود الاتي فى معيار الاستعلام بدلا من المعيار السابق فى اقرب وقت ارفع القاعدة ان شاء الله اواجه مشكلة لا استطيع ارفاق اى ملفات الان ... ارجو المعذرة Like "*" & [TempVars]![x] & "*"
swed قام بنشر نوفمبر 19, 2020 الكاتب قام بنشر نوفمبر 19, 2020 شكرا جزيلا أخي ابا جودي المحترم جربت ما تفضلت به تماما ولكن يبدو انني قد جربته بشكل خطأ لانه تظهر لدي رسال خطأ (ينتج عن التعبير الذي ادخلته خطأ ...... وارجو ان اكون قد اوصلت طلبي بشكل صحيح اخي 1- عند فتح الاستعلام وعدم وجود قيمة في مربع النص txtMyValue لا يتم عرض اي نتيجة ولكن اريد عند عدم وجود قيمة ان يفتح الاستعلام بحيث تظهر جميع القيم في الجدول 2- جربت iif(isnull([forms]![HTSUMCO]![city]);like"*" or is null;[forms]![HTSUMCO]![city])ولم يفلح الامر علما انني جربت like"*" or is null كشرط للاستعلام ونجح الامر في حال عدم وجود شرط للتصفية وجربت [forms]![HTSUMCO]![city كشرط عند وجود تصفية ونجح ولكن في عبارة iif لااحصل على المطلوب tst2.rar
ابو جودي قام بنشر نوفمبر 19, 2020 قام بنشر نوفمبر 19, 2020 منذ ساعه, swed said: شكرا جزيلا أخي ابا جودي المحترم جربت ما تفضلت به تماما ولكن يبدو انني قد جربته بشكل خطأ لانه تظهر لدي رسال خطأ (ينتج عن التعبير الذي ادخلته خطأ ...... وارجو ان اكون قد اوصلت طلبي بشكل صحيح اخي 1- عند فتح الاستعلام وعدم وجود قيمة في مربع النص txtMyValue لا يتم عرض اي نتيجة ولكن اريد عند عدم وجود قيمة ان يفتح الاستعلام بحيث تظهر جميع القيم في الجدول 2- جربت iif(isnull([forms]![HTSUMCO]![city]);like"*" or is null;[forms]![HTSUMCO]![city])ولم يفلح الامر علما انني جربت like"*" or is null كشرط للاستعلام ونجح الامر في حال عدم وجود شرط للتصفية وجربت [forms]![HTSUMCO]![city كشرط عند وجود تصفية ونجح ولكن في عبارة iif لااحصل على المطلوب tst2.rar 35.56 kB · 2 downloads طيب اجعل معيار المدينة فى الاستعلام كالاتى IIf([TempVars]![x] Is Not Null;[TempVars]![x];[Customers].[city])
swed قام بنشر نوفمبر 21, 2020 الكاتب قام بنشر نوفمبر 21, 2020 شكرا على سعة صدركم . لكن جربت ما تفضلت به وكانت النتيجة كما بالمرفقة هنالك خطأ رقم 424 وجربت الاستعلام لا يعمل يطلب ادخال قيمة وعند وضع ( Like "*" & [TempVars]![x] & "*" لا تظهر النتيجة المطلوبة db7.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.