با سلام
فایل نمونه
شما میتوانید بک گراند فرم کانتینیوز خود را بر اساس دیتای وارد شده در فیلدها تغییر دهید
کد مربوطه
Private Sub Detail_Paint()
Dim lngcolor1 As Long, lngcolor2 As Long
Dim lngcolor3 As Long, lngcolor4 As Long
lngcolor1 = RGB(220, 220, 220)
lngcolor2 = RGB(225, 225, 225)
lngcolor3 = RGB(240, 240, 220)
lngcolor4 = RGB(245, 245, 225)
If selectedf = True Then
Detail.BackColor = RGB(255, 10, 10)
Detail.AlternateBackColor = RGB(255, 10, 10)
Else
If sabt = True Then
Detail.BackColor = lngcolor1
Detail.AlternateBackColor = lngcolor2
Else
Detail.BackColor = lngcolor3
Detail.AlternateBackColor = lngcolor4
End If
End If
End Sub
change backcolor of continuse form ms accees according to field value
Conditional Formatting form in ms access
پاسخ با نقل قول
