[alshandodi]

السلام عليكم اخوتي الأعزاء لدي هذه المشكله وهي حفظ التاريخ فارغ ولكم جزيل الشكر والتقدير
   

[معاند الحظ]

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

[alshandodi]

كود :

           Cmd.Parameters.AddWithValue("@DTP_Expiry", DTP_Expiry.Value)

هذا البارميتر الذي اضعه لحفظ التاريخ 


وهذا الأعدادات في الأكسس
   

[rochdi191]

ارفع المشروع لمراجعته ومعرفة الخلل اين

[alshandodi]

هذا المثال بارك الله فيك اتمنى طلباتي واضحه

[معاند الحظ]

يا اخي حملت مشروعك وغلته بدون وجود اخطاء
ياليت توضح قصدك بحفظ تاريخ فارغ

[rochdi191]

(27-05-20, 04:48 PM)alshandodi كتب : هذا المثال بارك الله فيك اتمنى طلباتي واضحه

تم تعديل
والبرنامج يحفظ التاريخ الان

[alshandodi]

اخوتي الاعزاء اقصد حفظ التاريخ فارغ عندما يكون تشيك بوكس فولس

[اسامه الهرماوي]

وعليكم السلام...
تفضل:

كود :

 If CheckBox1.Checked = False Then
           .Parameters.AddWithValue("@التاريخ", SqlDbType.NVarChar).Value = DBNull.Value
       Else
           .Parameters.AddWithValue("@التاريخ", SqlDbType.NVarChar).Value = DateTimePicker1.Value.Date
       End If

أو يمكنك وضع كود الحفظ إذا لم تستطع التنفيذ وسيت باذن الله تعديله.

[معاند الحظ]

استبدل الاجرائين Insert_Table1 و Update_Table1 لديك بالتالي

كود :

 Public Sub Insert_Table1()
        Dim Cmd As New OleDbCommand
        With Cmd
            .Connection = con
            .CommandType = CommandType.Text
            .CommandText = "Insert Into Table1 (Dtp_ex,Dtp_CH)values(@Dtp_ex,@Dtp_CH)"
            .Parameters.Clear()

            If Dtp_ex.Checked Then
                .Parameters.AddWithValue("@Dtp_ex", Dtp_ex.Value.ToString("yyyy/MM/dd"))
            Else
                .Parameters.AddWithValue("@Dtp_ex", DBNull.Value)

            End If

            .Parameters.AddWithValue("@Dtp_CH", Dtp_ex.Checked)

        End With
        If con.State = 1 Then con.Close()
        con.Open()
        Cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")
        Cmd = Nothing
    End Sub

    Public Sub Update_Table1()
        Dim Cmd As New OleDbCommand
        With Cmd
            .Connection = con
            .CommandType = CommandType.Text
            .CommandText = "Update Table1 Set Dtp_ex = @Dtp_ex,Dtp_CH = @Dtp_CH Where ID = @ID"
            .Parameters.Clear()

            If Dtp_ex.Checked Then
                .Parameters.AddWithValue("@Dtp_ex", Dtp_ex.Value.ToString("yyyy/MM/dd"))
            Else
                .Parameters.AddWithValue("@Dtp_ex", DBNull.Value)

            End If


            .Parameters.AddWithValue("@Dtp_CH", Dtp_ex.Checked)
            .Parameters.AddWithValue("@ID", TextBox1.Text)
        End With
        If con.State = 1 Then con.Close()
        con.Open()
        Cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("تم تعديل السجل بنجاح", MsgBoxStyle.Information, "تعديل")
        Cmd = Nothing
    End Sub