بسم الله الرحمن الرحيم
لدي قاعدة بيانات تحتوي على معرف واسم و لدي كود يعمل راندوم بعد اختيار قيمة الراندوم من تيكست بوكس وكل هذا يعمل على المعرف وهو (الاي دي) احتاج عمل نفس الكود ولكن على الاسماء والكود كالتالي وتعذر علي رفع قاعدة البيانات لصغر حجم الملفات المرفوعة ارجو المساعدة قدر الامكان مع الشكر الجزيل
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
