إرجاع قيمة عشوائية في حقل

اقتباس

والمطلوب "زر يقوم بإرجاع رقم عشوائي في حقل (رقم المشترك)"

ممكن توضيح المطلوب أكثر .

تحياتي ..

اخي فهد مشكور على تلبية ندائي

والمطلوب

هذه هي قاعدة البيانات كاملة بالنموذج السابق ودي يكون فيه زر جديد لمن نضغط عليه يقوم بإختيار رقم عشوائي من حقل رقم المشترك ويعرض كل معلوماته

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

ومرة اخرى اشكرك اخوي على تلبية ندائي

سلام عليكم

اخيراً قدرت اعمل شيء على قاعدتي

وهذه هي القاعدة مرفقة مع الرد

ولكن تحتاج للمستكم الاخيرة

والتعديل اللي ارغب فيه هو:

1- البحث يكون عن الاسم لا عن الجوال.

2- المسج بوكس اللي يظهر راح يتغير طبعا من رقم الجوال الى الاسم الذي تم اختياره "تم إدراج اسم المشترك (فلان) ضمن الجدول المخصص للاسماء المستلمة"

3- الرقم المتبقي من اعداد السجلات لايتغير ولا اعلم السبب "عدد المشتركين الذين لم يستلموها بعد"

4- لماذا يظهر في الحقول عبارة # محذوف بعد حذف السجل وإلحاقه بالجدول الثاني؟ يفضل عدم اظهارها على النموذج كان يرجع للسجل الاول من الجدول مثلا.

ولكم خالص شكري

_______.zip

اختي الكريمة كوكو

تفضلي ملفك بعد التعديل وتلافي جميع الاخطاء والملاحظات التي كانت موجودة

KOKO.rar

اختك

زهره

مرحبا بكم جميعا

اشكرك اختي زهره تم حل اغلب المشاكل ولم تبقى الا واحدة وهي

عدم اظهار عدد السجلات المتبقيه في "عدد المشتركين الذين لم يستلموها بعد"

ولكم خالص شكري جميعا

يعني بالخصوص الاخت زهرة والاخ فهد لا انسى انه ساعدني واستفدت منكما

فجزاكم الله خيراً

اختي الكريمة

تم حل المشكلة بإضافة العبارة

nu1 = (Me.Recordset.RecordCount - 1)

الى زر الامر

بإمكانك الان التأكد من البرنامج

واذا كان هناك اي مشكلة فنحن في الخدمة

وهذا هوالبرنامج بعد التعديل الاخير

KOKO.rar

اختك

زهره

اختي زهره تعبتك معاي

انا دورت بالمنتدى ولقيت لمن ضمن درر الاخ فهد

هذا الحل

ان نضع =Count(*) هذه العبارة في مصدر عنصر التحكم

فايهما افضل ياترى

انا بخذ الاثنين

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

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

اختي الفاضلة

بالنسبة للكود الخاص بالعبقري واستاذ الكل فهد الدوسري وهو

=Count(*)

فهو خاص بعدد كافة السجلات ويوضع في مربع النص مباشرة ويؤدي الغرض المطلوب لسهولته

ايضا الكود الذي قمت بإدراجه وهو

nu1 = (Me.Recordset.RecordCount - 1)

فهو ايضا خاص بعدد السجلات ويوضع في محرر الفيجول بيسك ويقوم تلقاتيا بحذف سجل كلما تغير العدد من الحقل السابق وجميعها تؤدي الغرض اذا رغبتي بإستخدام الكود الخاص بالاستاذ فهد الدوسري فيجب عليك مسح الكود الخاص بنا من محرر الفيجول بيسك

اختك

زهره

اختي كوكو

تم التعديل النهائي على البرنامج بناء على طلبك واصبح يخصم من المربع الثاني ويضيفه على المربع الاول وتبقى القيمه ثابته في المربعين حتى لو اغلقت البرنامج واعدتي فتحه مره ثانية حيث تم استبدال الاكواد السابقة بهذه

=DCount("[jNAME]"; "TEST")
=DCount("[NAME]"; "TEST_NEW")

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

وبالتوفيق

KOKO_LAST2.rar

اختك

زهره

برافوا اختي زهور

وتستاهلينها

وجزاج الله الف خير مشكورة واااااااااااايد