14-04-19, 12:23 AM
لدي اقتراح قد يساعدك اخي العزيز في سؤالك يمكنك اختيار تكست بوكس عادي واحد فقط بدلا من داتاتايم بيكر او الكومبوبوكس ولكن يجب عليك ان تضع كود فحص التاريخ في التكست بوكس اذا كان تاريخا او ليس تاريخ ان لم يكن تاريخ يجب كتابة التاريخ بالصيغة الصحيحة فمثلا هنالك شهور 30 يوم وشهور 31 وشهر شباط قد يكون 28 او 29 قبل الحفظ اكتب على اعتبار التكست بوكس الخاص بالتاريخ هو textbox1
if textbox1.text=nothing then
Else
If isdate(textbox1.text) then
Else msgbox("صيغة التاريخ خطأ")
Exit sub
End if
End if
اعتذر ان كانت هنالك اخطاء بالكود فانا اكتب من خلال الموبايل
if textbox1.text=nothing then
Else
If isdate(textbox1.text) then
Else msgbox("صيغة التاريخ خطأ")
Exit sub
End if
End if
اعتذر ان كانت هنالك اخطاء بالكود فانا اكتب من خلال الموبايل
