فكرة بسيطة احتاج لتطبيقها

[اواكس]

السلام عليكم

احتاج حاليا لتطبيق فكرة بسيطة

وهي تصميم نموذج احقق فيه ما يلي :

1- عرض السجل الأول ثم الانتقال تلقائيا للسجل الذي يليه حتى نهاية السجلات ثم الرجوع للأول وهكذا

** حققت الانتقال للسجل التالي عن طريق تصميم ماكرو وادراج الدالة RunCommand واختيار RecordsGoToNext ثم وضعت الماكرو كحدث عند عداد الوقت في خصائص النموذج

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

2- نموذج العرض التلقائي اريد أن يكون بكامل الشاشة بدون اطارات أو حدود

انتظر آرائكم بهذا الخصوص ولا تبخلوا علينا بتطبيق هذه الفكرة لحاجتي الماسة لها

[ناديه]

ممكن ترفق المثال للوضوح

وسوف يتم التعديل المطلوب عليه

[rudwan]

ضع الكود التالي في حدث المؤقت

Private Sub Form_Timer()
DoCmd.GoToRecord , , acNext
 If Me.NewRecord Then
 DoCmd.GoToRecord , , acFirst
 End If

End Sub

[يوسف أحمد]

السلام عليكم

بارك الله فيك استاذنا العزيز رضوان

فكرة رائعة جداً .. سلمت يداك

واذا سمحت لي ببعض الاضافات ووضع مثال لما تفضلت به مشكوراً

1- تم اضافة زر امر للتحكم في ايقاف واستئناف التحرك بين السجلات بالاعتماد على مسمى زر الامر .

2- تم ضبط الخاصية TimerInterval للنموذج على القيمة 2000 ليتم التنقل كل ثانيتين.

___________________________.rar

[اواكس]

شاكر جدا لمجهوداتكم

فعلا منتدى يستحق الوثوق به في جميع الأحوال

الله يجزاكم الف خير ويجعلها في ميزان حسناتكم