الحفظ على الشبكة فى نفس الوقت

أخي الكريم جيب اكبر قيمة حالية ومن ثم زودها بواحد واحفظ

اش المشكلة؟؟

اخي الفاضل

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

قم بالحصول على اعلى قيمة داخل الحقل في نفس توقت الحفظ حتى تتاكد بان الرقم لم يكن متكرر او سبقك احد وقام بحفظه قبلك

واليك طريقة سابقة للحصول على اعلى رقم في الحقل

   ' الخصول على أعلى رقم في العمود
    Public Function GetMax(ByVal FieldName As String, _
                           ByVal TableName As String)

        Dim Qry As String = "Select Max(" & FieldName & ") From " & TableName & ""
        Dim cn1 As New OleDbConnection(str_Ah1)  
        Dim cm1 As New OleDbCommand(Qry, cn1)
        Try
            cn1.Open()
            GetMax = cm1.ExecuteScalar()
            If IsDBNull(GetMax) Then
                GetMax = 1
                cn1.Close()
                cm1 = Nothing
                cn1 = Nothing
                Exit Function
            Else
                GetMax = cm1.ExecuteScalar() + 1
            End If
            cn1.Close()
            cm1 = Nothing
            cn1 = Nothing
        Catch ex As Exception
            cn1.Close()
            cm1 = Nothing
            cn1 = Nothing
        End Try
    End Funct

ولإستدعاء هذه الدالة من داخل الفورم

 Me.lblItemNo.Text = GetMax("Matr_No", "Material")

مع تحياتي