15-11-19, 09:35 PM
السلام عليكم.اخواني من فضلكم رجاء المساعدة لحل المسالة
و انا اتابع دورة الاخ عثمان خورشيد على اليوتوب عند الترقيم التلقائي عملت تماما مثلما هو عامل لكن الترقيم ياتي المرة الاولى على هذا الشكل CUS000001 و يتم الحفظ عادي و بعد ذلك يبقى دائما CUS000001 و لا يزيد 1 على العداد ابدا
هذي قاعدة بيانات الاخ عثمان خورشيد
و هذي صورة قاعدة بياناتي
ال id هو ترقيم تلقائي و الذي يهم هو Customercode
و هذا الكود المستعمل مثل ما هو عامله
و بالفورم عملت
المرة الاولى ياتيني الترقيم CUS000001 و في السجل الثاني يبقى دائما CUS000001 ولا يتغير الى CUS000002 و شكرا بارك الله فيكم
و انا اتابع دورة الاخ عثمان خورشيد على اليوتوب عند الترقيم التلقائي عملت تماما مثلما هو عامل لكن الترقيم ياتي المرة الاولى على هذا الشكل 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