اذهب الي المحتوي
أوفيسنا

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


Matin_Murad
إذهب إلى أفضل إجابة Solved by 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

  • Like 4
  • Thanks 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information