كود ايجاد السنة

[husseinharby]

السلام عليكم

في الاستعلام المرفق اريد كود اظهار السنة الحالية ومابعدها فقط 

كما مبين في الصورة المرفقة

 

Documents.rar

تم تعديل أكتوبر 11, 2022 بواسطه husseinharby

[Barna]

12 دقائق مضت, husseinharby said:

السلام عليكم

Year(Now())

استخدم الكود السابق في الاستعلام لايجاد السنة الحالية

اريد كود لايجاد السنة الحالية و مابعدها مثل 2022 -2023 -2024

حاولت استخدام هذا الكود ولكنه لايعمل

Year>=(Now())

 

هل هذه الصورة المطلوبة .....

استخدم هذا .....

H: Year(Now()) & "-" & Year(Now())+1 & "-" & Year(Now())+2

 

[husseinharby]

ليس هذا المطلوب 

المطلوب ايجاد السنة الحالية ومابعدها

[Barna]

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

ليس هذا المطلوب 

المطلوب ايجاد السنة الحالية ومابعدها

اعمل جدول وادرج السنوات المطلوبة بالكود ....

[husseinharby]

تم اضافة مرفق موضح المطلوب 

[اكرم العريقي]

هل هذا هو ما تريد بالتوفيق للجميع

https://wayprograms.blogspot.com/search/label/اكسس

Documents.rar

[متقاعد]

2 ساعات مضت, اكرم العريقي said:

هل هذا هو ما تريد بالتوفيق للجميع

مشاركة مع الاساتذة

ممكن نعمل حلقة تكرارية نحدد فيها عدد السنوات المطلوب اضافتها

والكود يقوم بكتابة اول سجل للسنة الحالية ثم يولد سجلات للسنوات القادمة وفقا لعدد السنوات المطلوبة

If IsNull(tx2) Then MsgBox "حدد عدد السنوات المطلوبة": Exit Sub
Dim rs As DAO.Recordset
Dim a As Byte
Set rs = CurrentDb.OpenRecordset("table1")
For a = 0 To Me.tx2 - 1
rs.AddNew
rs!date22 = Year(Date) + a
rs.Update
Next a
rs.Close
Set rs = Nothing
Me.Requery

مرفق مثال

 

Database11.accdb

[husamwahab]

السلام عليكم استاذ husseinharby

تفضل التعديل حسب فهمي لطلبك

 

Database10.rar

[AbuuAhmed]

حل الأستاذ @husamwahab صحيح

>=Year(Now())

ويمكن أن تكون بهذا الشكل أيضا:

>=Year(Date())