husamwahab

تفضل هذه المحاولة 

User&Password-1.rar

السلام عليكم

تفضل التعديل حسب فهمي لطلبك

so-1.rar

السلام عليكم استاذ اسلام

منذ ساعه, اسلام محمد22 said:

مع العلم القاعدة والجدول تعمل بشكل جيد دون أخطاء

 

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

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

والاخر خطا منطقي وهو صعب الالتفات اليه لانه القاعدة لا تظهر اخطاء فالمشكلة في طريقة اختيار المتغيرات لا في طريقة كتابتها 

وتفضل هذا التعديل 

لاحظ الاستعلام Q2 سيكون هو الاستعلام الذي ستبني عليه حساباتك 

تجربة-3.rar

السلام عليكم 

استفسار حول بنية البرنامج لتكتمل الفائدة

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

لكن الحال هو انك جعلت الخصم يتكرر على عدد المواد الموجودة في الفاتورة وذلك في معادلة الاستعلام في الحقل amount12 او amount5 

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

وعذرا للاطالة

تفضل هذا التعديل ارجو ان يكون طلبك

ملاحظة : الشرط تم تغييره اذا كان ht<wd سيظر المنتج الاول فقط وبخلافه ستظهر جميع المنتجات

Nouveau Microsoft Access Database-1.rar

السلام عليكم

في الكومبو بوكس توجد عبارة 2>1 هل تشير الى حقول ام الى ارقام ثايتة

اذا كان المقصود حقول يرجى الاشارة اليها باسمائها 

اما اذا كانت ارقام فالشرط هنا لا يكون مفيدا لان النتيجة دائما ستكون لصالح الشرط الاول لان 2>1 دائما

تفضل هذا التعديل ارجو ان يكون طلبك

ملاحظة : اذا كان الحقليين (tb_et و tb_d_et_p) يشيران الى شئ واحد فالفلترة تكون على اساس معيار واحد

بعبارة اوضح اذا كان رقم الموظف واسمه يشيران الى شخص الموظف فالفترة تكون اما على اساس الرقم او على اساس الاسم

pr-1.rar

تفضل التعديل ارجو ان يكون طلبك

استعلام-1.rar

استاذي العزيز الحلبي لي شرف المشاركة خصوصا بوجود الاستاذ ابو خليل وحضرتك

الزر لفتح سجل جديد 

اما طلبك للترقيم فهو بعد اختيار اسم المستخدم

اما old value فهي تعيد القيمة القديمة ووجدتها مفيدة اذا ما اردت التعديل على سجل ما

تفضل التعديل حسب توجيهات استاذنا الجليل ابو خليل

اعادة الترقيم-1.rar

رحم الله والديك استاذ ابو الحسن على هذا الدعاء

بالنسبة للتعديلات : نعم استاذ كلامك سليم جدا 

مشاركة مع استاذ سامي

تفضل هذه المحاولة وهي بطريقة اخرى قد تكون مفيدة لك

Database1.rar

عليكم السلام استاذ ابو الحسن

تفضل هذه المحاولة ارجو ان تكون موفقة

DATA1041-1.rar

9 ساعات مضت, Eng.Qassim said:

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

اقترح (وهو الماشي) ان يكون التسديد كل شهر واذا تجاوزه يظهر التنبيه

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

مشاركة مع استاذ قاسم

تفضل التعديل ارجو ان يكون طلبك

برنامج الديون-1.rar

8 ساعات مضت, MOMEN AHMED said:

انا منبهر بحضرتك وجزاك الله خير وجعله الله في ميزان حسناتك

انا بخدمتك استاذي العزيز اما الانبهار فيمكن  تجاوزه بمجرد النظر الى مشاركات اساتذتنا الاجلاء وما يقدموه من افكار وحلول امثال استاذ جعفر و د. كاف يار واستاذ بارنا واستاذ صالح وغيرهم الكثير الكثير 

وما انا سوى تلميذ صغير بمدرستهم يبحث عن اكواد هنا وهناك لمحاولة المساعدة لبعض الاعضاء الاعزاء

