[aljzazy]

بامكانك انشاء فنكشين تجلب لك الرقم الذي تريده
اولا في جدول قاعدة البيانات
ضع الحقل الرئيسي من نوع رقمي int وهو المفتاح الرئيسي للجدول
انشيء حقل اخر لرقم الملف واجعله من نوع نصي

الان سنعتمد على تاريخ اليوم الذي نحن فيه
فمثلا" اذا اردنا استخدام جزء من العام ورقم الشهر نستخدم (yyMM)

وهذه فنكشين توضح المطلوب مع مثال مرفق

كود :

 Public Function Get_Order_No() As String
       Try
           Dim orderDate As String = Now.ToString("yyMM")
           If Con.State = 1 Then Con.Close()
           Con.Open()
           Dim cmd As New OleDbCommand(" select * from Test_Tbl Where File_No Like '" & orderDate & "%' order by ID desc", Con)
           Dim dr As OleDbDataReader
           dr = cmd.ExecuteReader
           dr.Read()
           If dr.HasRows Then
               Get_Order_No = CLng(dr("File_No").ToString) + 1
           Else
               Get_Order_No = orderDate & "001"
           End If
           dr.Close()
           Con.Close()
           Return Get_Order_No
       Catch ex As Exception
       End Try
   End Function