Khalid Jnb

السلام عليكم اخي الكريم يمكنك اختيار طابعة بالكود دون التاثير على الطابعة الافتراضية جرب الكود على اعتبار ان الحقل اسمه print واعلمنا النتائج If print = 1 Then Set Application.Printer = Application.Printers("اسم الطابعة الكامل") DoCmd.OpenReport "اسم التقرير", acViewNormal elseif print = 3 Then Set Application.Printer = Application.Printers("اسم الطابعة الكامل") DoCmd.OpenReport "اسم التقرير", acViewNormal end if تحياتي

السلام عليكم جرب المرفق اخي الكريم اتمنى يكون المطلوب اعلمنا النتائج تحياتي ProgClac44.rar

السلام عليكم ان في جهازي تم تفريغ الحقول بدون ما اغلق الملف جرب ان تضع الكود التالي في تهاية الكود قبل جملة end sub Me.Requery تحياتي

عزيزي ارفق ملفك كله او مثال منه حتى يتم التعديل عليه تحياتي

السلام عليكم عملت لك طريقتين في نموذجين النموذج الاول: فيه زر استعلام تحديث تضغطه نهاية كل سنه لمرة واحده ليضيف 27 يوم لرصيد الاجازات النموذج الثاني : في مربع نص يمكن ادخال الرقم الذي تريد اضافته لرصيد الاجازات (اي رقم تختاره) يجمعه مع الرصيد السابق ثم اضغط على تحديث النموذج اتمنى يكون المطلوب تحياتي Database2.rar

اخي العزيز البرنامج يعمل بصورة صحيحة جدا هذه صورة من جهازي للملف اللي بعته لي تحياتي مرفق الملف مع الاكسل سؤال ؟ هل انت مصطفى الفارس Downloads.rar

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

السلام عليكم مشاركة لي مع الاخ kanory أن هذا الترقيم اذا كان مرتبط بعلاقة مع جدول اخر وانت عدلت الترقيم ممكن تسبب لك المشاكل إعادة الترقيم يصلح فقط إذا كان الرقم بالنسبة لك هو مسلسل عادي ولا يرتبط بأي شيء اخر (علاقات) احدى الطرق استخدمها اخي kanory وفي كمان استخدام الدالة DMAX وايضا يمكن عمل ذلك عن طريق الوحدات نمطية لعمل ذلك تحياتي

انا قلت رايي لك بصراحه ملفك فيه اخطاء بعتت لك ملف TEST انظر اليه تحياتي

اخي العزيز في الاول انصحك بترتب ملفك من الاول (هو فيه الكثير من الاخطاء) ثانيا سؤالك غير واضح ؟؟؟؟؟؟ انت ماذا تريد ان تفعل ؟؟؟؟؟؟ هل تريد ان تبحث عن الاسم في نموذج ؟؟؟؟؟؟ وهل الاستعلام الذي تتكلم عنه هو استعلام التسجيل ام غيره؟؟؟؟؟ ولماذا عامل نموذج به نموذجين فرعيين شو السبب؟؟؟؟؟؟ اشرح لي بوضوح مرفق نموذج بحث بالاسم TEST.rar

السلام عليكم تفضل اخي عملت لك التقرير المطلوب ورتبت لك النموذج هذا ما سمح لي به الوقت تحياتي الرواتب شهر او 2 او 3_2.rar

تفضل اخي اخي الكريم بمجرد ادخال عدد ايام الغياب يتم الخصم بصورة تلقائية (استخدم النموذح لتغيير البيانات) تحياتي الرواتب شهر او 2 او 3_2.rar

انتظرني قليلا اخي العزيز برنامج الاكسس له امكانيات كبيرة جدا ساعدل في البيانات

لما تحصل على اجابة لسؤال موضوعك ، فرجاء اختيار افضل اجابة

السلام عليكم لانعرف متطلبات عملك اخي الكريم انت لم توضح مافيه الكفاية المهم نموذج لاحد الاخوة اتمنى ان تستفبد منه Gaz.rar

اخي الكريم ممكن البرنامج يحسب لك الخصم بمجرد ان تضع عدد ايام الغياب المهم تقضل اتمنى يكون المطلوب اعلمنا النتائج تحياتي الرواتب شهر او 2 او 3_2.rar

سؤال اخر هل الخصم اللي انت عامله للغياب وهل الراتب تم تقسيمه على 30 بوم

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

يا اخي ياخي اقرا اللي اكتبته لك جيدا سابقا الملف يعمل بصورة صحيحة في الحالتين بعد التصدير او قبل الاستيراد (تحذف بيانات الجدور بزر الحذف ) لازم تحذف بيانت الجدول عن طريق زر الحذف في النموذج وتفرغة من محتوياته ثم تقوم باستيراد الجديد المهم هذا الملف حسب طلبك بعد التعديل Database4_3.rar

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

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

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

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

اخي العزيز كان من الافضل رفع مثال منك او ملفك لغرض التعديل المهم الكود التالي Nz([الكمية]);0) تحياتي

اخي العزيز لديك خيارات الاول ان تجعل القيمة الافتراضية للحقل = صفر والخيار الثاني ان تستخدم الداتلة NZ لارجاع قيمة الحقل الفارغة في الكمية الى صفر (0 ; ( [الكمية])NZ احياتي