توليد رقم عشوائي

Private Sub Command5_Click()
Me.ID = Int(Rnd(1) * 1000000000#)
If Me.ID < 1000000000 Then
ID = ID + 1000000000
End If
End Sub

الباشا قدو كتب:

 

شكرا جزيلا استاذ essam_abboud  لكن لاحظت عند توليد الارقام احيانا يقوم بتوليد ارقام مكونة من 9 digit 

ارجوان يكون التوليد مكون من 10 digit 

مع شكري مرة اخرى .

قم باستبدال الكود بالكود التالي: