تنقل بين السجلات من خلال ازرار فورم اخر

[Matin_Murad]

تنقل بين سجلات من خلال ازرار فورم اخر.rar

[kha9009lid]

ممكن وهذه احدى الطرق

في الفورم الرئيسي الذي يحتوى على السجلات نضع ثلاث ازرار امر مخفية

الاول للانتقال للسجل التالي

Public Sub c_1_Click()
DoCmd.GoToRecord , , acNext
End Sub

الثاني للسجل الاول

Public Sub c_2_Click()
DoCmd.GoToRecord , , acFirst
End Sub

الثالث للسجل الاخير

Public Sub c_3_Click()
DoCmd.GoToRecord , , acLast
End Sub

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

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

الان العمل في الفورم الثاني

ايضا في النموذج الثاني الخاص بازرار التنقل وضعنا في الامر الاول

Form_Form2.SetFocus
Call Form_Form2.c_2_Click

اولا نقلنا التركيز للنموذج الخاص بالسجلات ثم ارسلنا امر لتنفيذ امر الانتقال للسجل الاول

للانتقال للسجل التالي وضعنا الامر

On Error GoTo ErrorHandler
Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone
rst.MoveLast: rst.MoveFirst
rc = rst.RecordCount
If Me.CurrentRecord < rc Then
Form_Form2.SetFocus
Call Form_Form2.c_1_Click
End If
Exit Sub
ErrorHandler:
MsgBox "السجل الاخير  ", vbInformation, "تنبية"

والهدف التخلص من رسالة خطا بعد السجل الاخير

للانتقال لاخر سجل وضعنا الامر

Form_Form2.SetFocus
Call Form_Form2.c_3_Click

ملفك في المرفقات

ملاحظة ممكن اختصار الخطوات ولكن وحدت ان هذة الطريقة توضح الخطوات بشكل افضل

تنقل بين سجلات من خلال ازرار فورم اخر.accdb

[Matin_Murad]

.أسأل الله ان يجعل هذا العمل في ميزان حسناتك.. وأن يرزك الخير في الدنياء والاخرة جزاك الله خيرا .. وبارك الله فيك ..

[kha9009lid]

جزاك الله خير اخي @warvin raviny

ولك بالمثل اخي الحبيب

[Matin_Murad]

عفوا استاذ ( عند اضافة فورم فرعي ) تم ضهور خطا . 

تنقل بين سجلات من خلال ازرار فورم اخر 2.rar

[kha9009lid]

جرب الان

تنقل بين سجلات من خلال ازرار فورم اخر.accdb

[kha9009lid]

واذا ترغب اضافة امر السجل السابق

جرب المرفق

 

تنقل بين سجلات من خلال ازرار فورم اخر2.accdb