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

[husseinharby]

السلام عليكم

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

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

 

Documents.rarFetching info...

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

[Barna]

  في 11‏/10‏/2022 at 14:00, husseinharby said:

السلام عليكم

Year(Now())

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

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

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

Year>=(Now())

 

Expand  

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

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

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

 

[husseinharby]

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

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

[Barna]

  في 11‏/10‏/2022 at 14:19, husseinharby said:

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

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

Expand  

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

[husseinharby]

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

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

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

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

Documents.rarFetching info...

[متقاعد]

  في 11‏/10‏/2022 at 15:09, اكرم العريقي said:

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

Expand  

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

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

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

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.accdbFetching info...

[husamwahab]

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

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

 

Database10.rarFetching info...

[AbuuAhmed]

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

>=Year(Now())

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

>=Year(Date())