[ابراهيم ايبو]

السلام عليكم اخي الكريم

بالنسبة للترقيم التلقائي لم يخطر ببالي عملها ولااعرف ان كان بالامكان فعل ذلك سابحث بها

لكن يمكننا فعل ذلك بالترقيم العادي MaxID واضافة السنة اليها وفق الكود التالي:

ضع هذا الفنكشن في الكلاس

كود :

   '----------Public Function MaxID----------
   Public Function MaxID_Table() As DataTable

       Dim Query As String = "Select IIF(MAX(ID) IS Null,1,MAX(ID)+1 ) From Table"
       Dim Cmd As OleDbCommand
       Dim dt As New DataTable
       dt.Clear()
       Cmd = New OleDbCommand(Query, con)
       Dim da As New OleDbDataAdapter(Cmd)
       da.Fill(dt)
       Return (dt)
   End Function

   Private Sub BtnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNew.Click
       ' وفي زر جديد استخدم هذا الفنكشن مع اضافة السنة
       Dim DD As Date = Now ' تعريف متغير من نوع تاريخ يساوي التاريخ الحالي
       Txt_ID.Text = MaxID_Table.Rows(0)(0).ToString & "-" & DD.ToString("yyyy") 'اضافة السنة الى الرقم المجلوب
   End Sub