alfaaleh

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

1 مشاركة في هذا الموضوع

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  والجدولين مرتبطين علاقة راس باطراف

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .