[مصمم هاوي]

هذا Function بداية الترقيم من رقم معين

كود :

   Public Function MaxIDjinsia_TBL_codes() As DataTable
       Dim Query As String = "Select IIF(MAX(id) IS Null,100,MAX(id)+1) From TBL_codes where Code like 'jinsia'"
       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