تعديل على هذا الكود

Private Sub BirthDate_LostFocus()
EWorkDate = DateAdd("yyyy", 60, [BirthDate])
Dim DGP As Integer
Dim MGP As Integer
Dim YGP As Integer
Call EndWork(Me.BWorkDate, Me.EWorkDate, DGP, MGP, YGP)
Me.CWorkDate = YGP & " سنه " & " æ " & MGP & " يوم" & " æ " & DGP & " شهر "
Me.ZXY = YGP
Me.ZXM = MGP
Me.ZXD = DGP

If Me.EWorkDate > Date Then
Me.Status = "لازال على راس العمل"
Else
Me.Status = "متقاعد"
End If
End Sub

ارجو التعديل على هذا الكود اخذته من احد الاخوان بموقعكم المصون في حال وصل سن التقاعد يضيف متقاعد الى حقل اخر

حيث يوجد لدي مربع تحرير وسرد اسمه vizites في جدول visitوفيه قيمتين فقط زيارة داخلية وزيارة خارجية والمطلوب بعد اختيار قيمة زيارة خارجية يعدل قيمة حقل مربع تحرير وسرد اخراسمه  Caseالى زيارة خارجية في جدول اخر اسمهalnzeel

والنموذج A مصدر بياناته جدول alnzeel ويحوي نموذج فرعي مصدر بياناته جدول visit  والجدولين مرتبطين علاقة راس باطراف