Mazenkl قام بنشر يونيو 7, 2005 قام بنشر يونيو 7, 2005 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته انا عملت جدول يتكون من الحقول التالية رقم الجوال - من نوع - نص الرسالة - من نوع - نص الوقت - من نوع - تاريخ (Date) طبيعة البرنامج يدخل له جميع الرسائل المرسلة من رقم المرسل ورقم لاجابة ووقت الارسال عملت استعلام لكي يفرز الاجابات الصحيحة كيف من الممكن ان اعمل زر عندما اكبس عليه يختار 30 رقم بشكل عشوائي كل رقم على حدة اي عندما اكبس اول كبسة يختار رقم ومن ثم كبسة اخرى ورقم جديد مع وجود عداد او من دونه الرجاء المساعدة ولكم جزيل الشكر
rudwan قام بنشر يونيو 12, 2005 قام بنشر يونيو 12, 2005 استخدم الداله randomize كما يلي : Dim MyValue Randomize ' Initialize random-number generator. MyValue = Int((30 * Rnd) + 1) ' Generate random value between 1 and 30.
Mazenkl قام بنشر يونيو 12, 2005 الكاتب قام بنشر يونيو 12, 2005 هذه الدالة للإختيار العشوائي من القيم التي تعطيها انت ولكن انا وجدت الحل واريد ان اعرف كيف يمكن تخزين البيانات التي يتم اختيارها منها الجدول الى جدول اخر
rudwan قام بنشر يونيو 13, 2005 قام بنشر يونيو 13, 2005 (معدل) السلام عليكم ألم يكن طلبك الاختيار العشوائي للأرقام المرسله من الجوال ؟ يفترض أن تلك الأرقام تخزن في جدول و هذا الجدول له رقم مسلسل ( غير أرقام الجوال ) و يتم وضع أول و آخر رقم في هذا الجدول هما حدود المعادله التي وضعتها لك أعلاه . و يتم اختيار أرقام مسلسله عشوائيه طبقا لتلك الداله , و من ثم تعرف رقم الهاتف العائد لذلك الرقم . و اذا كنت قد وجدت حلا آخر نرجوا ارفاقه هنا حتى تعم الفائده على الجميع أما تخزين القيم في جدول آخر فهذا يعتمد على الطريقه التي وجدتها أنت للحصول على الأرقام العشوائيه . حيث ممكن أن تفتح مجموعة سجلات جدول جديد و تخزن فيه الأرقام المتولده أولا بأول في هذا الجدول . تم تعديل يونيو 13, 2005 بواسطه rudwan
Mazenkl قام بنشر يونيو 13, 2005 الكاتب قام بنشر يونيو 13, 2005 انا الحل الذي وجدته هو نفس الطريقة التي ذكرتها ولكن حاليا اعمل على طريقة جديدة تعتمد على ارقام الهواتف اوالجوالات بدلا من الرقم وانا اجرب بالطريقة وعند اكتمالها سوف ارفعها ولكن اريد كيفية التخزين بعد الاختيار
rudwan قام بنشر يونيو 14, 2005 قام بنشر يونيو 14, 2005 انشىْ جدولا جديدا distribut , و قم بتعريف مجموعة سجلاته ضمن كود الاختيار العشوائي و افتح مجموعة السجلات هذه , ثم عند اختيار أي رقم SelectedNumber يتم تخزينه في ذلك الجدول في الحقل MyNumber Dim rf As dao.Recordset Set rf = CurrentDb.OpenRecordset("distribut") rf.AddNew rf![MyNumber] = SelectedNumber rf.Update
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.