إدراج أرقام مرتبة عشوائيا دون تكرار

Dim MyDb As Database

Dim MyRst As Recordset

Dim I As Integer, U As Integer, MyRnd As Integer

Dim MyNums As String, StrRnd As String

Dim Jadeed As Boolean, MyFund As Boolean

Set MyDb = CurrentDb

Set MyRst = MyDb.OpenRecordset("MyTable1", dbOpenDynaset)

' استبدل اسم الجدول السابق

' MyTable1

' باسم الجدول لديك

With MyRst

.MoveFirst

Do Until .EOF

.Delete

.MoveNext

Loop

For I = 1 To 100

Jadeed = False

MyFund = False

MyRnd = Int(Rnd * 100)

Do

MyRnd = MyRnd + 1

If MyRnd > 100 Then

MyRnd = 1

End If

If MyRnd > 99 Then StrRnd = MyRnd

If MyRnd < 100 And MyRnd > 9 Then StrRnd = "0" & MyRnd

If MyRnd < 10 Then StrRnd = "00" & MyRnd

For U = 1 To Len(MyNums)

If Mid(MyNums, U, 4) = "-" & StrRnd Then

MyFund = True

Exit For

End If

Next

If MyFund = False Then

Jadeed = True

Exit Do

Else

MyFund = False

End If

Loop Until Jadeed = True

MyNums = MyNums & "-" & StrRnd

.AddNew

!Num = MyRnd

' استبدل العبارة السابقة

' !Num

' باسم الحقل في الجدول لديك

.Update

Next I

End With

MyRst.Close