اين المشكلة في الكود .. مساعدة ...

[نبراس كاظم]

عملت دالة قبل النقر على زر البحث اذا كانت المربعات خالية يظهرلي رسالة واذا احدها ممتلئ يعمل استعلام 

المشكلة في مربع الاسماء لا يقبل يظهر هذه المشكلة 

اما البقية لا توجد فيهم مشكلة 

هل السبب ان مربع الاسماء ياخذ من الجدول نص والبقية تاخذ من الجدول ارقام هنا الاختلام ام لا افيدونا 

 

 

تم تعديل ديسمبر 11, 2020 بواسطه نبراس كاظم
الصورة الاولى تحتوي على معلومات شخصية يرجى من الادارة مسحها

[أبو عبدالله الحلوانى]

السلام عليكم 

الخطأ علي ما أعتقد هو في استخدام OR داخل دالة Trim فالأخيرة تتعامل مع نص ولا لايصلح معها العوامل المنطقية 

عدل الكود بهذا الشكل:

If len(text0 & "") =0 OR len(text1 & "") =0 OR len(text3 & "") =0 Then

عدل اسماء الـ Text الي ما تريد 

تمنايتي بالتوفيق

أو ان كنت مصمما علي استخدام Trim فليكن بهذا الشكل

If IsNull(Trim(text0)) OR IsNull(Trim(text1)) OR IsNull(Trim(text2)) Then

رغم أني أري أن الكود الأول أقصر 😁

 

[نبراس كاظم]

1 hour ago, أبو عبدالله الحلوانى said:

السلام عليكم 

الخطأ علي ما أعتقد هو في استخدام OR داخل دالة Trim فالأخيرة تتعامل مع نص ولا لايصلح معها العوامل المنطقية 

عدل الكود بهذا الشكل:

If len(text0 & "") =0 OR len(text1 & "") =0 OR len(text3 & "") =0 Then

عدل اسماء الـ Text الي ما تريد 

تمنايتي بالتوفيق

أو ان كنت مصمما علي استخدام Trim فليكن بهذا الشكل

If IsNull(Trim(text0)) OR IsNull(Trim(text1)) OR IsNull(Trim(text2)) Then

رغم أني أري أن الكود الأول أقصر 😁

 

المشكلة هي اني خانة الاسم نص والخانات المتبقية هي في الحقيقة ارقام 

وكلى الكودين لم يظبطى معي 

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

كل ما في الامر لما يجي المستخدم يبحث وتكون الخانات فارغة يظهر مسج 

تم تعديل ديسمبر 11, 2020 بواسطه نبراس كاظم

[أبو عبدالله الحلوانى]

ممكن مرفق للتوضيح

فلا علاقة بين اختبار خلو الحقل من البيانات ونوع البيانات التي من المحتمل أن توضع به (سواء نص أو رقم) 

علي حسب فهمي أنك تريد أن تقول لو أن الحقل كذا أو الحقل كذا أو ... فارغ فاخبر المستخدم الرسالة كذا والا فافعل كذا 

أليس هذا هو مضمون الكود

[نبراس كاظم]

9 hours ago, أبو عبدالله الحلوانى said:

ممكن مرفق للتوضيح

فلا علاقة بين اختبار خلو الحقل من البيانات ونوع البيانات التي من المحتمل أن توضع به (سواء نص أو رقم) 

علي حسب فهمي أنك تريد أن تقول لو أن الحقل كذا أو الحقل كذا أو ... فارغ فاخبر المستخدم الرسالة كذا والا فافعل كذا 

أليس هذا هو مضمون الكود

بالضبط هذا ما اريدة واليك الملف المرفق 

test- Copy.rar

[أبو عبدالله الحلوانى]

تفضل جرب هذا ووافنا بالنتائج

 

الادارية - Copy.rar

[نبراس كاظم]

تسلم ابو عبد الله النتيجة جيدة مثل ما اريد

الحقيقة لم افكر ان اجعل بدل 

or   and

وهي المفروض الصحيحة لكون الخانات المتبقية غير مفعلة 

[أبو عبدالله الحلوانى]

الحمد لله أولا وآخرا

