ابوآمنة

أيضا تعلمت شيء من هذا العمل المبارك هو : كلما نضج المبرمج وزاد علمه حاول اختصار أعماله وبرنامجه من الحقول والجداول والنماذج والاستعلامات والتقارير . فيخرج العمل صغير الحجم كبير النفع . وهذا ما يصنعه علماء الشريعة الإسلامية حينما يختصرون الفنون في المتون العلمية لطلاب العلم ليحفظه كما يقال ( من حَفِظَ المُتُون حَازَ الفُنُون ) من زاد علمه وتفحصه وكثر نظره وعطاءه في البرمجة حاز فنونها

شكراً لك أستاذنا معلمنا الجليل أبوخليل عمل جبار تشكل عليه ونظل نتعلم من معينك الصافي

شكراً لك @محب العقيدة على مشاركتك لتجاربك الشخصية وخبرتك العريقة في هذا المجال ،،، ورائع أن نشارك بعضاً من تجاربنا لنستفيد منها الآخرين ونصحح أخطاءنا . برنامج رائع جداً يحوى أوامر كثيراً جداً

وجدت هذا العمل الرائع في الانترنت منذ فترة وقدمه صاحبه مجاناً يرجو الدعاء لوالديه رحمهما الله تعالى :: بيانات صاحب العمل :: عبداللطيف طراقجي 2013و لغاية عام 2000 من عام ً مدرس تكنولوجيا المعلومات سابقا حاصل على شهادات في إدارة قواعد البيانات من شركة مايكروسوفت MCDBA SQLserver (Microsoft Certified Database Administrator) MOUS Access (Microsoft Office User Specialist) صفحته الشخصية My Certifications http://www.pinterest.com/abdotarakji/mycertifications هنا رابط التنزيل ولا تنسوني ووالديه وجميع المسلمين من دعائكم ،،،

الحمد لله

تفضل لعله هذا مطلوبك مشكلة سابق ولاحق2.accdb تقدر تضيف في مربع التحرير والسرد ما تريد مثل تاريخ القراءة ،،،،،

كود جميل كجمالك يا أستاذي الفاضل ابا جودى وشكراً للجميع

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

بهذه الطريقة : yyyy/mmmm/dd توضع في تنسيق الحقل في الجدول النموذج والتقرير

انظر المرفق آسف لم انتبه للشرح ولعلا الأخوة الزملاء يفيدونك اجازات موظفين.rar

ايش هذا هنق البرنامج

لا يتوقف البرنامج عن العمل في حال تغيير المسار . ويمكن بعد إضافة مسار النسخة وإقفال الزر وذلك بعدم التمكين

تم التعديل ،،، آمل التجربة ... Backup_v2.rar

شكراً تم حل المشكلة هناك خطأ في الحرف الأول من الكمية حيث أن الحرف الأول كبير QtyOut SELECT InvoiceHelperTab.InvoiceNo, InvoiceHelperTab.InvoiceType, InvoiceTab.percentDescount, InvoiceHelperTab.QtyOut, InvoiceHelperTab.Price, (1-([percentDescount]/DSum("[Qtyout]*price","invoicehelpertab","invoiceno='" & [InvoiceHelperTab]![InvoiceNo] & "'")))*[price]*[qtyout] AS Expr1 FROM InvoiceTab INNER JOIN InvoiceHelperTab ON InvoiceTab.InvoiceNo = InvoiceHelperTab.InvoiceNo;

شكراً أستاذي @رمهان في خطأ في جملة الاستعلام حسب الرسالة التالية :

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

اعجبتي الفكرة ما شاء الله كما يعجبني تفكيرك في اختصار الأكواد والاكتفاء بالأهم منها فشكراً جزيلاً لك هل يمكن تساعدني في تطبيق الفكرة على الاستعلام حيث سيكون هناك عدة فواتير وكل واحدة منها لها خصم وعدة أصناف ما إلى ذلك . test3.accdbبالمرفق تجربتي المتواضعة لكن لم تفلح هذه العبارة ستفتح لي أفق كبيرة وسأصحح على ضوئها أخطاء ، فشكراً لك

ضعه في حدث في النموذج قبل الإدراج .

وعليكم والسلام ورحمة الله وبركاته ضع في القيمة الافتراضية لحقل الموظف المعد التالي : [اسم_المستخدم]![صادر]![forms]

Me.orderday = "D." & Replace(Nz(DMax("orderday", "tbl", "orderday like 'd." & Right(Day(Date), 2) & "*'"), "d." & Right(Day(Date), 2) & "000"), "d.", "") + 1 جرب هذا الكود اعتقد هو من الأستاذ الفاضل رمهان

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

تعقيبا على الموضوع قم بتحويل القاعدة من (accdb.) إلى (mdb) كما في الصورة الموضحة : بعد ذلك قم بإدراج زر من خلال معالج الأوامر فسترى تحويل الأوامر من الماكرو إلى الوحدات النمطية (vba) وهذا يرجع إلى أن إصدارات الأكسس السابقة في 2000 - 2003 لا يدعمان الماكرو ولم يدرج حسب علمي إلا في 2007 فما فوق . أتمنى أني وفقت للوصول إلى ما تريد .

بالبركة استاذ مسفر تستاهل كل خير موفق