[mr_hso]

السلام عليكم ورحمة الله وبركاته
لدي مشروع فيجول بيسك 2015 بقاعدة بيانات اكسيس (منفصل)
واجهتني مشكلة ولم اجد لها حل وهى انني لدي حقل تاريخ (DateTimePicker) فى الفورم استطعت من خلال الكود التالي ان اجعله فارغ

PHP كود :

DateTimePicker1.Format = DateTimePickerFormat.Custom
        DateTimePicker1.CustomFormat = " " 


لكن واجهتنى مشكلة انه يحفظ التاريخ الحالي للنظام (تاريخ اليوم) بدلا من ان يحفظه فارغ
وللعلم انا استعمل هذا الكود للحفظ

PHP كود :

dt.Rows.Add()
            Dim pos As String = dt.Rows.Count - 1

 dt.Rows(pos).Item(7) = DateTimePicker1.Value.ToString 


وهذا الكود اضعه فى  DateTimePicker1_ValueChanged

PHP كود :

Private Sub DateTimePicker1_ValueChanged_1(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
        DateTimePicker1.Format = DateTimePickerFormat.Custom
        DateTimePicker1.CustomFormat = "dd/MM/yyyy"
    End Sub 


فهل من حل 
وشكراً

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

كمثال أخي الكريم لحفظ قيمة فارغة ..

كود :

 If String.IsNullOrEmpty(DateTimePicker1) Then
               .Parameters.AddWithValue("@DATE_SESSION", OleDbType.DateTime).Value = DBNull.Value
           Else
               .Parameters.AddWithValue("@DATE_SESSION", OleDbType.DateTime).Value = DateTimePicker1
           End If

تحياتي

[mr_hso]

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

[5000]

جرب هذا التعديل
if DateTimePicker1.CustomFormat = " " then
dt.Rows(pos).Item(7) = DBNull.Value
else
dt.Rows(pos).Item(7) = DateTimePicker1.Value.date
end if

[mr_hso]

(11-03-19, 01:41 AM)5000 كتب : جرب هذا التعديل
if DateTimePicker1.CustomFormat = " " then
dt.Rows(pos).Item(7) = DBNull.Value
else
dt.Rows(pos).Item(7) = DateTimePicker1.Value.date
end if

شكرا اخي بارك الله فيك