مساعدة في التواريخ

[ازهر عبد العزيز]

السلام عليكم

في النموذج ftime يوجد حقول احتاج عند الضغط على الزر الموجود في النموذج تاخذ هذة الحقول قيمتها من التاريخ الحالي مثلا الحقل yn تكون قيمتة 2024 والحقل mn  = 10  والحقل dn = 16   

اما الحقل mt = اكتوبر  اي نصي والحقل dt = الاربعاء ايضا نصي

time.accdb

[Foksh]

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

استخدم الكود التالي لتقسيم التاريخ الحالي وتوزيعه الى مربعات النص :-
 

Private Sub oktxt_Click()
    Me.yn.Value = Year(Date)
    Me.mn.Value = Month(Date)
    Me.dn.Value = Day(Date)
    Me.mt.Value = Format(Date, "mmmm")
    Me.dt.Value = Format(Date, "dddd")
End Sub

 

ملفك بعد التعديل : time.accdb

[شايب]

جرب المرفق

 

time.accdb

1 دقيقه مضت, Foksh said:

استخدم الكود التالي

عذرا لم اشاهد ردك

[Foksh]

21 دقائق مضت, شايب said:

عذرا لم اشاهد ردك

بالعكس أستاذنا الغالي ، يشرفنا ردكم و وجودكم . واشتقنا لمشاركاتكم ومداخلاتكم التي منها نستفيد ونتعلم 

[ابو جودي]

ههههههه

انا جاوبت فى سرى ينفع 

لا بلاش هزار لحسن حد يزعق لى 

انا بالفعل حضرتت الاجابة وفى آخر لحظة تراجعت عن عمل المشاركة ورفع المرفق

السبب: بكل صراحة لم أكن راضيا عنها

جارى العمل على تعديل اكواد لتكون الإجابة شاملة و كافية و وافيه بقدر الإمكان للإقتراب قدر الإمكان من أقرب درجات الكمال لأكون راض عن المشاركة