Khalid Jnb
-
Posts
774 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
5
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه Khalid Jnb
-
-
-
3
-
-
السلام عليكم
ان في جهازي تم تفريغ الحقول بدون ما اغلق الملف
جرب ان تضع الكود التالي في تهاية الكود قبل جملة end sub
Me.Requeryتحياتي
-
عزيزي
ارفق ملفك كله او مثال منه حتى يتم التعديل عليه
تحياتي
-
السلام عليكم
عملت لك طريقتين في نموذجين
النموذج الاول: فيه زر استعلام تحديث تضغطه نهاية كل سنه لمرة واحده ليضيف 27 يوم لرصيد الاجازات
النموذج الثاني : في مربع نص يمكن ادخال الرقم الذي تريد اضافته لرصيد الاجازات (اي رقم تختاره) يجمعه مع الرصيد السابق
ثم اضغط على تحديث النموذج
اتمنى يكون المطلوب
تحياتي
-
1
-
-
اخي العزيز
البرنامج يعمل بصورة صحيحة جدا
هذه صورة من جهازي للملف اللي بعته لي
تحياتي
مرفق الملف مع الاكسل
سؤال ؟ هل انت مصطفى الفارس
-
وعليكم السلام
اولا يتم تصدير الجدول بزر التثدير الى اكسيل ضمن مسار قاعدة البيانات (نفس المكان)
ثانيا عند استيراد الملف (لاتقوم يتغيير اسماء الحقول او عددها يجب ان تكون متطابفة) يتم حذف بينات الجدول بالاكسس اولا عن طريق الكود ومن ثم يتم الاستيراد بنجاح
ثالثا الرقم ثمانية هو مختصر كما في الصورة
لو عاوز ارفقك ملفك هنا لغرض التعديل
تحياتي
-
السلام عليكم
مشاركة لي مع الاخ kanory
أن هذا الترقيم اذا كان مرتبط بعلاقة مع جدول اخر وانت عدلت الترقيم ممكن تسبب لك المشاكل
إعادة الترقيم يصلح فقط إذا كان الرقم بالنسبة لك هو مسلسل عادي ولا يرتبط بأي شيء اخر (علاقات)
احدى الطرق استخدمها اخي kanory وفي كمان استخدام الدالة DMAX وايضا يمكن عمل ذلك عن طريق الوحدات نمطية لعمل ذلك
تحياتي
-
3
-
-
انا قلت رايي لك بصراحه
ملفك فيه اخطاء
بعتت لك ملف TEST
انظر اليه
تحياتي
-
اخي العزيز
في الاول انصحك بترتب ملفك من الاول (هو فيه الكثير من الاخطاء)
ثانيا سؤالك غير واضح ؟؟؟؟؟؟
انت ماذا تريد ان تفعل ؟؟؟؟؟؟
هل تريد ان تبحث عن الاسم في نموذج ؟؟؟؟؟؟
وهل الاستعلام الذي تتكلم عنه هو استعلام التسجيل ام غيره؟؟؟؟؟
ولماذا عامل نموذج به نموذجين فرعيين شو السبب؟؟؟؟؟؟
اشرح لي بوضوح
مرفق نموذج بحث بالاسم
-
السلام عليكم
تفضل اخي
عملت لك التقرير المطلوب ورتبت لك النموذج
هذا ما سمح لي به الوقت
تحياتي
-
تفضل اخي اخي الكريم
بمجرد ادخال عدد ايام الغياب
يتم الخصم بصورة تلقائية (استخدم النموذح لتغيير البيانات)
تحياتي
-
2
-
-
انتظرني قليلا
اخي العزيز
برنامج الاكسس له امكانيات كبيرة جدا
ساعدل في البيانات
-
لما تحصل على اجابة لسؤال موضوعك ، فرجاء اختيار افضل اجابة
-
السلام عليكم
لانعرف متطلبات عملك اخي الكريم انت لم توضح مافيه الكفاية
المهم
نموذج لاحد الاخوة اتمنى ان تستفبد منه
-
اخي الكريم
ممكن البرنامج يحسب لك الخصم بمجرد ان تضع عدد ايام الغياب
المهم تقضل
اتمنى يكون المطلوب
اعلمنا النتائج
تحياتي
-
2
-
-
سؤال اخر
هل الخصم اللي انت عامله للغياب
وهل الراتب تم تقسيمه على 30 بوم
-
السلام عليكم
اخي العزيز
ممكن توضح اكثر
هل تريد جمع الرواتب فقط ام الرواتب- الخصم وماذا عن ايام الغياب كيف يتم احتسابها
تحياتي
-
1
-
-
يا اخي ياخي اقرا اللي اكتبته لك جيدا سابقا
الملف يعمل بصورة صحيحة
في الحالتين بعد التصدير او قبل الاستيراد (تحذف بيانات الجدور بزر الحذف )
لازم تحذف بيانت الجدول عن طريق زر الحذف في النموذج وتفرغة من محتوياته ثم تقوم باستيراد الجديد
المهم
هذا الملف حسب طلبك بعد التعديل
-
السلام عليكم
كلنا اخوه ان شاء الله
والله لايوجد فرق بيني وبين اخي احمد ابدا
بس المفروض صاحب السؤال هو اللي يرفع الملف تبعه وليس نحن من نعمل له ملف
تحياتي لكل اخوني هنا بالموقع
-
1
-
-
اخي العزيز
لماذا ضياع كل هذا الوقت على شيء بسيط مثل هذا
ارفع مثالك او قاعدة ببياناتك لكي يتم التعديل عليه لتوفير الوقت على الجميع
تحياتي
-
2
-
-
انظر للاستعلام Q
تقوم الدالة NZ بالاستعلام بارجاع القيمة الخالية للحقل الى صفر
ويكون النموذج مصدر بياناته الاستعلام
اتمنى يكون المطلوب
-
1
-
-
-
1
-
-
اخي العزيز
كان من الافضل رفع مثال منك او ملفك لغرض التعديل
المهم الكود التالي
Nz([الكمية]);0)تحياتي
-
1
-
1
-
-
اخي العزيز
لديك خيارات
الاول ان تجعل القيمة الافتراضية للحقل = صفر
والخيار الثاني ان تستخدم الداتلة NZ لارجاع قيمة الحقل الفارغة في الكمية الى صفر (0 ; ( [الكمية])NZ
احياتي
-
1
-
1
-
طباعة عدة حقول على طابعات مختلفة
في قسم الأكسيس Access
قام بنشر · تم تعديل بواسطه خالد سيسكو
السلام عليكم
اخي الكريم يمكنك اختيار طابعة بالكود دون التاثير على الطابعة الافتراضية
جرب الكود على اعتبار ان الحقل اسمه 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تحياتي