تولید عدد تصادفی و ذخیره در اکسس

[vahid_d_0101]

سلام ببخشید دوباره اومدم
می خوام یه عدد تصادفی درست کنم و بعد در بانک اطلاعاتی ذخیره کنم فقط میخوام عددی که تولید میشه در بانک اطلاعاتی وجود نداشته باشه یعنی هیچ کدوم از عداد در بانک اطلاعاتی باهم برابر نباشه کد عدد تصادفی 6 رقمی هم میزارم فقط نکنه مهم اینجاست که نباید عداد داخل بانک اطلاعاتی باهم برابر باشند.:متعجب:

Dim S As String
Dim R As String
Randomize Timer
For i = 0 To 5
S = Int(Rnd * 10)
R = R & S
Next
Text1.Text = R

[xxxxx_xxxxx]

سلام


Private Sub Command1_Click()
Dim S As String
Dim R As String
Randomize
For i = 0 To 5
S = Int(Rnd * 10)
R = R & S
Next i
Adodc1.RecordSource = "SELECT * FROM Table1 where Code='" & R & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields!Code = R
Adodc1.Recordset.Update
Else
Command1_Click
End If
End Sub

قبل از اين كه عدد رو به بانك اضافه كنيم يه سرچ توش مي زنيم اگر اون عدد وجود نداشت به بانك اضافه ميشه و اگر تكراري بود دوباره روال تكرار ميشه.
موفق باشيد/