كيف احول الأرقام إلى أشهر السنة

[GNMQ8]

السلام عليكم ورحمة الله وبركاته ..

شباب الله يعطيكم العافية على هذا المنتدى الممتاز .. والله يوفقكم لما يحبه ويرضى

سؤال خفيف :

عندي برنامج للإيجارات ، عندما أدخل إيجار جديد أضيف الشهر الذي دُفع فيه الإيجار ..

وعند طباعة التقرير ، يظهر لي رقم الشهر ، وليس اسم الشهر ،،،

فكيف أضع اسم الشهر ؟؟

____________________________________________________________________

ملاحظة :

أعتقد أن حركة إظهار إجمالي السعر بالحروف مثل : (( خمسون دينار )) مشابهة لهذه الحركة (:

[عمار زيد]

السلام عليكم

شاهد المرفق

يمكنك أن تضع هذا التعبير داخل التقرير فتحصل على النتيجة المرجوة مع الملاحظة أنه الحقل الذي يتم إدخال الأرقام فيه هو حقل نصي أو رقمي وليس تاريخ

=CVDate([mydate])*30

والسلام عليكم

AZ_month_name.zip

[ykeen2010]

الأخ العزيز : عمار

السلام عليكم

والله يعطيك العافيه

هل يمكن ان يكون ذلك على الأشهر العربية محرم ، صفر ، الخ

[عمار زيد]

أخي الكريم

لم تنجح المعادلة بالنسبة للهجري ولكن سأحاول

السلام عليكم

[ykeen2010]

الله يعطيك العافية

وبالتوفيق

[GNMQ8]

أخوي عمار الله يبارك فيك ..

حاولت أجرب الطريقة ولكن لم أفهمها ... إذا ممكن تشرحها ..

طريقتك : يأخذ رقم الشهر من خانة في النموذج نفسه ..

آنا بغيت ياخذ رقم الشهر من جدول و يضعه في تقرير ..

يرجى الرد علي ، وأسف على إزعاجك (:

ألف شكر

[عمار زيد]

السلام عليكم

اجعل مصدر بيانات المعادلة هي الحقل الذي فيه رقم الشهر وتنجح معك وذلك في استعلام التقرير ثم تعمل حقل في التقرير مرتبط بهذا الحقل الجديد

أو أرسل ملفك للتعديل

والسلام عليكم

[عمار زيد]

السلام عليكم

جواباً على الأخ ykeen2010

تم التعديل على المثال ليعمل على التاريخ الهجري أو الميلادي

والسلام عليكم

AZ_month_name.zip

[Accessna]

مشاركة أخرى علها تساهم في الحل :

دالة الحصول على إسم الشهر للتقويمين :

Function GetMonthName(inDate As Variant) As String
  Dim CurrentCal As VbCalendar
  If Not IsDate(CDate(inDate)) Then Exit Function
  
  CurrentCal = Calendar
  Calendar = Abs(Application.GetOption("Use Hijri Calendar"))
  GetMonthName = MonthName(Month(inDate))
  Calendar = CurrentCal
End Function

[GNMQ8]

تفضل اخوي .. هذا الملف بالمرفقات ..

روح إلى التقارير، ضع على سبيل المثال رقم الوصل 33 مثلاً ..

وفي حقل الشهر يظهر لي رقم الشهر ..

___________________

ألف شكر مقدما ... والله يثيبك

______________________.zip

[Accessna]

الملف بعد التعديل المطلوب .

MonthNameExam.rar

[ykeen2010]

الله يعطيك العافية

وجزاك الله خير

فعلاً الأكسيس فيه المتعه للذي يعرف له

[GNMQ8]

ألف شكر أخوي Accessna ... تمام التمام 100%

الله يجزاك خير ، الله يثيبك ، يعطيك العافية (: