تصحيج كود مسح عدد كبير من الكومبو بكس

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

اخي ما عليك الا اضافة Control بعد الـ Me على النحو التالي Me.Controls

جزاك الله خيرا

ولي سوال آخر عفاك الله واصلح اهلك و ابناءك وادخل و الديك الجنة

هذا الكود

والبيانات في قاعدة من نوع

memo

هل يصلح معها نوع البيانات في هذه الجملة varchar

cmd.Parameters.AddWithValue("@Visiteur", OleDbType.VarChar).Value = Trim(TxtVisiteur.Text)

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

اخي جرب الكود التالي

cmd.Parameters.AddWithValue("@Visiteur",Trim(TxtVisiteur.Text))

وانصح بفتح موضوع مستقل اذا كان سؤالك غير متعلق بالسؤال الاصلي .. بالتوفيق ..

هذا كود الزر كاملا

كما ترى ان اغير كل السطور امر شاق

هل ينفع ان اغير هذا السطر لوحده

بالنسبة لموضوع جديد رصيدي لا يسمح ان اضع اكثر من موضوع في اليوم

    	cmd.Parameters.Clear()

    	' cmd.Parameters.AddWithValue("@N", OleDbType.UnsignedTinyInt).Value = Trim(TxtN.Text)
    	cmd.Parameters.AddWithValue("@DateDuJour", OleDbType.VarChar).Value = Trim(DateTimePickerDate.Text)
    	'المادة 1
    	cmd.Parameters.AddWithValue("@Houre1", OleDbType.VarChar).Value = Trim(TxtHoure1.Text)
    	cmd.Parameters.AddWithValue("@Matiere1", OleDbType.VarChar).Value = Trim(ComboMatiere1.Text)
    	cmd.Parameters.AddWithValue("@Leçon1", OleDbType.VarChar).Value = Trim(ComboLeçon1.Text)
    	cmd.Parameters.AddWithValue("@EtapesOuCompetances1", OleDbType.VarChar).Value = Trim(ComboMatiere1.Text)
    	cmd.Parameters.AddWithValue("@CurriculumNum1", OleDbType.UnsignedTinyInt).Value = Trim(TxtCurriculum1.Text)
    	'المادة 2
    	cmd.Parameters.AddWithValue("@Houre2", OleDbType.VarChar).Value = Trim(TxtHoure2.Text)
    	cmd.Parameters.AddWithValue("@Matiere2", OleDbType.VarChar).Value = Trim(ComboMatiere2.Text)
    	cmd.Parameters.AddWithValue("@Leçon2", OleDbType.VarChar).Value = Trim(ComboLeçon1.Text)
    	cmd.Parameters.AddWithValue("@EtapesOuCompetances2", OleDbType.VarChar).Value = Trim(ComboMatiere2.Text)
    	cmd.Parameters.AddWithValue("@CurriculumNum2", OleDbType.UnsignedTinyInt).Value = Trim(TxtCurriculum2.Text)
    	'المادة 3
    	cmd.Parameters.AddWithValue("@Houre3", OleDbType.VarChar).Value = Trim(TxtHoure3.Text)
    	cmd.Parameters.AddWithValue("@Matiere3", OleDbType.VarChar).Value = Trim(ComboMatiere3.Text)
    	cmd.Parameters.AddWithValue("@Leçon3", OleDbType.VarChar).Value = Trim(ComboLeçon3.Text)
    	cmd.Parameters.AddWithValue("@EtapesOuCompetances3", OleDbType.VarChar).Value = Trim(ComboMatiere3.Text)
    	cmd.Parameters.AddWithValue("@CurriculumNum3", OleDbType.UnsignedTinyInt).Value = Trim(TxtCurriculum3.Text)
    	'المادة 4
    	cmd.Parameters.AddWithValue("@Houre4", OleDbType.VarChar).Value = Trim(TxtHoure4.Text)
    	cmd.Parameters.AddWithValue("@Matiere4", OleDbType.VarChar).Value = Trim(ComboMatiere4.Text)
    	cmd.Parameters.AddWithValue("@Leçon4", OleDbType.VarChar).Value = Trim(ComboLeçon4.Text)
    	cmd.Parameters.AddWithValue("@EtapesOuCompetances4", OleDbType.VarChar).Value = Trim(ComboMatiere4.Text)
    	cmd.Parameters.AddWithValue("@CurriculumNum4", OleDbType.UnsignedTinyInt).Value = Trim(TxtCurriculum4.Text)
    	'المادة 5
    	cmd.Parameters.AddWithValue("@Houre5", OleDbType.VarChar).Value = Trim(TxtHoure5.Text)
    	cmd.Parameters.AddWithValue("@Matiere5", OleDbType.VarChar).Value = Trim(ComboMatiere5.Text)
    	cmd.Parameters.AddWithValue("@Leçon5", OleDbType.VarChar).Value = Trim(ComboLeçon5.Text)
    	cmd.Parameters.AddWithValue("@EtapesOuCompetances5", OleDbType.VarChar).Value = Trim(ComboMatiere5.Text)
    	cmd.Parameters.AddWithValue("@CurriculumNum5", OleDbType.UnsignedTinyInt).Value = Trim(TxtCurriculum5.Text)
    	'المادة 6
    	cmd.Parameters.AddWithValue("@Houre6", OleDbType.VarChar).Value = Trim(TxtHoure6.Text)
    	cmd.Parameters.AddWithValue("@Matiere6", OleDbType.VarChar).Value = Trim(ComboMatiere6.Text)
    	cmd.Parameters.AddWithValue("@Leçon6", OleDbType.VarChar).Value = Trim(ComboLeçon6.Text)
    	cmd.Parameters.AddWithValue("@EtapesOuCompetances6", OleDbType.VarChar).Value = Trim(ComboMatiere6.Text)
    	cmd.Parameters.AddWithValue("@CurriculumNum6", OleDbType.UnsignedTinyInt).Value = Trim(TxtCurriculum6.Text)
    	'المادة 7
    	cmd.Parameters.AddWithValue("@Houre7", OleDbType.VarChar).Value = Trim(TxtHoure7.Text)
    	cmd.Parameters.AddWithValue("@Matiere7", OleDbType.VarChar).Value = Trim(ComboMatiere7.Text)
    	cmd.Parameters.AddWithValue("@Leçon7", OleDbType.VarChar).Value = Trim(ComboLeçon7.Text)
    	cmd.Parameters.AddWithValue("@EtapesOuCompetances7", OleDbType.VarChar).Value = Trim(ComboMatiere7.Text)
    	cmd.Parameters.AddWithValue("@CurriculumNum7", OleDbType.UnsignedTinyInt).Value = Trim(TxtCurriculum7.Text)
    	'المادة 8
    	cmd.Parameters.AddWithValue("@Houre8", OleDbType.VarChar).Value = Trim(TxtHoure8.Text)
    	cmd.Parameters.AddWithValue("@Matiere8", OleDbType.VarChar).Value = Trim(ComboMatiere8.Text)
    	cmd.Parameters.AddWithValue("@Leçon8", OleDbType.VarChar).Value = Trim(ComboLeçon8.Text)
    	cmd.Parameters.AddWithValue("@EtapesOuCompetances8", OleDbType.VarChar).Value = Trim(ComboMatiere8.Text)
    	cmd.Parameters.AddWithValue("@CurriculumNum8", OleDbType.UnsignedTinyInt).Value = Trim(TxtCurriculum8.Text)
    	'المادة 9
    	cmd.Parameters.AddWithValue("@Houre9", OleDbType.VarChar).Value = Trim(TxtHoure9.Text)
    	cmd.Parameters.AddWithValue("@Matiere9", OleDbType.VarChar).Value = Trim(ComboMatiere9.Text)
    	cmd.Parameters.AddWithValue("@Leçon9", OleDbType.VarChar).Value = Trim(ComboLeçon9.Text)
    	cmd.Parameters.AddWithValue("@EtapesOuCompetances9", OleDbType.VarChar).Value = Trim(ComboMatiere9.Text)
    	cmd.Parameters.AddWithValue("@CurriculumNum9", OleDbType.UnsignedTinyInt).Value = Trim(TxtCurriculum9.Text)
    	'المادة 10
    	cmd.Parameters.AddWithValue("@Houre10", OleDbType.VarChar).Value = Trim(TxtHoure10.Text)
    	cmd.Parameters.AddWithValue("@Matiere10", OleDbType.VarChar).Value = Trim(ComboMatiere10.Text)
    	cmd.Parameters.AddWithValue("@Leçon10", OleDbType.VarChar).Value = Trim(ComboLeçon10.Text)
    	cmd.Parameters.AddWithValue("@EtapesOuCompetances10", OleDbType.VarChar).Value = Trim(ComboMatiere10.Text)
    	cmd.Parameters.AddWithValue("@CurriculumNum10", OleDbType.UnsignedTinyInt).Value = Trim(TxtCurriculum10.Text)

    	cmd.Parameters.AddWithValue("@Observation1", OleDbType.VarChar).Value = Trim(TxtObservation1.Text)
    	cmd.Parameters.AddWithValue("@Observation2", OleDbType.VarChar).Value = Trim(TxtObservation2.Text)
    	'cmd.Parameters.AddWithValue("@Visiteur", OleDbType.VarChar).Value = Trim(TxtVisiteur.Text)

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

اخي بالتأكيد يمكنك تغيير هذا السطر فقط!!

جزاك الله خيرا

لقد اشتغل الكود الزر كاملا و الحمد لله

جزاك الله خيرا