ليس هذا كل ما تم تعديله بالكود هل لاحظت كتابة الكود داخل Trim 

 

ولكن أين تمت الاجابة 

[نبراس كاظم]

7 hours ago, أبو عبدالله الحلوانى said:

الحمد لله أولا وآخرا

ليس هذا كل ما تم تعديله بالكود هل لاحظت كتابة الكود داخل Trim 

 

ولكن أين تمت الاجابة 

نعم لاحظت الامر تم وضعها لكل واحدة 
لكن لم افهم عبارة اين تمت الاجابة شو يعني ممكن تنورني 

وكمان ابي تنورني اكثر لما شفت الملف تبعي هل جيد ام ضعيف ام مقبول في البرمجة هل في اخطاء انا مش ماخذ بالي منها ياريت لو تنورني 

لاني اعد برنامج صحيح ليس بالبرنامج الضخم لكن البرنامج تقريبا كلة في 

VBA

[jjafferr]

28 دقائق مضت, نبراس كاظم said:

لكن البرنامج تقريبا كلة في 

VBA

وهل من ميزة اذا عملت البرنامج بالـ VBA ، عن لو عملته بواجهات الاكسس التلقائية ؟

واجهات الاكسس التلقائية = كل شيء يقوم به الاكسس بدون VBA

 

طريقة العمل الصحيحة في برمجة الاكسس :

اعمل اكثر شيء ممكن تعمله بطرق الواجهات التلقائية السهلة ، و اكمل بقية احتياجاتك بالـ VBA 🙂

هذه قوة الاكسس والتي يتفوق بها على اكبر برامج قواعد البيانات و برامج NET. ، وهي السرعة في تصميم برنامج الاكسس ، باستخدام الواجهات التلقائية اللي يساعدك اكسس فيها ، سواء النماذج او الاستعلامات او التقارير ، ولا تزال استعلامات الاكسس التلقائية ، هي الافضل من جميع البرامج الاخرى ، لسهولة عملها.

 

جعفر

[نبراس كاظم]

28 minutes ago, jjafferr said:

وهل من ميزة اذا عملت البرنامج بالـ VBA ، عن لو عملته بواجهات الاكسس التلقائية ؟

واجهات الاكسس التلقائية = كل شيء يقوم به الاكسس بدون VBA

 

طريقة العمل الصحيحة في برمجة الاكسس :

اعمل اكثر شيء ممكن تعمله بطرق الواجهات التلقائية السهلة ، و اكمل بقية احتياجاتك بالـ VBA 🙂

هذه قوة الاكسس والتي يتفوق بها على اكبر برامج قواعد البيانات و برامج NET. ، وهي السرعة في تصميم برنامج الاكسس ، باستخدام الواجهات التلقائية اللي يساعدك اكسس فيها ، سواء النماذج او الاستعلامات او التقارير ، ولا تزال استعلامات الاكسس التلقائية ، هي الافضل من جميع البرامج الاخرى ، لسهولة عملها.

 

جعفر

استاذي افهم من كلامك اعمل كل شي ممكن بالاكسس بدون vba واذا احتجت الىه اعمل به

لكن في وجهة نظري ارى vba

افضل واحسن من الجاهز وكذلك تقليل الاخطاء الناجمة 

[jjafferr]

1 دقيقه مضت, نبراس كاظم said:

استاذي افهم من كلامك اعمل كل شي ممكن بالاكسس بدون vba واذا احتجت الىه اعمل به

نعم هذا صحيح 100%

 

2 دقائق مضت, نبراس كاظم said:

لكن في وجهة نظري ارى vba

افضل واحسن من الجاهز وكذلك تقليل الاخطاء الناجمة

اعطني دليل 😁

 

 

جعفر

[نبراس كاظم]

1 minute ago, jjafferr said:

نعم هذا صحيح 100%

 

اعطني دليل 😁

 

 

جعفر

ليس معي دليل لكن اغلب البرامج المعمولة هي تصميم

vba 

ولكن انت اعرف مني يا استاذي العزيز على العموم معلومة قيمة من حضرتك 

[jjafferr]

الان, نبراس كاظم said:

لكن اغلب البرامج المعمولة هي تصميم

vba 

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

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

 

جعفر