كيف استخدم داله Trim(InputBox() في الاستعلام

[ابو ياسين المشولي]

مثلا لدي في الاستعلام هذا الشرط

Like "*" & [ادخل اسم القماش] & "*"

كيف اجعل الرساله حق الاستعلام بهذة الداله

Trim(InputBox()

[ابو ياسين المشولي]

للرفع

[ابو ياسين المشولي]

للرفع

[رمهان]

حياك الله ابو ياسين

ان كنت تقصد ان تحل دالة الادخال  مكان مربع حوار البراميتر

اعمل دالة عامة في وحدة نمطبة عامة ومثلا

function xf()
xf=inbutbox("ادخل المعيار")
end function

وفي الاستعلام وفي معيار اي عمود اكتب

()xf

سيظهر مربع الدالة وحسب القيمة المدخلة ستكون قيمة للمعيار

بالتوفيق

[ابو ياسين المشولي]

21 دقائق مضت, رمهان said:

حياك الله ابو ياسين

ان كنت تقصد ان تحل دالة الادخال  مكان مربع حوار البراميتر

اعمل دالة عامة في وحدة نمطبة عامة ومثلا

function xf()
xf=inbutbox("ادخل المعيار")
end function

وفي الاستعلام وفي معيار اي عمود اكتب

()xf

سيظهر مربع الدالة وحسب القيمة المدخلة ستكون قيمة للمعيار

بالتوفيق

تسلم اخي رمهان

انا حاولت في مثل هذة من قبل

ياليت لو تخبرني كيف اعملها 

بهذا المعيار

Like "*" & [ادخل اسم القماش] & "*"

 

[رمهان]

Like "*" & fx() & "*"

 

[ابو ياسين المشولي]

منذ ساعه, رمهان said:

Like "*" & fx() & "*"

 

اخي رمهان مازلت لم تضبط

هل من المكتبه

بحاول فيها وبشوف

[ابو ياسين المشولي]

هكذا تطلع عندي

[رمهان]

حياك الله اخي ابا ياسين

انا اخطأت في اسم الدالة وكنت اكتب في المحرر مباشرة

الدالة inputbox 

بالتوفيق

[ابو ياسين المشولي]

4 دقائق مضت, رمهان said:

حياك الله اخي ابا ياسين

انا اخطأت في اسم الدالة وكنت اكتب في المحرر مباشرة

الدالة inputbox 

بالتوفيق

للاسف اخي رمهان

هذة انا جربتها

ولم تنفع

اولا الرساله تجي 3 مرات

ولم تعطي المطلوب

بحاول ارفع لك 

مثال مصغر

[ابو ياسين المشولي]

جربتها هي كويسه اذا تعديت الاولى والثانيه

لانها تتكرر 3 مرات

انظر للملف

ابحث مثلا بنزين

رمهان.accdb

[ابو ياسين المشولي]

عرقت المشكلة ولكن لم اعرف الحل

المشكله انه يعتبر

Between [Forms]![date05]![from] And [Forms]![date05]![to2]

شرطين

لو الغيتها يعطيني رساله احده ولكن لا يوجد معيار للتاريخ

فهل من حل

[ابو ياسين المشولي]

وعند البحث وجدت هذه

ولكن ليست المطلوب 

Like Eval("inputbox  ('من فضلك أدخل حرف :','بحث بالحروف','')") & "*"

 

[رمهان]

حياك الله ابو ياسين

انا جاوبت على حسب الاستفسار

تلاحظ ان الاستفسار كان معيار واحد

الان اكتب من الموبايل وان شاء الله اشوف الموضوع عندما اجلس على الكمبيوتر

ولكن لو تشرح برضه اكقر قصدك في 

6 ساعات مضت, ابو ياسين المشولي said:

جربتها هي كويسه اذا تعديت الاولى والثانيه

لانها تتكرر 3 مرات

تحياتي

[ابو ياسين المشولي]

هو نفس التقرير

لو حملت الملف بتعرف

بحث بين تاريخين وشرط انه يعطي رساله ادخل معيار

الان هو كويس ولكن يعطي 3 رسايل

 

[رمهان]

حياك الله اخي ابا ياسيين

تفضل ولا اعلم لماذا مصر بالدالة لان الباراميتر بتعرض مربع ادخال كذلك

على العموم تم عملها بطريقة استخدام ميزة جديدة في 2007 ومافوق وهي كائن ال  Tempvars

انظر السطر الاول من حدث عند فتح التقرير

تحياتي

رمهان.accdb

[ابو ياسين المشولي]

ممتاز اخي رمهان بارك الله فيك

رد على سوالك لماذا مصر على هذه الداله

لانها عند عدل البرنامج ال2010

صارت تجيني في الزاويه

وشكلها ما عجبني

هههههههههههه

اكرر شكري لك

 

كانت تجيني بهذا الشكل

الان اتغلبت عليها بخبرتكم بارك الله فيك

تم تعديل سبتمبر 20, 2018 بواسطه ابو ياسين المشولي

[ابو ياسين المشولي]

استاذ رمهان

باقي لدي مشكله انه عند الضغط على cancel  لا يعمل

[ابو ياسين المشولي]

للرفع

[رمهان]

حياك ابا ياسين

معليش انا دخولي نادر هالفترة

ماذا تريد لو تم الضغط على الغاء هل يعتمد معيار التاريخ فقط ؟ ام لا يعتمد اي معيار ؟ ام يعتمد معيار التاريخ ويكون البيان خالي اي فارغ؟

[ابو ياسين المشولي]

اريد عند الغاء الامر

ان لا يفتح التقرير

[رمهان]

اضف السطر الجديد التالي وعند فتح التقرير

TempVars.Add "xv", InputBox("ادخل جزء من البيان")
cancel = TempVars!xv = ""

تحياتي

[ابو ياسين المشولي]

MsgBox "تـم الـغـاء الامـر"

ممتاز اخي رمهان

بارك الله فيك

واذا اردنا اضافه رساله

تم تعديل سبتمبر 23, 2018 بواسطه ابو ياسين المشولي

[ابو ياسين المشولي]

للاسف لم ينجح الامر اذا ضغط نعم يقفل 

واذ ضغط لا يقفل التقرير ليس بنتيجه

تم تعديل سبتمبر 23, 2018 بواسطه ابو ياسين المشولي

[رمهان]

9 دقائق مضت, ابو ياسين المشولي said:

للاسف لم ينجح الامر اذا ضغط نعم يقفل 

واذ ضغط لا يقفل التقرير ليس بنتيجه

اذا ضغط نعم بدون ادخال سيتم نفس الالغاء اي لايتم فتح التقرير

ولو توضح اكثر للمطلوب افضل اخي ابو ياسين