zero1111330566 قام بنشر يونيو 21 مشاركة قام بنشر يونيو 21 المطلوب عايز ابتداء من 1/1 من كل عام الى 3/31 ينكتب فى البيان اخضر المطلوب عايز ابتداء من 4/1 من كل عام الى 6/30 ينكتب فى البيان ازرق المطلوب عايز ابتداء من 7/1 من كل عام الى 9/30 ينكتب فى البيان احمر المطلوب عايز ابتداء من 10/1 من كل عام الى 12/31 ينكتب فى البيان اسود البيان.zip رابط هذا التعليق شارك More sharing options...
zero1111330566 قام بنشر يونيو 21 الكاتب مشاركة قام بنشر يونيو 21 آرجّوٌآ آلَآفُآدٍةّ رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يونيو 21 مشاركة قام بنشر يونيو 21 وعليكم السلام 🙂 قاعدة ذهبية: لا تبدأ اسماء الكائنات او الحقول بأرقام. اسم حقل التاريخ اصبح iDate ، واسم حقل النتائج اصبح Results . انا عملت تغيير في خلفية الحقل Results على اسا قيمة iDate : Private Sub Form_Current() Call iDate_AfterUpdate End Sub Private Sub iDate_AfterUpdate() 'send the date properly Call Check_Dates(DateSerial(Year(Me.iDate), Month(Me.iDate), Day(Me.iDate))) End Sub Function Check_Dates(D As Date) 'Debug.Print DateSerial(Year(D), Month(D), Day(D)) If (Day(D) >= 1 And Month(D) >= 1) And (Day(D) <= 31 And Month(D) <= 3) Then Me.Results.BackColor = RGB(0, 255, 0) 'green ElseIf (Day(D) >= 1 And Month(D) >= 4) And (Day(D) <= 30 And Month(D) <= 6) Then Me.Results.BackColor = RGB(0, 0, 255) 'blue ElseIf (Day(D) >= 1 And Month(D) >= 7) And (Day(D) <= 30 And Month(D) <= 9) Then Me.Results.BackColor = RGB(255, 0, 0) 'red ElseIf (Day(D) >= 1 And Month(D) >= 10) And (Day(D) <= 31 And Month(D) <= 12) Then Me.Results.BackColor = RGB(0, 0, 0) 'black End If End Sub . جعفر 1 رابط هذا التعليق شارك More sharing options...
zero1111330566 قام بنشر يونيو 21 الكاتب مشاركة قام بنشر يونيو 21 ممكن علي المثال المرسل 23 دقائق مضت, jjafferr said: وعليكم السلام 🙂 قاعدة ذهبية: لا تبدأ اسماء الكائنات او الحقول بأرقام. اسم حقل التاريخ اصبح iDate ، واسم حقل النتائج اصبح Results . انا عملت تغيير في خلفية الحقل Results على اسا قيمة iDate : Private Sub Form_Current() Call iDate_AfterUpdate End Sub Private Sub iDate_AfterUpdate() 'send the date properly Call Check_Dates(DateSerial(Year(Me.iDate), Month(Me.iDate), Day(Me.iDate))) End Sub Function Check_Dates(D As Date) 'Debug.Print DateSerial(Year(D), Month(D), Day(D)) If (Day(D) >= 1 And Month(D) >= 1) And (Day(D) <= 31 And Month(D) <= 3) Then Me.Results.BackColor = RGB(0, 255, 0) 'green ElseIf (Day(D) >= 1 And Month(D) >= 4) And (Day(D) <= 30 And Month(D) <= 6) Then Me.Results.BackColor = RGB(0, 0, 255) 'blue ElseIf (Day(D) >= 1 And Month(D) >= 7) And (Day(D) <= 30 And Month(D) <= 9) Then Me.Results.BackColor = RGB(255, 0, 0) 'red ElseIf (Day(D) >= 1 And Month(D) >= 10) And (Day(D) <= 31 And Month(D) <= 12) Then Me.Results.BackColor = RGB(0, 0, 0) 'black End If End Sub . جعفر ممكن علي المثال المرسل رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يونيو 21 مشاركة قام بنشر يونيو 21 تفضل ، الله يطول في عمرك 1611.البيان.accdb.zip رابط هذا التعليق شارك More sharing options...
zero1111330566 قام بنشر يونيو 21 الكاتب مشاركة قام بنشر يونيو 21 10 دقائق مضت, jjafferr said: تفضل ، الله يطول في عمرك 1611.البيان.accdb.zip 28.36 kB · 1 download جميل جدا بس انا عايز ينكتب فيفي مربع نص results الكلمه اخضر او ازرق مش تتلون بلون رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر يونيو 21 أفضل إجابة مشاركة قام بنشر يونيو 21 عندك الكود ، واعمل هذا التغيير : بدل Me.Results.BackColor = RGB(0, 255, 0) 'green اكتب Me.Results = "اخضر" . وهكذا مع بقية الشروط 1 رابط هذا التعليق شارك More sharing options...
zero1111330566 قام بنشر يونيو 21 الكاتب مشاركة قام بنشر يونيو 21 28 دقائق مضت, jjafferr said: عندك الكود ، واعمل هذا التغيير : بدل Me.Results.BackColor = RGB(0, 255, 0) 'green اكتب Me.Results = "اخضر" . وهكذا مع بقية الشروط ولو عايز ادخل تاريخ بدل الكلمه ممكن الكود اسف لوقتك وشاكر جدا لمجهودك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان