عمل قائمة منسدلة بالتواريخ

[Ahmed_J]

السلام عليكم

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

ياخذ تاريخ اليوم + اليوم التالي + اليوم اللي بعدة

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

وشكرا لكم

تم تعديل نوفمبر 21, 2021 بواسطه Ahmed_J

[Moosak]

تفضل أخي أحمد

 

3Dates.accdb

[Ahmed_J]

شكرا لك استاذ @Moosak

بارك الله فيك

لااستطيع استخدام جدولين

هل ممكن عمل ذلك عن طربق النموذج  للجدول

وشكرا لك

[ابو جودي]

اتفضل 
 بدون اى جداول فقط حسب الوجدة النمطية 

 

3Dates.accdb

[Ahmed_J]

شكرا لك استاذي العزبز

[Moosak]

منذ ساعه, ابا جودى said:

اتفضل 
 بدون اى جداول فقط حسب الوجدة النمطية 

 

3Dates.accdb 564 kB · 3 downloads

دائما مبدع يا أبا جودي 😉

[jjafferr]

السلام عليكم شباب 🙂

 

طريقتي:

.

وفي حدث "بعد تحديث" Date Start :

Private Sub Date_Start_AfterUpdate()
    
    Me.cmb_3Dates.RowSourceType = "Value List"
    Me.cmb_3Dates.RowSource = Empty
    
    Me.cmb_3Dates.AddItem Me.Date_Start
    Me.cmb_3Dates.AddItem Me.Date_Start + 1
    Me.cmb_3Dates.AddItem Me.Date_Start + 2
    
End Sub

 

جعفر

1416.3Dates.accdb.zip

[Ahmed_J]

السلام عليكم استاذ @jjafferr

دائما مبدع  ربي يحغظك من كل مكروه

 

[ابو جودي]

2 ساعات مضت, jjafferr said:

السلام عليكم شباب 🙂

طريقتي:

وفي حدث "بعد تحديث" Date Start :

Private Sub Date_Start_AfterUpdate()
    
    Me.cmb_3Dates.RowSourceType = "Value List"
    Me.cmb_3Dates.RowSource = Empty
    
    Me.cmb_3Dates.AddItem Me.Date_Start
    Me.cmb_3Dates.AddItem Me.Date_Start + 1
    Me.cmb_3Dates.AddItem Me.Date_Start + 2
    
End Sub

جعفر

وعليكم السلام ورحمة الله تعالى وبركاته أستاذي الجليل ومعلمي القدير و والدى الحبيب أستاذ @jjafferr 

اذا حضر الماء بطل التيمم 

[ابو جودي]

2 ساعات مضت, jjafferr said:

Private Sub Date_Start_AfterUpdate()
    
    Me.cmb_3Dates.RowSourceType = "Value List"
    Me.cmb_3Dates.RowSource = Empty
    
    Me.cmb_3Dates.AddItem Me.Date_Start
    Me.cmb_3Dates.AddItem Me.Date_Start + 1
    Me.cmb_3Dates.AddItem Me.Date_Start + 2
    
End Sub

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

    
    Me.cmb_3Dates.RowSourceType = "Value List"
    Me.cmb_3Dates.RowSource = Empty
   
 Dim Days As Integer
 
 For Days = 0 To 2
  Me.cmb_3Dates.AddItem Format(DateAdd("d", Days, Date_Start), "dd/mm/yyyy")
 Next Days

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

Function DayLoop2(ByVal DateStart As Date) As String
Dim strSQL    As String
Dim i         As Integer
Dim N         As Integer
    N = 2
    strSQL = ""
  For i = 0 To 2
    strSQL = strSQL & Format(DateAdd("d", i, DateStart), "dd/mm/yyyy") & "; "
  Next i
    DayLoop2 = strSQL
End Function

 

تم تعديل نوفمبر 21, 2021 بواسطه ابا جودى