أختيار سجل عشوائي

يامبرمجين العرب وين الجواب ولا كان الجواب صعب ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

معقوله السؤال صعب او مافيه أحد :blink: :blink:

تستطيع ذلك من خلال تعيين رقم عشوائي للتحرك وليكن

'
Dim M as Long 'في  حالة سجلات عددها قليل استخدم integer
'تعيين رقم عشوائي
 Randomize
'
'وضع رقم عشوائي من مجموع سجلات الجدول
M = Rnd * (Rs.RecordCount - 1)
'إعادة الجدول الى البداية
If Rs.BOF = False Then Rs.MoveFirst
'الانتقال الى السجل العشوائي
Rs.Move (M), 0

تحياتي