[elgokr]

السبب يرجع الى القيمة هنا

كود :

row.Cells("Nom").Value

تاكد بان Nom اذا كان رقم ولا يقبل ان يكون فارغ

ان يكون القيمة هنا 

كود :

row.Cells("Nom").Value

هو رقم صحيح وكذلك ليس فارغ

يمكنك عمل زر للاختبار وتضع به هذا الكود

كود :

       For Each row As DataGridViewRow In DGView.Rows
           MsgBox(row.Cells("Nom").Value)
       Next

وتقوم بتعبئة الداتا جريد

وبدلاً من عمل الحفظ تقوم بالضغط على هذا الزر

وتري فى كل مرة يظهر رسالة هل تحتوى على اى منهم رسالة فارغة

واذا كان الاجابة نعم وهى تخص الرسالة الاخيرة مثلاً

فكل ما عليك ان تقوم باستبدال كود الحفظ بهذا الكود

كود :

       For Each row As DataGridViewRow In DGView.Rows
           If row.Cells("Nom").Value IsNot Nothing Then
               Using Then cmd As New OleDbCommand("INSERT INTO Emp (nom,NCompte,Cle,MontApayer) VALUES(@Nom, @Compte,  @Cle, @Montant)", cn)
               cmd.Parameters.AddWithValue("@Nom", row.Cells("Nom").Value)
                   cmd.Parameters.AddWithValue("@Compte", row.Cells("Compte").Value)
                   cmd.Parameters.AddWithValue("@Cle", row.Cells("Cle").Value)
                   cmd.Parameters.AddWithValue("@Montant", row.Cells("Montant").Value)
                   cn.Open()
                   cmd.ExecuteNonQuery()
                   cn.Close()
               End Using
           End If
       Next

أو تطبيق هذا الاعدادات فى الداتا جريد

وهو تعطيل الاضافة بعدم تنشيط Enable Adding

تحياتى لك

وتمنياتى لك التوفيق