الإختيار العشوائي من جدول

[Mazenkl]

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

السلام عليكم ورحمة الله وبركاته

انا عملت جدول يتكون من الحقول التالية

رقم الجوال - من نوع - نص

الرسالة - من نوع - نص

الوقت - من نوع - تاريخ (Date)

طبيعة البرنامج يدخل له جميع الرسائل المرسلة من رقم المرسل ورقم لاجابة ووقت الارسال

عملت استعلام لكي يفرز الاجابات الصحيحة

كيف من الممكن ان اعمل زر عندما اكبس عليه

يختار 30 رقم بشكل عشوائي

كل رقم على حدة

اي عندما اكبس اول كبسة يختار رقم ومن ثم كبسة اخرى ورقم جديد

مع وجود عداد او من دونه

الرجاء المساعدة

ولكم جزيل الشكر

[Mazenkl]

للرفع

[rudwan]

استخدم الداله randomize كما يلي :

Dim MyValue
Randomize    ' Initialize random-number generator.

MyValue = Int((30 * Rnd) + 1)    ' Generate random value between 1 and 30.

[Mazenkl]

هذه الدالة للإختيار العشوائي من القيم التي تعطيها انت

ولكن انا وجدت الحل

واريد ان اعرف

كيف يمكن تخزين البيانات التي يتم اختيارها منها الجدول الى جدول

اخر

[rudwan]

السلام عليكم

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

يفترض أن تلك الأرقام تخزن في جدول و هذا الجدول له رقم مسلسل ( غير أرقام الجوال )

و يتم وضع أول و آخر رقم في هذا الجدول هما حدود المعادله التي وضعتها لك أعلاه . و يتم اختيار أرقام مسلسله عشوائيه طبقا لتلك الداله , و من ثم تعرف رقم الهاتف العائد لذلك الرقم .

و اذا كنت قد وجدت حلا آخر نرجوا ارفاقه هنا حتى تعم الفائده على الجميع

أما تخزين القيم في جدول آخر فهذا يعتمد على الطريقه التي وجدتها أنت للحصول على الأرقام العشوائيه .

حيث ممكن أن تفتح مجموعة سجلات جدول جديد و تخزن فيه الأرقام المتولده أولا بأول في هذا الجدول .

تم تعديل يونيو 13, 2005 بواسطه rudwan

[Mazenkl]

انا الحل الذي وجدته هو نفس الطريقة التي ذكرتها ولكن

حاليا اعمل على طريقة جديدة تعتمد على ارقام الهواتف اوالجوالات

بدلا من الرقم وانا اجرب بالطريقة

وعند اكتمالها سوف ارفعها

ولكن اريد كيفية التخزين بعد الاختيار

[rudwan]

انشىْ جدولا جديدا distribut , و قم بتعريف مجموعة سجلاته ضمن كود الاختيار العشوائي

و افتح مجموعة السجلات هذه , ثم عند اختيار أي رقم SelectedNumber يتم تخزينه في ذلك الجدول في الحقل MyNumber

Dim rf As dao.Recordset
Set rf = CurrentDb.OpenRecordset("distribut")
rf.AddNew
rf![MyNumber] = SelectedNumber
rf.Update