تسلسل فواتير

جرب هذا الكود في زر الكومند

Private Sub Command1_Click()
Text1 = Format$(Val(Text1) + 1, "000000")
End Sub

ارقام فواتير !!!!!

أولا : هتعوز يبقى عندك متغير رقمى مش بيتكرر عشان بيتهيألى أرقام الفواتير هتبقى Unique

ثانيا : تهعوز تعمل Loop و فنفس الوقت نتيجة الـ Loop تبقى Unique هى كمان

ثالثا : لو استخدمت rnd هيشتغل أول مره و تانى مره هيشتغل بس بنفس التسلسل الأول

مش عارف بصراحه