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

[صالح حمادي]

السلام عليكم و رحمة الله و بركاته أيها الأخوة الكرام حياكم الله.

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

 

التنقل بين سجلات نموذج فرعي.rar

[jjafferr]

وعليكم السلام 

 

Option Compare Database

Private Sub أمر1_Click()
On Error Resume Next

    Me.dd.SetFocus
    DoCmd.GoToRecord , , acNext

End Sub

Private Sub أمر3_Click()
On Error Resume Next

    Me.dd.SetFocus
    DoCmd.GoToRecord , , acPrevious

End Sub

 

 

جعفر

[صالح حمادي]

شكرا جزيلا و بارك الله فيك أستاذ جعفر الكود يعمل بشكل ممتاز.

لكن لما أستعمل هذا الكود يعني أضع اسم النموذج الفرعي.

DoCmd.GoToRecord , "subform", acPrevious

يعطي (خطأ رقم  "2489" الكائن غير مفتوح) ما هو الخطأ أو كيف يمكن إصلاحه

 

[عبد الفتاح كيرة]

ما اسم النموذج الفرعى؟

الفكرة هايلة

و الكود رائع

يستاهل يتحط في فيديو

تم تعديل يوليو 25, 2016 بواسطه عبد الفتاح كيرة

[صالح حمادي]

subform

[عبد الفتاح كيرة]

اسم الفرعى لا يوضع هنا

بل فى سطر

Setfocus

Me.subform.setfocus

[صالح حمادي]

نعم أخي و هذا ما أشار إليه الأستاذ جعفر.

أنا أسأل هل بالإمكان إضافة اسم كائن في هذا المكان أم لا

[jjafferr]

تستطيع استعمال اي من هذه الطرق الثلاث:

Private Sub أمر1_Click()
'On Error Resume Next
'1.
'    Me.dd.SetFocus
'    DoCmd.GoToRecord , , acNext

'2.
    Me.dd.Form.Recordset.MoveNext
    
'3.
'    Me.dd.SetFocus
'    DoCmd.RunCommand acCmdRecordsGoToNext
End Sub

Private Sub أمر3_Click()
On Error Resume Next
'1.
'    Me.dd.SetFocus
'    DoCmd.GoToRecord , , acPrevious

'2.
    Me.dd.Form.Recordset.MovePrevious

'3.
'    Me.dd.SetFocus
'    DoCmd.RunCommand acCmdRecordsGoToPrevious
End Sub

 

جعفر

 

 

[صالح حمادي]

ما شاء الله زادك الله علما و علما و علما أستاذنا جعفر

بارك الله لك و لعلمك و نفعك الله به في الدارين الدنيا و الآخرة غن شاء الله