شكرا كتير الكم ولكن هناك شى بسيط
Dim Timespn As TimeSpan = Now - Me.DateoffirstvisitDateTimePicker.Value
Dim Year As Integer = (Timespn.TotalDays \ 365.25)
(( MsgBox(Year + Val(AgeTextBox.Text.ToString
هذا الكود هو ما اريده ولكن القيمة تطبع فى رسالة ولا تتغير اريدها فقط تتغير فى خانة AgeTextBox بدون خروج رسالة
مع العلم قاعده البينات اكسس و age معمول رقم شكرا لكم كثيرا
يا اخوه ده الكود تمام اشتغل ولكن عندما اضغط على الزر مره اخرى يزيد العمر با الفارق اذا كان الفارق 2 سنة يرذه اول ضغطه وهذا ما اريده اذا ضغط مره اخرى يزيد 2 سنة مره اخرى وهذا لا اريده اريد زياده مره واحده وتتغير ما تغير الزمن
Dim Timespn As TimeSpan = Now - Me.DateoffirstvisitDateTimePicker.Value
Dim Year As Integer = (Timespn.TotalDays \ 365.25)
Me.AgeTextBox.Text += Year
نصيحة أخى الفاضل العمر لا يحفظ فى قاعدة البيانات لأنه يتغير باستمرار
العمر عبارة عن قيمة محسوبة يتم حسابها من خلال استعلام كلما احتجت اليه
(04-06-18, 10:01 PM)mrnooo2000 كتب : [ -> ]نصيحة أخى الفاضل العمر لا يحفظ فى قاعدة البيانات لأنه يتغير باستمرار
العمر عبارة عن قيمة محسوبة يتم حسابها من خلال استعلام كلما احتجت اليه
صحيح انا طلبت من صاحب العياده ياخد تاريخ الميلاد لكل حالة ويتم تخدزينها فى textboox مخفية وعملت زر تحدث العمر وسويتة age الى متصل بقاعدة البينات شكرا لك