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

يمكن ذلك باستخدام RND

وذلك بضرب الRND في عدد السجلات + 1

Randomize Timer

A = Int(Data1.Recordset.RecordCount+1) * Rnd

ويكون القيمة في المتغير A هي رقم السجل المراد الذهاب اليه

يا أخوي ممكن ترسل مثال عشان لأني جربتها ويطلع لي خطا رقم 424

أرجو أن ترفق ملف لكي أقتنع لأنني جربت بأغلب الأوامر ولم أتوفق

هذا مثال

ارجو ان يفيدك

Private Sub Command1_Click()

    Dim A As Long, B As Long

    Randomize Timer

    A = CLng(Val(Text1.Text) * Rnd)

    Print A

    

End Sub

ضع COMMAND

و TEXT

على الفورم

ارجو ان يفيدك

لقد جربت ارفاق ملف ولكني للاسف لم اعرف كيف

قد تجد في هذا الرابط ما يفيدك :

http://www.arabteam2000.com/vb/showthread....p?threadid=6949

ولك تحياتي