السلام عليكم اخواني
كيف لي ان ارى إسم الأشهر في مربع نص
(()Month(date
الأشهر بهذه الأسماء
جانفي
فيفري
مارس
أفريل
ماي
جوان
جويلية
أوت
سبتمبر
أكتوبر
نوفمبر
ديسمبر
علما اني غيرت الإعدادات في لوحة التحكم
وخصصت اللغة الخاصة بي لغة العربية (تونس)
فمعظم الشهور كتبت صحيحة الا شهر "اوت"كتب "أبت"
فهل من دالة او اي حل لهذا المشكل في أكسس 2003 تصحح ذالك
تم تعديل هذه المشاركة بواسطة كريمو2 في 7 يناير 2014 في 21:10
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم
شكرا أستاذة
هذه الطريقة جربتها في Windows xp ومانفعت
أي إذا كتب أوت صحيحة
تكتب جانفي = جانفيية
فيفري = فيفريية
وغيرها
ارجو إذا فيه طريقة أخرى
ككود في الوحدة النمطية او غيرها
للعلم إسم الشهر مرتبط بتنسيق الأرقام
كمايلي :
جانفي 2014
فيفري 2014
مارس 2014
أفريل 2014
ماي 2014
جوان 2014
جويلية 2014
أوت 2014
سبتمبر 2014
أكتوبر 2014
نوفمبر 2014
ديسمبر 2014
بارك الله فيك
تم تعديل هذه المشاركة بواسطة كريمو2 في 7 يناير 2014 في 21:51
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم
اذا كانت المشكلة فى الاسم فقط (للعرض فى الأكسس
يمكنك بكل بساطة ان تستخدم كومبو بوكس و تكون القيم به أسماء الشهور و حقل القيمة هو رقم الشهر
او ان تضع دالة تدخل بها رقم الشهر فترجع لك الاسم الذى تريده
الحلول كثيرة لكن هذا يتوقف على طبيعة ما تريده
اذا لم تستطيع تطبيق ذلك
ضع مثالا يوضح ما تريد للتطبيق عليه
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم
لقد إنتابتني فكرة بدلالة دالة IIF
IIf(Month(Now())=1;"جانفي";IIf(Month(Now())=2;"فيفري ";IIf(Month(Now())=3;"مارس";IIf(Month(Now())=4;"أفريل";IIf(Month(Now())=5;"ماي ";IIf(Month(Now())=6;"جوان ";IIf(Month(Now())=7;"جويلية ";IIf(Month(Now())=8;"أوت ";IIf(Month(Now())=9;"سبتمبر ";IIf(Month(Now())=10;"أكتوبر ";IIf(Month(Now())=11;"نوفمبر ";IIf(Month(Now())=12;"ديسمبر "))))))))))))
فكيف لي ان اطبقها على هذا الإستعلام لكي تعطي إسم الشهر كما اطلبه أنا
SELECT Cridi.EmployeeID, Employee.[Nom et Prénom], Cridi.Cridi_Date, Cridi.Cridi_Value, Cridi.DiscountStartDate, Cridi.Beriod, Cridi.DiscountEndDate, Cridi.DiscountPerMonth, Employee.transfer, Cridi.Obsérvation FROM Employee INNER JOIN Cridi ON Employee.EmployeeID = Cridi.EmployeeID WHERE (Month([Forms]![FrmTransfer]![txtAwardMonth]) = Month(Cridi.DiscountStartDate) and (Year([Forms]![FrmTransfer]![txtAwardMonth]) = Year(Cridi.DiscountStartDate))) UNION ALL SELECT ElectroMeng.EmployeeID, Employee.[Nom et Prénom], ElectroMeng.Elec_Date, ElectroMeng.Total_Value, ElectroMeng.t1, ElectroMeng.Bériode, ElectroMeng.n1, ElectroMeng.DiscountPerMonth, Employee.transfer, ElectroMeng.Obsérvation FROM Employee INNER JOIN ElectroMeng ON Employee.EmployeeID = ElectroMeng.EmployeeID WHERE (Month([Forms]![FrmTransfer]![txtAwardMonth]) = Month(ElectroMeng.t1) and (Year([Forms]![FrmTransfer]![txtAwardMonth]) = Year(ElectroMeng.t1))) UNION ALL SELECT Africha.EmployeeID, Employee.[Nom et Prénom], Africha.Frech_Date, Africha.Africha_Value, Africha.FrechStartDate, Africha.Durée, Africha.FrechEndDate, Africha.DiscountPerMonth, Employee.transfer, Africha.Obsérvation FROM Employee INNER JOIN Africha ON Employee.EmployeeID = Africha.EmployeeID WHERE (Month([Forms]![FrmTransfer]![txtAwardMonth]) = Month(Africha.FrechStartDate) and (Year([Forms]![FrmTransfer]![txtAwardMonth]) = Year(Africha.FrechStartDate))) UNION ALL SELECT Employee.EmployeeID, Employee.[Nom et Prénom], OtherDiscount.Discount_Date, OtherDiscount.TheDiscount, OtherDiscount.Discount_Date AS DiscountStartDate, OtherDiscount.beriod, OtherDiscount.Discount_Date AS DiscountEndDate, OtherDiscount.TheDiscount, Employee.Transfer, OtherDiscount.Obsérvation FROM Employee LEFT JOIN OtherDiscount ON Employee.EmployeeID = OtherDiscount.EmployeeID WHERE (Month([Forms]![FrmTransfer]![txtAwardMonth]) = Month(OtherDiscount.Discount_Date) and (Year([Forms]![FrmTransfer]![txtAwardMonth]) = Year(OtherDiscount.Discount_Date)));
ملاحظة : المرفق بالمشاركة رقم 5 "كتابة الشهر " به هذا الإستعلام
تم تعديل هذه المشاركة بواسطة كريمو2 في 8 يناير 2014 في 09:01
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم
تفضل اخى
المرفق به التعديل المطلوب
تم اضافة دالة فى الموديول module1 لارجاع الشهر
و هناك كومبو مخفى به الاشهر يمكن استخدامه ( ليس له استخدام الان )
شكرا استاذ ابو يوسف على الفكرة
ولكن لو سمحت احبذ في فورم FrmTransfer ان يكتب التاريخ تلقائيا
والباقي حسب الصورة
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم
اذا كنت تقصد ان يظهر الشهر الحالى عند فتح النموذج فالامر بسيط فقط ضع الكود فى حدث عند فتح النموذج
و بالنسبة للرسالة تم ازالتها
أما بالنسبة لتصميم التقرير أنا لم أتطرق اليه انا فقط أردت ان أنقل اليك الفكرة و حاول انت ان تطبق
لأن كل الحقول التى تريد اظهار أسما الشهور بها يجب ان تمر من خلال الدالة FrenchMonth التى كتبتها لك فى المرفق السابق
عموما المرفق به التعديلات التى طلبتها
شكرا لك استاذنا أبويوسف
وهو المطلوب
ولكن ينقص شيئا وهو عدم ظهور سنة الإقتطاع في التقرير
كما في الصورة
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم
غير مصدر مربع النص الى
=FrenchMonth(Month([DiscountStartDate])) & ' ' & Year([DiscountStartDate])
و
=FrenchMonth(Month([[DiscountEndDate]])) & ' ' & Year([[DiscountEndDate]])
بارك الله فيك أستاذنا
ربي يخليك ويحفظك
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم
لا أعرف ما الذى تريده بالتحديد
لكن اعتقد ان المشكلة لديك فى حساب الشهر السابق
و الحل بسيط
ضع مربع نص مخفى بدلا من مربع النص الذى يعرض الشهر بالنموذج
و اربط التقرير به
و حدد قيمته قبل فتح التقرير
اذا كنت تريد الشهر الحالى تكون قيمته تفس القيمة المعروضة
اما اذا كنت تريد الشهر السابق
تكون قيمته = القيمة المعروضة -1 او 12 اذا كان الشهر الحالى هو 1
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
