اصولی ترین کاری که میتونید بکنید اینه:
1. جدول time شما هیچ وقت نباید بیشتر از یک رکورد داشته باشه بنابراین خصوصیت Allow Additions و Allow Deletions فرم tanzim رو برابر no بذارید تا کاربر فقط بتونه عدد 10 رو تغییر بده و امکان حذف و اضافه کردن رکورد نداشته باشه.
2. شما در نمونه ای که در پست قبل قرار دادید باز هم کدهای فرمت بندی رو در رویداد form_current قرار دادید. در صورتی که در پستهای قبلی خدمتتون عرض کردم که بهتره این کدها رو در رویداد form_load قرار بدید. وقتی در form_current قرار بدید به همون دلیلی که قبلا عرض شد شما شاهد یک پرش و تیک خواهید بود که با بیشتر شدن اطلاعات بیشتر هم خواهد شد. بنابراین باز هم توصیه میکنم کدها رو بصورت زیر استفاده کنید.
3. کدهای زیر رو در رویداد form_load قرار بدید:
Dim days As Integer
days = DFirst("s", "time")
Me.shomare.FormatConditions.Delete
Me.shomare.FormatConditions.Add acExpression, , "IIf(Diff([date],Shamsi())>" & days & ",IIf([elan]=False,IIf([sehat]=False,True,False),False),False)"
Me.shomare.FormatConditions(0).BackColor = RGB(255, 0, 0)
با ابن کد آخرین عددی که کاربر بعنوان تعداد روز در جدول time تعیین کرده مبنای محاسبه قرار میگیره. چه فرم tanzim باز باشه چه نباشه...
پاسخ با نقل قول