تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تنبيهات حسب التاريخ
#1
ارجو منكم اخواني المساعدة. اريد لما اضغط على الداتاجريد و تظهر البيانات بالتاكسات بوكس
اذا كان تاريخ الصنف اليوم ينكتب بالتاكست بكس 4 عبارة ( التاريخ اليوم و يكون لونها التاكست بكس 4 أصفر )
اذا كان تاريخ الصنف ما زال أكثر من 3 أيام ينكتب بالتاكست بكس 4 عبارة ( سينتهي بعد كذا عدد الأيام  و يكون لون التاكست بكس 4 أخضر )
اذا كان تاريخ الصنف بقي له فقط 3 أيام ينكتب بالتاكست بكس 4 عبارة ( سينتهي بعد 3 أيام و يكون لون التاكست بكس 4 برتقالي )
اذا كان تاريخ الصنف قد فات ينكتب بالتاكست بكس 4 عبارة ( التاريخ منتهي و يكون لونها التاكست بكس 4 أحمر )
بارك الله فيكم اخواني


الملفات المرفقة
.zip   WindowsApplication1.zip (الحجم : 101.39 ك ب / التحميلات : 6)
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
تفضل اخي محمد هذا المثال كما طلبت عدل الكود للاسماء التي لديك


الملفات المرفقة
.rar   AlarmDateFinishExp.rar (الحجم : 77.43 ك ب / التحميلات : 21)
الرد
تم الشكر بواسطة: محمد خيري , Rabeea Qbaha , الرائد
#3
الله يبارك فيك اخي ابراهيم عمل رائع الله يجازيك كل خير.فقط اخي ابراهيم لو كان ممكن في حالة ( بقي أكثر من 3 أيام ) هل ممكن اخي ابراهيم كتابة عدد الايام بالضبط مثلا بدل ما تنكتب بالتاكست بكس 4 بقي أكثر من 3 أيام تنكتب بقي على الانتهاء مثلا 45 يوم أو 65 يوم او 89 يوم كمثال . و اذا ما في امكانية لعمل ذلك ساعتبر ان مثالك يبقى حل ولا اروع.بارك الله فيك


الملفات المرفقة
.zip   WindowsApplication2.zip (الحجم : 103.49 ك ب / التحميلات : 1)
الرد
تم الشكر بواسطة: asemshahen5 , الرائد , الرائد
#4
السلام عليكم اخي محمد 
والله لاداعي لها اما ان احببت فعليك انشاء كود الفرق بين تاريخين بالايام
الرد
تم الشكر بواسطة: محمد خيري , asemshahen5 , الرائد
#5
رايك يهمني اخي ابراهيم كفيت ووفيت و ما قصرت و الله يبارك فيك ان شاء الله.
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#6
اخي محمد حتى لايبق بنفسك منها شيئ 
عدل الكود الى هذا الكود
 
كود :
Private Sub Dgv_Table_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dgv_Table.SelectionChanged
       Txt_ExpItems.Text = ""
       If Dgv_Table.CurrentRow.Cells("Item_Exp").Value < Datnow Then
           Txt_ExpItems.Text = "انتهت صلاحية هذه المادة"
           Txt_ExpItems.BackColor = Color.Red
       ElseIf Dgv_Table.CurrentRow.Cells("Item_Exp").Value = Datnow Then
           Txt_ExpItems.Text = "اليوم تنتهي صلاحية هذه المادة"
           Txt_ExpItems.BackColor = Color.Yellow
       ElseIf Dgv_Table.CurrentRow.Cells("Item_Exp").Value = Datnow.AddDays(1) Then
           Txt_ExpItems.Text = "باقي يوم على انتهاء الصلاحية"
           Txt_ExpItems.BackColor = Color.Gold
       ElseIf Dgv_Table.CurrentRow.Cells("Item_Exp").Value = Datnow.AddDays(2) Then
           Txt_ExpItems.Text = "باقي يومان على انتهاء الصلاحية"
           Txt_ExpItems.BackColor = Color.Gold
       ElseIf Dgv_Table.CurrentRow.Cells("Item_Exp").Value = Datnow.AddDays(3) Then
           Txt_ExpItems.Text = "باقي 3 ايام على انتهاء الصلاحية"
           Txt_ExpItems.BackColor = Color.Gold
       Else
           Dim Firstdate As Date = Now
           Dim Seconddate As Date = CDate(Dgv_Table.CurrentRow.Cells("Item_Exp").Value)
           Dim kk As String = DateDiff(DateInterval.Day, Seconddate, Firstdate)
           Txt_ExpItems.Text = " باقي على صلاحية هذه المادة" & (kk * -1) & "يوم"
           Txt_ExpItems.BackColor = Color.Green
       End If

   End Sub

الرد
تم الشكر بواسطة: محمد خيري , Rabeea Qbaha , Rabeea Qbaha , asemshahen5
#7
الهي يرضى عليك و يبارلك لك بجميع امورك يا طيب يا اصيل.كلو تمام جزاك الله خيرا اخي ابراهيم
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#8
الحمد لله والشكر لله
ولك اضعاف ماتمنيته لي اخي محمد بارك الله فيك
الرد
تم الشكر بواسطة: asemshahen5 , محمد خيري



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم