(تمت الاجابة) تعديل في امر التنقل

[lordring]

السلام عليكم في النموذج المرفق

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

التنقل عند اخر سجل .. ولايتم الانتقال الى سجل فارغ .. اي يتوقف عند الرقم 3

وبالتالي لايفتح سجل فارغ الا بالضغط على زر ادراج سجل الموجود في الصورة ايضا

كيف يمكن هذا مع التقدير

صورة للنموذج والازرار

رابط المرفق

http://dl.dropbox.com/u/9352509/access/Database9.rar

[ابو بنسيانا]

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

هل هذا طلبك ؟

Database9.rar

[lordring]

السلام عليكم

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

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

لكن عند اغلاق النموذج وفتحه يعمل من جديد بشكل ممتاز

هل بالامكان تجاوز هذه الثغرة وان لم يكن فشكرا لك بكل الاحوال على ماقدمت وجازاك الله خير الجزاء

وشكرا

[أ / محمد صالح]

أخي الكريم lordring

ضع في حدث الضغط على زر التالي هذا الكود

Private Sub Command13_Click()

If CurrentRecord < DCount("المعرف", "جدول1") Then

    DoCmd.GoToRecord , , acNext

End If

End Sub

وجرب وأخبرني بالنتيجة

[أبو آدم]

جميل جدا أخي محمد صالح

ويمكن أن نقول

Private Sub Command13_Click()

On Error GoTo Err_Command13_Click


If CurrentRecord < DCount("المعرف", "جدول1") Then

DoCmd.GoToRecord , , acNext

Else

DoCmd.GoToRecord , , acFirst

End If

Exit_Command13_Click:

	Exit Sub

Err_Command13_Click:

	MsgBox Err.Description

	Resume Exit_Command13_Click


End Sub

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

شكرا للفكرة أخي الحبيب محمد صالح

عسى أن يكون لأخينا السائل فيها فائدة

........

[lordring]

السلام عليكم شكرا على الافكار الجميلة

طيب لو نفذت الحل الاول اريد ان تظهر رسالة تبلغ المستخدم بعدم وجود سجل لاحق

وشكرا

[أ / محمد صالح]

يمكنك استعمال هذا الكود أخي الكريم

Private Sub Command13_Click()

If CurrentRecord < DCount("المعرف", "جدول1") Then

    DoCmd.GoToRecord , , acNext

else

msgbox "لا يوجد سجل لاحق"

End If

End Sub

[lordring]

شكرا اخي

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

[أ / محمد صالح]

أخي الكريم

ممكن أقوم بها ولكن حاول أنت أولاً

معنى الكود الذي في الزر التالي هو

إذا كان السجل الحالي اقل من عدد السجلات في جدول1 يتم الانتقال للسجل التالي وإذا كان مساويا لعدد السجلات لا يتم الانتقال بل يتم ظهور الرسالة

............

جرب أنت أن تضع الكود للزر السابق

للعلم لن تستعمل عدد السجلات لآنك لن تحتاجه في شيء

[lordring]

شكرا اخي بارك الله بيك