تغییر تصویر با تغییر بازه تاریخ

سلام

If (Now() - Me.ExpiredDate <= 15 And Now() - Me.ExpiredDate >= 0) Then    Me.RedTag.Visible = True

ElseIf (Now() - Me.ExpiredDate > 15) And (Now() - Me.ExpiredDate <= 30) Then

Me.OrangeTag.Visible = True

Else

Me.GreenTag.Visible = True

End If

همونطور که در کد میبینید ،میخوام درصورتی که تاریخ زیر 15 باشه یک تصویر رو visible کنم حالت دوم بین 15 تا 30 یک تصویر دیگه و در غیر اینصورت تصویر سوم...
منتها در هر حالت فقط شرط سوم اجرا میشه
ممنون میشم راهنمایی کنید

نقل قول:

---

نوشته شده توسط Milad_ATM

سلام

If (Now() - Me.ExpiredDate <= 15 And Now() - Me.ExpiredDate >= 0) Then    Me.RedTag.Visible = True

ElseIf (Now() - Me. > 15) And (Now() - Me.ExpiredDate <= 30) Then

Me.OrangeTag.Visible = True

Else

Me.GreenTag.Visible = True

End If

همونطور که در کد میبینید ،میخوام درصورتی که تاریخ زیر 15 باشه یک تصویر رو visible کنم حالت دوم بین 15 تا 30 یک تصویر دیگه و در غیر اینصورت تصویر سوم...
منتها در هر حالت فقط شرط سوم اجرا میشه
ممنون میشم راهنمایی کنید

---

سلام
اول بگو در برنامه ات از تاریخ میلادی استفاده می کنید که تاریخ ExpiredDate را از زمان فعلی Now() کم کرده اید ؟

بله ، به این شکل هست :
ضمیمه 152232

نقل قول:

---

نوشته شده توسط Milad_ATM

بله ، به این شکل هست :
ضمیمه 152232

---

برای کسر دو تاریخ باید هر دو بصورت عددی باشند .در تصویر تاریخ ExpiredDate بصورت حروف است . که اول این تاریخ حروفی باید به تاریخ عددی تبدیل شود .
بفرما که این تاریخ رو به چه صورتی وارد تکست باکس فوق می کنید و فرمت آن به چه صورتی است ؟

فرمت :
ضمیمه 152236

نحوه ورود تاریخ به تکست باکس:

Me.ExpiredDate = Me.CalibrationDate2 + Me.CalibrationPeriod2

در واقع با تغییر بازه میخوام این تگ که بصورت تصویر هست تغییر کنه :
ضمیمه 152237
مرسی

If (Now() - Me.ExpiredDate <= 15 And Now() - Me.ExpiredDate >= 0) Then Me.RedTag.Visible = True
ElseIf (Now() - Me. > 15) And (Now() - Me.ExpiredDate <= 30) Then
Me.OrangeTag.Visible = True
Else
Me.GreenTag.Visible = True
End If

خط دوم چرا بعد از me. چیزی نیست؟؟

ElseIf (Now() - Me. > 15) And (Now() - Me.ExpiredDate <= 30) Then

تکلیف کد false هم تعریف کنید که بقیه باتن ها رو غیر فعال کنه . یعنی اگر یکی true باشه دو تای دیگه falseبشه

Me.RedTag.Visible = false
Me.OrangeTag.Visible = false
Me.GreenTag.Visible = false

فایل نمونه رو ملاحظه بفرمایید.

نقل قول:

---

نوشته شده توسط padide55

فایل نمونه رو ملاحظه بفرمایید.

---

آفرین به padide55 :تشویق:
چون قرار است بصورت اتوماتیک این تغییر تصویر انجام شود بهتره این کدها در رویداد Form_Timer با مقدار مثلاً 1000 برای TimerInterval باشد و برای جلوگیری از پرش تصویر در رویداد فوق شرط مخفی بودن تصویری که قرار است آشکار شود اضافه شود

Private Sub Form_Timer()

Dim rooz As String

 rooz = DateDiff("d", Date, [expiredDate])

If rooz >= 0 And rooz <= 15 And Me.RedTag.Visible = False Then

   Me.RedTag.Visible = True

   Me.OrangeTag.Visible = False

   Me.GreenTag.Visible = False

ElseIf rooz > 15 And rooz <= 30 And Me.OrangeTag.Visible = False Then

   Me.OrangeTag.Visible = True

   Me.RedTag.Visible = False

   Me.GreenTag.Visible = False

ElseIf rooz > 30 And Me.GreenTag.Visible = False Then

   Me.GreenTag.Visible = True

   Me.OrangeTag.Visible = False

   Me.RedTag.Visible = False

End If

End Sub

ضمن تشرک از دوستان بخصوص Padide55 ،فایل شما بدرستی کاری که مد نظر من بود انجام میده
اما در فایل خودم که پیوست هست درست کار نمیکنه

http://s15.picofile.com/file/8409903418/1.rar.html
- البته لازم به توضیح هست که پس از آپدیت Combo اول ،دوم و سوم به ترتیب با کدی که روی AfterUpdate ،مورد سوم هست تغییرات باید اتفاق اعمال بشه

نقل قول:

---

نوشته شده توسط Milad_ATM

ضمن تشرک از دوستان بخصوص Padide55 ،فایل شما بدرستی کاری که مد نظر من بود انجام میده
اما در فایل خودم که پیوست هست درست کار نمیکنه

http://s15.picofile.com/file/8409903418/1.rar.html
- البته لازم به توضیح هست که پس از آپدیت Combo اول ،دوم و سوم به ترتیب با کدی که روی AfterUpdate ،مورد سوم هست تغییرات باید اتفاق اعمال بشه

---

مشکل شما در جمع کردن روز با تاریخ هست . شما به یک تاریخ خاص میخواید مثلا 365 روز اضاف کنید . بعد تاریخ مورد نظر میشه تاریخ انقضا .
فرمول اضافه نمودن روز به تاریخ (Me.ExpiredDate) رو اشتباه نوشتید .


این خط رو اصلاح کنید


Me.ExpiredDate = DateAdd("d", [CalibrationPeriod2], CalibrationDate2)

یک فیلد هم کنار باتن های رنگی ایجاد کنید که مقدار روز رو ببینید . یعنی مقدار rooz در فیلد fieldrooz بشینه که شما ببینید چه مقدار هست .اینجوری بصورت چشمی هم عدد متناظر با رنگ رو میبینید .

Dim rooz As String
rooz = DateDiff("d", Date, [expiredDate])
me.fieldrooz=rooz

و ادامه کدهای