[خالد كامل1]

اهلا بكم احبتى دام الله عليكم البشر والسرور
عندى كود لجلب اعلى رقم فى الفواتير عند رقم عشره لا يستطيع جلب اعلى رقم بعد الرقم 10 لا ادرى لماذا 
هذا الكود فى الموديول

كود :

Public Function getmaxid(ByVal tablename, ByVal coulmname) As Integer

       Dim dt As New DataTable
       Dim da As New OleDbDataAdapter
       dt.Clear()
       da = New OleDbDataAdapter("select max (" & coulmname & ")from " & tablename & "", con)
       da.Fill(dt)
       Dim outonumber As Integer
       If IsDBNull(dt(0)(0)) = True Then
           outonumber = 1
       Else
           outonumber = dt(0)(0) + 1

       End If
       Return outonumber
   End Function

والتعويض عنه فى فاتوره المشتريات مثلا بهذا الكود
("buycode.text=("buy","buycode
ولكم منى جزيل الشكر