استدعاء بيانات فى كومبو بوكس بشرط اذا تحقق فى كومبو بوكس اخر

[Mohammad Shawkey]

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

تحياتى

برجاء اريد المساعدة فى وجود كود يمكنى من استدعاء بيانات موجودة فى العمود الاول فى صفحة رقم 1 داخل الكومبو بوكس رقم 1 ولكن بشرط انى اختار كلمة يناير من الكومبو بوكس رقم 2

ملحوظة هذا البيانات عبارة عن تواريخ وهى خاصة بشهر كامل اريد ان تظهر فى الكومبو بوكس

ولكم جزيل الشكر

date.rar

[عبدالله باقشير]

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

اذا اردتهم بشكل عام بدون وضع بيانات في الشيت

بحيث يكون عندك قائمة بالاشهر

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

في الفورم

تحتاج الى قائمتين

ComboDays

ComboMonth

وضع هذه الاكود في الفورم

Private Sub ComboMonth_Click()

Dim d As Double, yy As Double

Dim mm As Integer

yy = Year(Date)

Me.ComboDays.Clear

mm = Me.ComboMonth.ListIndex + 1

For d = DateSerial(yy, mm, 1) To DateSerial(yy, mm + 1, 0)

Me.ComboDays.AddItem Format(d, "dd/mm/yyyy")

Next


End Sub

Private Sub UserForm_Activate()

For i = 1 To 12

Me.ComboMonth.AddItem MonthName(i)

Next

Me.ComboMonth.Style = 2

Me.ComboDays.Style = 2

End Sub

المرفق 2003

date.rar

[Mohammad Shawkey]

جزاك الله كل خير استاذى الفاضل عبدالله ... انا بالفعل جربت الكود وهو شغال معايا تمام لكن المشكلة فى القائمة الخاصة بالشهور بها فراخ قبل شهر يناير وهذا يؤثر على قائمة الايام بحيث يكون شهر يناير = ايام شهر 2 بسبب هذا الفراغ .. واكون شاكر جدا لو حضرتك ساعدتنى بكود يظهر التقويم فى الفورم ..

ربنا يكرمك ويزيدك من علمة

[عبدالله باقشير]

جزاك الله كل خير استاذى الفاضل عبدالله ... انا بالفعل جربت الكود وهو شغال معايا تمام لكن المشكلة فى القائمة الخاصة بالشهور بها فراخ قبل شهر يناير وهذا يؤثر على قائمة الايام بحيث يكون شهر يناير = ايام شهر 2 بسبب هذا الفراغ .. واكون شاكر جدا لو حضرتك ساعدتنى بكود يظهر التقويم فى الفورم ..

ربنا يكرمك ويزيدك من علمة

بالنسبة لهذا

واكون شاكر جدا لو حضرتك ساعدتنى بكود يظهر التقويم فى الفورم ..

تجده في الموضوع

http://www.officena.net/ib/index.php?showtopic=42121&st=20

المشاركة 24

بالنسبة لهذا

لكن المشكلة فى القائمة الخاصة بالشهور بها فراخ قبل شهر يناير

ما فائدة الفراغ هذا اللي في بداية القائمة

[Mohammad Shawkey]

انا لا اعلم ما فائدة هذا الفراغ انا كنت اريد حذفة .. لكن المرفق اللى حضرتك اضفتة هو تم حل المشكلة بة ... من الواضح ان المشكلة كانت عندى انا فى الملف الاول ... جزاك الله كل خير استاذ عبدالله هذا هو المطلوب .. ربنا يكرمك

تم تعديل أغسطس 25, 2012 بواسطه mosha14