Merhaba,

Formun geçerli olduğunda olayına aşağıdaki kodu ekleyiniz.

Dim GSure, GYas, GSKYil As Integer



' GYas: Kişinin Yaşı

' GSure: 45 yaşına kadar 5 yılda bir 45 - 55 yaşları arasında 3 yılda bir 55 yaşından büyükse 2 yılda bir

' GSKYil: Kontrol tarihinine göre geçen yıl sayısı



GYas = Abs(DateDiff("yyyy", [dogum_tarihi], Date)) - IIf(Format([dogum_tarihi], "mmddhhnnss") <= Format$(Date, "mmddhhnnss"), 0, 1)

GSure = IIf(GYas > 55, "2", IIf(GYas >= 45 And GYas <= 55, "3", "5"))



GSKYil = IIf(IsNull(Me.saglık_kontrol), "0", Abs(DateDiff("yyyy", [saglık_kontrol], Date)) - IIf(Format([saglık_kontrol], "mmddhhnnss") <= Format$(Date, "mmddhhnnss"), 0, 1))



If GSKYil = GSure Or GSKYil > GSure Then

    Me.saglık_kontrol.BackColor = vbRed

Else

    Me.saglık_kontrol.BackColor = vbWhite



End If

47 yaşındaki kişiye 18.10.2014 tarihini girerseniz formda bu kişiye ait kaydı açtığınızda kırmızı olacaktır. 
İşlem sadece saglık_kontrol metin kutusuna yapıldı. Diğer 2 metin kutusuna koda ekleme yaparak düzenlemelisiniz.