29-10-18, 04:43 PM
(آخر تعديل لهذه المشاركة : 29-10-18, 04:50 PM {2} بواسطة عبد العزيز البسكري.)
السّلام عليكم و رحمة الله و بركاته
إضافة لما قدّمه أخي العربي .. يمكن أن تقوم باستدعاء الكود التالي بحدث الفورم لود ..
كود :
Public Sub Test_Max_Record()
Call SNoNavigation()
Dim InfoCommand As New OleDbCommand(" SELECT MAX(SerialNo) FROM Table1 ", OleCn)
If OleCn.State = ConnectionState.Closed Then OleCn.Open()
If InfoCommand.ExecuteScalar Is DBNull.Value Then
txtSerialNo.Text = 1
Else
txtSerialNo.Text = InfoCommand.ExecuteScalar + 1
End If
End Subتحياتي
قناتنا على اليوتوب