8 ساعات مضت, MOMEN AHMED said:

انسخ نفس المعادلة واضيف فقط اسماء الحقول المكتوب فيها الكلمات صح كده؟؟؟

نعم صحيح مه مراعاة ما يجب تغييره من اسماء المتغيرات وغيره وهناك طريقة اكثر مرونة بجعل نفس المعادلة تتعامل مع اكثر من جدول وحقل

عليكم السلام 

12 ساعات مضت, اسلام سيد said:

مشكله عند طرح وقت الانصراف الفعلى من الانصراف الاساسى يعطى نتائج غير مضبوط

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

لحساب فرق الوقت فالوقت غير كافي للحساب وانما نحتاج الى التاريخ ايضا

طريقة بنائك للجداول والاستعلام تجعل كل الاوقات في نفس التاريخ لذا ظهرت مشكلة الخروج بعد منتصف الليل والمفروض انه اليوم التالي ولكن كما قلت سابقا الجميع في نفس التاريخ

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

وهذه محاولة ارجو ان تكون موفقة

وعذرا للاطالة

DifHourMin.rar

1 ساعه مضت, MOMEN AHMED said:

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

 

الكود يقوم بتقسيم النص الى كلمات ويحجزها في مصفوفة ثم يقارن وحود كلمة او كلمتين متتاليتين في حقل جدول المقارنة 

1 ساعه مضت, MOMEN AHMED said:

وهل لو في اكثر من حقل في sheet2 يظهر لي نفس النتيجة لاني حابب اضيف حقل(اسم الشارع) حقل(اسم المنطقة) حقل (اسم المحافظه) والناتج كود معين

نعم ممكن لكن الافضل مراعاة عدم تطابق بيانات الحقول فكلما كانت البيانات فريدة (غير مكررة) كلما كانت النتائج ادق

1 ساعه مضت, MOMEN AHMED said:

المديول يبحث عن كلمه واحده فقط

يبحث لحد كلمتين لانه لو تلاحظ النتائج وجود كفر الشيخ

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

1 ساعه مضت, MOMEN AHMED said:

هل في جزء معين يتم التعديل عليه ليكون هناك البحث عن اكثر من كلمه

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

ElseIf Nz(DLookup("Column1", "Sheet2", "Column1='" & Trim(Arr(i)) & " " & Trim(Arr(i + 1)) & " " & Trim(Arr(i + 2)) & "'"), 0) <> 0 Then
      FnSearch = DLookup("Column2", "Sheet2", "Column1='" & Trim(Arr(i)) & " " & Trim(Arr(i + 1)) & " " & Trim(Arr(i + 2)) & "'")
      Exit For

 وعذرا للاطالة

تفضل هذه المحاولة ارجو ان تكون موفقة

Database1.rar

عليكم السلام ورحمة الله وبركاته استاذ محمد

23 ساعات مضت, محمد التميمي said:

تم التاكد من فعالية الكود وهو يعمل بامتياز

جزاك الله كل خير فقد اكدت لي ولصاحب الموضوع فاعلية الكود

23 ساعات مضت, محمد التميمي said:

هل هذه الطريقة فعالة وخالية من المشاكل مستقبلا اذا ازداد عدد السجلات وبلغ الالف

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

لذا السؤال يحال الى اصحاب الخبرة اساتذتنا الاجلاء جزاهم الله كل خير 

وعذرا للتقصير 

جرب ان تستخدم الكود لفتح برنامج اخر 

والافضل ان لا يكون من برامج النظام

جرب ان تغير المسار الى المسار الجديد

Shell "C:\Windows\SysWOW64\osk.exe", 1

او ابحث بال c عن مسار osk.exe

7 ساعات مضت, حكمت العراقي said:

تظهر رسالة خطأ File Not Found

 

حبيبي استاذ حكمت 

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

تفضل هذا المثال ارجو ان يكون مفيد لك

ملاحظة : الكود لاحد اساتذتنا جزاهم الله كل خير واعتذر منه لنسيان اسمه 

Database1.rar

If Not Isnull([كود الصنف]) then 
  كود الحذف
end if