هل بالامكان تكوين Navigation خاص في نموذج الاكسس ؟؟

[gavan]

مرحبا بكم ولندخل الى الموضوع مباشرة

هل بالامكان تكوين Navigation  خاص من صنع المبرمج في نموذج الاكسس كما هو موضح بالصورة , وشكرا لكم

[شايب]

جرب

 

Database1121.accdb

[gavan]

Private Sub Form_Current()
Me.RecordsetClone.MoveLast   
Me.tx2 = Me.CurrentRecord & _
        " of " & Me.RecordsetClone.RecordCount
End Sub

شكرا جدا اخي على المرفق , ولكن يوجد مشكلة حين يكون الجدول فارغ من المعلومات وفتح النموذج يعطي رسالة خطا كما في الصور ادناه

 

تم تعديل يناير 6 بواسطه gavan

[شايب]

16 دقائق مضت, gavan said:

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

في بداية الكود ضع الامر

On Error Resume Next

وسوف تنتهي المشكلة

ويمكن ايضا الحل بطريقة اخرى

استبد الامر بالامر بالكود التالي

If Me.RecordsetClone.RecordCount > 0 Then
Me.RecordsetClone.MoveLast
Me.tx2 = "السجل" & Me.CurrentRecord & _
        " من " & Me.RecordsetClone.RecordCount
End If

اخونا الشايب

[gavan]

مبدع دائما اخي الغالي شايب الورد ,تحياتي لك يالغالي

تم تعديل يناير 6 بواسطه gavan