كيفية إضافة الشهر الحالي أو السنة الحالية

[GNMQ8]

كيف أضيف الشهر الحالي أو السنة الحالية عند الضغط على زر إضافة سجل جديد ؟؟

أستطيع أن أضع القيمة الافتراضية =Date() ولكن يظهر لي التاريخ كاملاً ..

يفضل أن يكون بصيغة الفيجوال (حدث) عند الضغط على زر إضافة سجل جديد .

أفيدونا بارك الله فيكم ..

المثال بالمرفقات

_____.zip

[GNMQ8]

يا جماعة ...

يعطيكم العافية .. عرفت كيف اجعل القيمة الافتراضية هي الشهر الحالي ..

تقوم بوضع القيمة الافتراضية للشهر الحالي :

كود

=Month(Now())

 

وللسنة الحالية :

كود

=Year(Now())

أرجوا ان اكون قد أفدتكم ..

تحيتي

[man_20011]

شكرا عزيز ولكن السؤال كيف تستطيع تحول الشهر من رقم الى حرف مثال شهر 2 هل تستطيع تحويله الى فبراير

[GNMQ8]

نعم تستطيع ، قم بعمل التالي :

1- قم بعمل وحدة نمطية ، واكتب فيها التالي :

كود

Option Compare Database
Option Explicit

Function GetMonthName2(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"))
  GetMonthName2 = MonthName(Month(inDate))
  Calendar = CurrentCal
End Function

Function GetMonthName(ByVal mm As Variant) As String
  Dim CurrentCal As VbCalendar
  If Not IsNumeric(mm) Then Exit Function
  
  mm = ((mm - 1) Mod 12) + 1
  CurrentCal = Calendar
  Calendar = Abs(Application.GetOption("Use Hijri Calendar"))
'GetMonthName = MonthName(mm)  'ÇáÅÕÏÇÑÇÊ ÇáÞÏíãÉ áÇ ÊÍæí åÐå ÇáÏÇáÉ
  GetMonthName = Format(DateSerial(Year(Date), mm, 1), "mmm")
  Calendar = CurrentCal
End Function

ثم في النموذج أو التقرير ، قم بوضع هذا الكود في مربع النص :
 

كود

=GetMonthName([اسم_الحقل])

أتمنى أن يكون هذا المطلوب ..

إذا لم تعمل معاك ، بلغني علشان ارسل لك مثال على الأكسيس ...

بالتوفيق

[man_20011]

مشكور عزيزي

ممكن تشرح لي شلون عملت الاكواد

[GNMQ8]

حياك الله عزيزي ..

والله اسمح لي آنا أخذت الأكواد من أحد الشباب في المنتدى ، ولا أذكر منو ، ولكن لم أفهم عملها ..

والله يوفقك

[أبا عمر]

ينقل