أنا عضو جديد وأطلب طلب بسيط!

اولا اسماء الناس مسجله في قاعدة بينات

كل اسم واخد سجل

كل واحد من الناس ديه ليه رقم تسلسلي يعني الراجل الموجود في اول سجل ياخد رقم 1 وهكذا في ثاني سجل وثالث سجل وهكذا

هتعد عدد السجلات عن طريق RecordCount

والناتج تضعه في مخزن نفرض انه X

وبعدين تكتب هذا الكود تحت المفتاح ليختار لك رقم عشوائي كل مره من بين الارقام المسجلة في X

Dim x As String
x = 1000

   Randomize
   MsgBox 10 + Round(Rnd * x)

ملحوظه انا هنا = X ب 1000

المفروض انك تغيره و تساويه بال RecordCount

انتظر النتيجة