random اختيار عشوائي

[toofe]

بسم الله الرحمن الرحيم 

 لدي قاعدة بيانات تحتوي على معرف واسم و لدي كود يعمل راندوم بعد اختيار قيمة الراندوم من تيكست بوكس وكل هذا يعمل على المعرف وهو (الاي دي) احتاج عمل نفس الكود ولكن على الاسماء والكود كالتالي  وتعذر علي رفع قاعدة البيانات لصغر حجم الملفات المرفوعة ارجو المساعدة قدر الامكان مع الشكر الجزيل

Dim SQL As String
   Dim sWhere As String
   Dim iCount As Integer
   Dim i As Integer
   Dim j As Integer
   Dim iSelectHowMany As Integer
   Dim aSel() As Integer
   Dim IsRepeated As Boolean
   Dim vItem As Variant
   Dim rc As Recordset
   Dim x As Integer
    Set rc = CurrentDb.OpenRecordset("test")
    x = rc.RecordCount
   
    If IsNull(Me.Text12) Or Me.Text12 = 0 Then
       re = MsgBox(not null, 0, xxx)
       Else
    If Text12.Value > x Then
    re = MsgBox(not null, 0, xxx)
  Else
    
     iSelectHowMany = Text12.Value
     SQL = "Select * from [test]"
   
   ' Find number of records in table.
   iCount = DCount("*", "test")
   
   Randomize
   i = Int(iCount * Rnd()) + 1
   ReDim aSel(0)
   aSel(0) = i
     
   j = 1
   Do While j < iSelectHowMany
     IsRepeated = False
     Do While Not IsRepeated
       i = Int(iCount * Rnd()) + 1
         
       For Each vItem In aSel
         If vItem = i Then
           IsRepeated = True
           Exit For
         End If
       Next vItem
     
       If Not IsRepeated Then
         ReDim Preserve aSel(j)
         aSel(j) = i
         j = j + 1
         Exit Do
       End If
     Loop
   Loop
      
   For Each vItem In aSel
     sWhere = sWhere & ", " & vItem
   SQL = SQL & " where [ID] in (" & Mid(sWhere, 2) & ")"
    'MsgBox SQL
   Me.test.Form.RecordSource = SQL
   End If
End If
End Sub

 

[سعيد صواب]

حياك الله اخي الكريم

اضغط المثال وارفقه 

بالتوفيق

[toofe]

7 hours ago, سعيد صواب said:

حياك الله اخي الكريم

اضغط المثال وارفقه 

بالتوفيق

الاخ العزيز شكرا على الرد ولكن الملف اكبر من المسموح حتى بعد الضغط