17-10-23, 12:04 AM
ما اختلف شي، نفس الكود مع تعديل بسيط ..
استخدم الكود التالي :
أو هذا الكود :
استخدم الكود التالي :
كود :
Sub LOAD_No_AUTO()
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "Select Count(Id) As CountID From [Users] Where Right(Id,4) = '" & Year(Now) & "'", DB, adOpenStatic, adLockOptimistic
Dim max_NO As String
If Not RS!CountID Then
max_NO = Format(Val(RS!CountID) + 1, "00000")
Else
max_NO = Format(1, "00000")
End If
Text1.Text = "Reçu N°" & max_NO & "/" & Year(Now)
End Subأو هذا الكود :
كود :
Sub LOAD_No_AUTO()
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "Select Count(Id) As CountID From [Users] Where Right(Id,4) = '" & Year(Now) & "'", DB, adOpenStatic, adLockOptimistic
Dim max_NO As Long
If Not RS!CountID Then
max_NO = Val(RS!CountID) + 1
Else
max_NO = 1
End If
Text1.Text = "Reçu N°" & max_NO & "/" & Year(Now)
End Subقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
