منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
Public Function sale_bille()
        number = New Integer()
        Try
            Dim cmd As New OleDbCommand("select Max(sNum)from sales", connAccess2010)
            connAccess2010.Open()
            number = cmd.ExecuteScalar
            connAccess2010.Close()
        Catch ex As Exception
            number = 0
            connAccess2010.Close()
        End Try
        Return number
    End Function

عامل بوتن لأضافة رقم جديد في الفاتورة
وكاتب فيه lapel1.text= sale_bille()+1
وعامل Insert into
لرقم الفاتورة علشان يستجل في قاعدة البيانات
\\\\\\
لما بدوس علي البوتن مرة واحدة الفاتورة بتسجل رقم 1
اقفل البرنامج وافتحة تاني الاقي الفاتورة رجعت صفر
ادوس علي البوتن تاني
يطلعلي الرسالة دي

The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again.
انا مش عامل مفتاح رئيسي خالص في جدول sales
فا اكيد في قيمة متكررة في قاعدة البيانات
اعمل ايه لحل المشكلة دي

تاني حاجة  انا عامل بوتن فاتورة جديدة عاوز لما ادوس عليه يفضيلي الجدول في الداتا جريد فيو لعمل فاتورة جديدة
فدي تتعمل فلترة بالتريخ ورقم الفاتورة !!

اخي الكريم فيه مثال بالرابط التالي:
http://vb4arb.com/vb/showthread.php?tid=21616

لانك استخدمت جملة try فاي خطا سيعيد رقم صفر ازل جملة try وجرب وانظر ماهو الخطا ثم بعد ذلك تعامل مع الخطا.ومن ثم اعد جملة try