[princelovelorn]

وعليكم السلام ورحمة الله وبركاته

أكيد ممكن تستفاد منه باستخدامه كدلالة لأجراء العمليات

وبالنسبة للترقيم التلقائي لحقل  cod 

فستستخدم الدالة التالية ( وهي تعتمد على حقل id التلقائي )

كود :

   Public Function GetLastRecord(ByVal TableName, ByVal orderbyfield) As Integer
       Dim STR = "select * from " & TableName & " Order by " & orderbyfield
          Dim adp = New OleDb.OleDbDataAdapter(STR, cnn)
       Dim Ds = 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
           GetLastRecord = CInt(Val(DT.Rows(i).Item(orderbyfield)))
       End If
   End Function

شرح الدالة :

تقوم بالبحث عن قيمة حقل رقمي معين في أخر سجل في الجدول بدلالة حقل id (التلقائي)  

*ملحوظة (( يمكن استخدام اي حقل تريده ولكن الغرض الأساسي منها حقل رقمي ))

طريقة الأستخدام :

ضع هذة الدالة في موديل 

ثم في أعلى كود الحفظ لديك أضف السطر التالي 

كود :

TxtCode.Text = GetLastRecord("daleel", "ID") + 1

ومعنى السطر السابق هو ان الدالة ستبحث عن حقل id في اخر سجل  في جدول daleel  ثم ستضيف عليه 1  وتعود لك بالناتج في TxtCode.Text

الذي ستضيفه في كود الحفظ لديك

وممكن إضافة لمسة بسيطة على الكود السابق كالتالي

كود :

TxtCode.Text = Format(GetLastRecord("daleel", "ID") + 1, "Cod-0000")

ومعنى الكود انه سيتم عمل تهيئة للناتج المستقبل من الدالة وجعله على الصورة (  Cod-0010 ) وهنا رقم 10  يعني ان حقل id في اخر سجل في الجدول يحمل القيمة 9  وبالتالي الحقل الجديد سيكون 10

أتمنى يكون الشرح واضح

وتمنياتي لك بالتوفيق والنجاح