[issamsaidd]

شكرا كتير الكم ولكن هناك شى بسيط 

 Dim Timespn As TimeSpan = Now - Me.DateoffirstvisitDateTimePicker.Value
            Dim Year As Integer = (Timespn.TotalDays \ 365.25)
      (( MsgBox(Year + Val(AgeTextBox.Text.ToString

هذا الكود هو ما اريده ولكن القيمة تطبع فى رسالة ولا تتغير اريدها فقط تتغير فى خانة AgeTextBox بدون خروج رسالة 

مع العلم قاعده البينات اكسس و age معمول رقم شكرا لكم كثيرا 

[issamsaidd]

يا اخوه ده الكود تمام اشتغل ولكن عندما اضغط على الزر مره اخرى يزيد العمر با الفارق اذا كان الفارق 2 سنة يرذه اول ضغطه وهذا ما اريده اذا ضغط مره اخرى يزيد 2 سنة مره اخرى وهذا لا اريده اريد زياده مره واحده وتتغير ما تغير الزمن 

Dim Timespn As TimeSpan = Now - Me.DateoffirstvisitDateTimePicker.Value
        Dim Year As Integer = (Timespn.TotalDays \ 365.25)
            Me.AgeTextBox.Text += Year

[mrnooo2000]

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

[issamsaidd]

(04-06-18, 10:01 PM)mrnooo2000 كتب : نصيحة أخى الفاضل العمر لا يحفظ فى قاعدة البيانات لأنه يتغير باستمرار
العمر عبارة عن قيمة محسوبة يتم حسابها من خلال استعلام كلما احتجت اليه

صحيح انا طلبت من صاحب العياده ياخد تاريخ الميلاد لكل حالة ويتم تخدزينها فى textboox مخفية وعملت زر تحدث العمر وسويتة age الى متصل بقاعدة البينات شكرا لك