27-07-19, 01:00 AM
(آخر تعديل لهذه المشاركة : 27-07-19, 03:44 PM {2} بواسطة خالد كامل1.)
اهلا بكم احبتى دام الله عليكم البشر والسرور
عندى كود لجلب اعلى رقم فى الفواتير عند رقم عشره لا يستطيع جلب اعلى رقم بعد الرقم 10 لا ادرى لماذا
هذا الكود فى الموديول
والتعويض عنه فى فاتوره المشتريات مثلا بهذا الكود
("buycode.text=("buy","buycode
ولكم منى جزيل الشكر
عندى كود لجلب اعلى رقم فى الفواتير عند رقم عشره لا يستطيع جلب اعلى رقم بعد الرقم 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
ولكم منى جزيل الشكر