[محمد خيري]

السلام عليكم.اخواني من فضلكم رجاء المساعدة لحل المسالة
و انا اتابع دورة الاخ عثمان خورشيد على اليوتوب عند الترقيم التلقائي عملت تماما مثلما هو عامل لكن الترقيم ياتي المرة الاولى على هذا الشكل CUS000001 و يتم الحفظ عادي و بعد ذلك يبقى دائما CUS000001 و لا يزيد 1 على العداد ابدا
هذي قاعدة بيانات الاخ عثمان خورشيد

و هذي صورة قاعدة بياناتي

ال id هو ترقيم تلقائي و الذي يهم هو Customercode
و هذا الكود المستعمل مثل ما هو عامله

كود :

   Public Function Get_Last_Record(Table_Name, OrderByField) As String
       Get_Last_Record = 0
       Dim Str = "SELECT * From " & Table_Name & " Order By " & OrderByField
       Dim Adp As New SqlClient.SqlDataAdapter(Str, Conne)
       Dim Ds As New DataSet
       Adp.Fill(Ds)
       Dim Dt As DataTable
       Dt = Ds.Tables(0)
       If Dt.Rows.Count <> 0 Then
           Dim I = Dt.Rows.Count - 1
           Get_Last_Record = Val(Dt.Rows(I).Item(OrderByField))
       End If
   End Function

و بالفورم عملت

كود :

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Me.TextBox1.Text = Format(Get_Last_Record("CUSTOMERS", "CustomerCode") + 1, "000000")
 End Sub

المرة الاولى ياتيني الترقيم CUS000001 و في السجل الثاني يبقى دائما CUS000001 ولا يتغير الى CUS000002 و شكرا بارك الله فيكم