البرنامج لا يقوم بالتسجيل الا إذا تم تعبئة كل الخانات

هذاكود رز الحفظ يعمل بنجاج

لكن

للاسف فهو لايقوم بالحفظ لا اذا تم تعبئة جميع الخانات

وانا في بعض الحالات لا احتاج لتعبئة كل الخانات

و الخانات هي الخاصة بالمواد 7 و 8 كما هي مصنفة في الكود بالاسفل

هل من حل لأجعله لا يعطي رسالة خطأ ويسجل المعلومات الموجودة في الخانات التي تحتوي معلومات فقط و يتجاهل الخانات الفارغة

الكود هو

Try
        	Dim con As New OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "/db4.accdb")
        	Dim cmd As New OleDbCommand("insert into CahierJournal4(DateDuJour,Houre1,Matiere1,Leçon1,EtapesOuCompetances1 ,CurriculumNum1, Houre2,Matiere2,Leçon2,EtapesOuCompetances2 ,CurriculumNum2, Houre3,Matiere3,Leçon3,EtapesOuCompetances3,CurriculumNum3,Houre4,Matiere4,Leçon4,EtapesOuCompetances4 ,CurriculumNum4,Houre5,Matiere5,Leçon5,EtapesOuCompetances5 ,CurriculumNum5, Houre6,Matiere6,Leçon6,EtapesOuCompetances6 ,CurriculumNum6,Houre7,Matiere7,Leçon7,EtapesOuCompetances7 ,CurriculumNum7,Houre8,Matiere8,Leçon8,EtapesOuCompetances8 ,CurriculumNum8,  Observation1,Observation2,Visiteur) values (?,?,?,?,?,?,?,?,?,?  ,?,?,?,?,?,?,?,?,?,?   ,?,?,?,?,?,?,?,?,?,?  ,?,?,?,?,?,?,?,?,?,?  ,?,?,?,?)", con)

        	cmd.Parameters.Clear()
        	cmd.Parameters.AddWithValue("@DateDuJour", Trim(DateTimePickerDate.Text))
        	'المادة 1
        	cmd.Parameters.AddWithValue("@Houre1", Trim(TxtHoure1.Text))
        	cmd.Parameters.AddWithValue("@Matiere1", Trim(ComboMatiere1.Text))
        	cmd.Parameters.AddWithValue("@Leçon1", Trim(ComboLeçon1.Text))
        	cmd.Parameters.AddWithValue("@EtapesOuCompetances1", Trim(ComboEtapes1.Text))
        	cmd.Parameters.AddWithValue("@CurriculumNum1", Trim(TxtCurriculum1.Text))
        	'المادة 2
        	cmd.Parameters.AddWithValue("@Houre2", Trim(TxtHoure2.Text))
        	cmd.Parameters.AddWithValue("@Matiere2", Trim(ComboMatiere2.Text))
        	cmd.Parameters.AddWithValue("@Leçon2", Trim(ComboLeçon2.Text))
        	cmd.Parameters.AddWithValue("@EtapesOuCompetances2", Trim(ComboEtapes2.Text))
        	cmd.Parameters.AddWithValue("@CurriculumNum2", Trim(TxtCurriculum2.Text))
        	'المادة 3
        	cmd.Parameters.AddWithValue("@Houre3", Trim(TxtHoure3.Text))
        	cmd.Parameters.AddWithValue("@Matiere3", Trim(ComboMatiere3.Text))
        	cmd.Parameters.AddWithValue("@Leçon3", Trim(ComboLeçon3.Text))
        	cmd.Parameters.AddWithValue("@EtapesOuCompetances3", Trim(ComboEtapes3.Text))
        	cmd.Parameters.AddWithValue("@CurriculumNum3", Trim(TxtCurriculum3.Text))
        	'المادة 4
        	cmd.Parameters.AddWithValue("@Houre4", Trim(TxtHoure4.Text))
        	cmd.Parameters.AddWithValue("@Matiere4", Trim(ComboMatiere4.Text))
        	cmd.Parameters.AddWithValue("@Leçon4", Trim(ComboLeçon4.Text))
        	cmd.Parameters.AddWithValue("@EtapesOuCompetances4", Trim(ComboEtapes4.Text))
        	cmd.Parameters.AddWithValue("@CurriculumNum4", Trim(TxtCurriculum4.Text))
        	'المادة 5
        	cmd.Parameters.AddWithValue("@Houre5", Trim(TxtHoure5.Text))
        	cmd.Parameters.AddWithValue("@Matiere5", Trim(ComboMatiere5.Text))
        	cmd.Parameters.AddWithValue("@Leçon5", Trim(ComboLeçon5.Text))
        	cmd.Parameters.AddWithValue("@EtapesOuCompetances5", Trim(ComboEtapes5.Text))
        	cmd.Parameters.AddWithValue("@CurriculumNum5", Trim(TxtCurriculum5.Text))
        	'المادة 6)
        	cmd.Parameters.AddWithValue("@Houre6", Trim(TxtHoure6.Text))
        	cmd.Parameters.AddWithValue("@Matiere6", Trim(ComboMatiere6.Text))
        	cmd.Parameters.AddWithValue("@Leçon6", Trim(ComboLeçon6.Text))
        	cmd.Parameters.AddWithValue("@EtapesOuCompetances6", Trim(ComboEtapes6.Text))
        	cmd.Parameters.AddWithValue("@CurriculumNum6", Trim(TxtCurriculum6.Text))
        	'المادة 7)
        	cmd.Parameters.AddWithValue("@Houre7", Trim(TxtHoure7.Text))
        	cmd.Parameters.AddWithValue("@Matiere7", Trim(ComboMatiere7.Text))
        	cmd.Parameters.AddWithValue("@Leçon7", Trim(ComboLeçon7.Text))
        	cmd.Parameters.AddWithValue("@EtapesOuCompetances7", Trim(ComboEtapes7.Text))
        	cmd.Parameters.AddWithValue("@CurriculumNum7", Trim(TxtCurriculum7.Text))
        	'المادة 8
        	cmd.Parameters.AddWithValue("@Houre8", Trim(TxtHoure8.Text))
        	cmd.Parameters.AddWithValue("@Matiere8", Trim(ComboMatiere8.Text))
        	cmd.Parameters.AddWithValue("@Leçon8", Trim(ComboLeçon8.Text))
        	cmd.Parameters.AddWithValue("@EtapesOuCompetances8", Trim(ComboEtapes8.Text))
        	cmd.Parameters.AddWithValue("@CurriculumNum8", Trim(TxtCurriculum8.Text))

        	cmd.Parameters.AddWithValue("@Observation1", Trim(TxtObservation1.Text))
        	cmd.Parameters.AddWithValue("@Observation2", Trim(TxtObservation2.Text))

        	cmd.Parameters.AddWithValue("@Visiteur", Trim(TxtVisiteur.Text))
        	con.Open()
        	cmd.ExecuteNonQuery()
        	con.Close()
        	MsgBox("تم الحفظ بنجاح تام")
        	Effacer()

        	Dim form As New FormCahierJournal
        	form.Show()
        	Me.Hide()
    	Catch ex As Exception
        	MsgBox(ex.Message)

        	Return
    	End Try