husamwahab

تفضل هذه المحاولة User&Password-1.rar

السلام عليكم تفضل التعديل حسب فهمي لطلبك so-1.rar

السلام عليكم استاذ اسلام بالنسبة لعمل القاعدة فليس بالضرورة عملها دليل على صحتها هناك نوعين من الاخطاء في البرمجة خطا لغوي وهذا سهل معرفته حيث ان البرنامج لا يعمل او يظهر اخطاء والاخر خطا منطقي وهو صعب الالتفات اليه لانه القاعدة لا تظهر اخطاء فالمشكلة في طريقة اختيار المتغيرات لا في طريقة كتابتها وتفضل هذا التعديل لاحظ الاستعلام 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

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

مشاركة مع استاذ قاسم تفضل التعديل ارجو ان يكون طلبك برنامج الديون-1.rar

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

عليكم السلام المشكلة ليست في الكود وانما في طريقة التعامل مع الوقت لحساب فرق الوقت فالوقت غير كافي للحساب وانما نحتاج الى التاريخ ايضا طريقة بنائك للجداول والاستعلام تجعل كل الاوقات في نفس التاريخ لذا ظهرت مشكلة الخروج بعد منتصف الليل والمفروض انه اليوم التالي ولكن كما قلت سابقا الجميع في نفس التاريخ لذا حاولت ان تتجاوز هذه المشكلة بالتلاعب بالمعادلة وتم حل هذه الجزئية وهو حل ليس بصحيح مما ادى الى ظهور مشكلة اخرى وهي التي تسال عنها وهذه محاولة ارجو ان تكون موفقة وعذرا للاطالة DifHourMin.rar

الكود يقوم بتقسيم النص الى كلمات ويحجزها في مصفوفة ثم يقارن وحود كلمة او كلمتين متتاليتين في حقل جدول المقارنة نعم ممكن لكن الافضل مراعاة عدم تطابق بيانات الحقول فكلما كانت البيانات فريدة (غير مكررة) كلما كانت النتائج ادق يبحث لحد كلمتين لانه لو تلاحظ النتائج وجود كفر الشيخ نعم بعض النتائج لا تظهر وذلك لوجود مشكلة في النص جرب ان تكتب كلمات مثل البحر الاحمر وغيرها ولاحظ النتيجة نعم يتم اضافة شرط ثالث للكود لكن للامانة لم اجرب 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

عليكم السلام ورحمة الله وبركاته استاذ محمد جزاك الله كل خير فقد اكدت لي ولصاحب الموضوع فاعلية الكود سبق وان اشرت ان الكود منقول وقد اجريت تجربة لسجلات محدودة والنتيجة كما اشرت جيدة ولكن ليس لي الخبرة للبت في فاعلية الكود وخلوه من من المشاكل لذا السؤال يحال الى اصحاب الخبرة اساتذتنا الاجلاء جزاهم الله كل خير وعذرا للتقصير

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

جرب ان تغير المسار الى المسار الجديد Shell "C:\Windows\SysWOW64\osk.exe", 1 او ابحث بال c عن مسار osk.exe

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

تفضل هذا المثال ارجو ان يكون مفيد لك ملاحظة : الكود لاحد اساتذتنا جزاهم الله كل خير واعتذر منه لنسيان اسمه Database1.rar

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