[mostafa nada]

السلام عليكم 
ما هى المشكلة الخاصة بهذة الرسالة

[عبد العزيز البسكري]

راجع الحقول جيّدا بقاعدة البيانات أخي الكريم .. لا أفهم الأنجليزية جيدا .. فهمت فقط عبارتيْ Duplicate و field .. و على هذا يبدو لديك أسماء حقول مكرّرة .. أو ما شابه

[Rabeea Qbaha]

كما قال لك الاخ عبد العزيز ، ان تقوم بتكرار ال primary key

[mostafa nada]

ممكن ايضاح اكتر

[Rabeea Qbaha]

هل يمكنك وضع كود الاضافة هنا لاشرح لك

[mostafa nada]

(25-11-18, 03:26 AM)Rabeea Qbaha كتب : هل يمكنك وضع كود الاضافة هنا لاشرح لك

---

كود :

Public Sub insert_Sales(ByVal CustomerID As Integer, ByVal Discound As Double, ByVal ItemID As Integer, ByVal ItemPrice As Double, ByVal ItemTotal As Double, ByVal Qyt As Double, ByVal SaleBillNo As Integer, ByVal SaleDate As Date, ByVal UserID As Integer)
       Dim cmd As New OleDbCommand("insert into Sales( CustomerID,Discound,ItemID,ItemPrice,ItemTotal,Qyt,SaleBillNo,SaleDate,SaleNo,UserID) values (@CustomerID,@Discound,@ItemID,@ItemPrice,@ItemTotal,@Qyt,@SaleBillNo,@SaleDate,@SaleNo,@UserID)", con)

       cmd.Parameters.Add("SaleNo", OleDbType.Integer).Value = Max_SaleNo_From_Sales() + 1
       cmd.Parameters.Add("CustomerID", OleDbType.Integer).Value = CustomerID
       cmd.Parameters.Add("Discound", OleDbType.Double).Value = Discound
       cmd.Parameters.Add("ItemID", OleDbType.Integer).Value = ItemID
       cmd.Parameters.Add("ItemPrice", OleDbType.Double).Value = ItemPrice
       cmd.Parameters.Add("ItemTotal", OleDbType.Double).Value = ItemTotal
       cmd.Parameters.Add("Qyt", OleDbType.Double).Value = Qyt
       cmd.Parameters.Add("SaleBillNo", OleDbType.Integer).Value = SaleBillNo
       cmd.Parameters.Add("SaleDate", OleDbType.Date).Value = SaleDate
       cmd.Parameters.Add("UserID", OleDbType.Integer).Value = UserID
       con.Open()
       cmd.ExecuteNonQuery()
       con.Close()
       cmd = Nothing
   End Sub

[Rabeea Qbaha]

انت تقوم بتكرير احد هذه الاعمدة SaleNo | CustomerID | ItemID |SaleBillNo | UserID

او انك تقوم بتكرارها في نفس جدول sales  وتكون لا تقبل التكرار او انك تربطها بعلاقه 1 الى 1 وتقوم بتكرارها في الجدول الاصلي 

تاكد من الاتي 

ضع msgbox قبل الاضافه بالقيم SaleNo | CustomerID | ItemID |SaleBillNo | UserID وتاكد من انه لا توجد قيمة مسبقه في الجدول في قاعدة البيانات مسجلة

نصيحة اخرى :

اذا كنت تستخدم جدول واحد فقط لكل هذه القيم قم بتقسيمها على عده جداول ة اربط الجداول في علاقة بالجدول الاساسي 
و اذا اردت اضهارها جميعا قم بعمل veiw في قاعدة البيانات هكذا ارتب و لن تقوم بتكرار البيانات