الدخول إلى النموذج وتغيير السجل الحالي

الأخ /سعودي 31

أود لو تتكرم وتخبرنا ما الذي دعاك لمثل هذا البرنامج وما الهدف منه ؟

لك تحياتي

في حدث عند الفتح للنموذج ضع :

Dim رقم_السجل_المطلوب As Long
Dim عدد_سجلات_النموذج
عدد_سجلات_النموذج = Me.RecordsetClone.RecordCount
' عمل حلقة تكرار لتحقيق شرط
Do
رقم_السجل_المطلوب = Int(Rnd * 15)
' أن يكون الرقم المتولد اكبر من الصفر وأن يكون أصغر أو يساوي عدد السجلات
Loop While رقم_السجل_المطلوب <= 0 Or رقم_السجل_المطلوب > عدد_سجلات_النموذج
DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, رقم_السجل_المطلوب

ولك تحياتي

أستاذي أبو حمود

الله يعطيك العافية على سرعة الرد

ـــــــــــــــ

اسم حقل الترقيم التلقائي (معرف)

عدد سجلات النموذج لنفرض أنها (7) سجلات

كيف يتم ذلك مع هذا الكود لأني لم استطيع التعامل معه

لأني قمت بنسخه ولصقه كما هو في المنتدى ولم يتغير شئ وذلك على الأكسس 97 ولم أجربه على الأكسس 2000 لأني عملت البرنامج على أكسس 97

أما القصد من هذا السؤال أخي 5060

فأنا أعمل برنامج اسمه ( من سيربح المليون ) مشابه للبرنامج المعمول على الفلاش ولكني لا أريد المتسابق أن يرى السؤال نفسه يتكرر كلما فتح النموذج المعد للمسابقة علماً بأن عدد الأسئلة كبير جداً يقارب الألف سؤال

لم اجرب الكود على 97 ولا اعتقد أن ذلك مؤثر .

ضع الكود في حدث عند الفتح للنموذج بدون أي تغييرات .

ولك تحياتي

الأخ / أبو حمود

حاولت مع الكود فلم أفلح فلا أرى السجل الحالي يتغير فكلما فتحت النموذج أجد أن السجل الذي يظهر تلقائي هو الرقم (1) حتى مع الأكسس 2000 وهذا مثال على ما قمت به أرجو أن تكون طريقتي خاطئة فتقوم بتصحيحها جزالك الله خيراً

وأرجو المعذرة لكثرة الطلبات

http://mypage.ayna.com/kuo_kou/20t.zip

الأخ سعودي

غير السطر :

عدد_سجلات_النموذج = Me.RecordsetClone.RecordCount

بهذا السطر :

عدد_سجلات_النموذج = DCount(Me.RecordsetClone.Fields(0).Name, Me.RecordSource)

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

ولك تحياتي

شكراً لك يا أستاذي أبو حمود

الآن أصبح الكود يعمل كما أريد منه

جزاك الله ألف خير وكثر من أمثالك