اذهب الي المحتوي
أوفيسنا

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


Ahmed_J
إذهب إلى أفضل إجابة Solved by ابو جودي,

الردود الموصى بها

السلام عليكم

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

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

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

وشكرا لكم

Untitled1.jpg

تم تعديل بواسطه Ahmed_J
رابط هذا التعليق
شارك

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

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

 

3Dates.accdb 564 kB · 3 downloads

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

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

 

طريقتي:

image.png.46516f25bccf7fbd6732ff2a8bfc4285.png

.

وفي حدث "بعد تحديث" 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

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

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

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

طريقتي:

image.png.46516f25bccf7fbd6732ff2a8bfc4285.png

وفي حدث "بعد تحديث" 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 :fff:

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

رابط هذا التعليق
شارك

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

 

تم تعديل بواسطه ابا جودى
  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information