[ahmedfa71]

السلام عليكم ورحمة الله وبركاته أعضاء المنتدى
لدي جدول يحتوي على خمسة حقول
الرقم : مفتاح : القيمة نص 
الإسم واللقب : نص
رقم الحساب : رقم
مفتاح : رقم
المبلغ : رقم

عند تنفيذ الكود التالي

كود :

For Each row As DataGridViewRow In DGView.Rows
           Using 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
       Next

بضهر الخطأ التالي
لا يمكن أن يحتوي الفهرس أو المفتاح الأساسي على قيمة خالية (Null).
فكيف يمكن معالجة هذا الخطأ بارك الله فيكم

[elgokr]

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

الرقم : مفتاح : القيمة نص

اجعله ترقيم تلقائي ( AutoNumber )

تحياتى لك

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

[ahmedfa71]

السلام عليكم ورحمة الله وبركاته 
شكرا لك أخي elgokr على الرد
فعلا أخي عند جعل خاصية الرقم ترقيم تلقائي ( AutoNumber )
تمت عملية الحفظ ولكن بضهور خطأ ثاني 
لا توجد للمعلمة @Nom قيمة افتراضية.
مع العلم أنني لا أريد للرقم أن يكون AutoNumber 
وبارك الله فيكم 

مع العلم في عملية من الفورم textbox تتم العملية بنجاح مع أن الرقم ليس ترقيم تلقائي 
كمايلي في الكود أدناه

كود :

Private Sub NemID()
       Dim N As Integer
       cn.Open()
       cmd.CommandText =
       <sql>
                   SELECT
                       Nem                    
                   FROM
                       Emp;
               </sql>.Value
       Dtr = cmd.ExecuteReader
       While Dtr.Read
           N = Dtr(0)
       End While
       N += 1
       TextBoxNem.Text = N.ToString("000000")
       cn.Close()
   End Sub
    
    Private Sub ButtonAjouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonAjouter.Click
       cn.Open()
       cmd.CommandText = "SELECT COUNT (*) FROM Emp WHERE Nem='" & TextBoxNem.Text & "'"
       Dim Cpt As Int16
       Cpt = cmd.ExecuteScalar
       If Cpt = 0 Then
           cmd.CommandText = "INSERT INTO Emp(Nem,nom,NCompte,Cle,MontApayer,Motif)VALUES ('" & TextBoxNem.Text & "','" & TextBoxNomPren.Text & "','" & TextBoxNCcp.Text & "','" & TextBoxCle.Text & "','" & TextBoxMontant.Text & "','" & ComboBoxMotif.Text & "')"
           cmd.ExecuteNonQuery()
           MessageBox.Show("تمت عملية الحفظ بنجاح")
       Else
           MessageBox.Show("هذا الإسم موجود مسبقا")
       End If
       cn.Close()
       ShowdDataGView()
   End Sub

[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

تحياتى لك

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

[ahmedfa71]

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

[elgokr]

يرجع هذا السبب لكون العمود ترقيم تلقائي

وبهذا لا يوجد مشكلة فى البداية والنهاية هو ما الا ترقيم

واستغلاله فقط للتعديل والحذف على البيانات

ولكن عند العرض او الاستخدام يمكنك انشاء عمود اخر وليكن كود

وهو من نوع رقم

وعند الاضافة تقوم انت بادراج الرقم يدوياً مثل الاسم وباقي البيانات

تحياتى لك

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

[ahmedfa71]

بارك الله فيك أخي elgokr  
جزاك الله خيرا

[elgokr]

لى ولك وللجميع بامر الله

تحياتى لك

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