التعامل مع الفورم (مساعدة قد تكون سهلة)

واكتب في الفراغتا المكوتبه بالعربي لوضع اسم النوذج واسم الربط بين

النموذجين مثلا حقل الرقم التلقائي بينهما

On Error GoTo Err_أمر34_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "اكتب هنا اسم الجدول الذي تريد فتحه"

' ضع بالاسفل الرابط بين النموذجين وهو هنا (ID)

stLinkCriteria = "[هنا اسم حقل الربط]=" & Me![هنا اسم حقل الربط]

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_أمر34_Click:

Exit Sub

Err_أمر34_Click:

MsgBox Err.Description

Resume Exit_أمر34_Click

الكود معكوس لاني ما عرفت اظيفه عدل بس انسخه والصقه:(

أسـف ممكن يكون سؤالى بدائي شوية

هل ممكن الربط بين نموذجين وكيف الخطوات

وشكرا أخي على اهتمامك بالرد ومن الواضح أن سؤالى لم يلقى القبول حتى أجد الرد عليه

السلام عليكم

اخي الكريم موضوعك قيد الاهتمام من الاعضاء والادارة ولكن ربما هم مشغولون او

من الممكن يوجد موضوع مشابه له في ارشيف المنتدى وانت لم تقم بالبحث عنه انصحك بالبحث

في المنتدى .

اما طريقة الربط بين نموذجين كما وضحت في الكود انشأ نموذج جديد وليكن اسمه نموذج1

ضع الحوق التي تريد فيه ويجب ان يكون احد الحقول مشابه لحقل في النموذج الرئيسي

مثلا الرقم التلقائ في نموذج1 يكون في النوذج الرئسي ايضا حقل رقم تلقائي

بعد ذلك ضع زر امر على النموذج الرئيسي وادخل هذا الكود في حدث عند النقر

On Error GoTo Err_أمر34_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "نموذج1"

' ضع بالاسفل الرابط بين النموذجين وهو هنا (ID)

stLinkCriteria = "[رقم تلقائي]=" & Me![رقم تلقائي]

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_أمر34_Click:

Exit Sub

Err_أمر34_Click:

MsgBox Err.Description

Resume Exit_أمر34_Click

افتح النموذج الرئيسي في وضع العرض مثلا اذا كنت في السجل رقم 10

اضغط على زر الامر الذي وضعت به الكود سيفتح لك نموذج1 في السجل رقم 10

وبس وهذا شرحي على قد الحال لاني لا اجيد الاكسس بالشكل الجيد

واذا فيه احد من الشباب يتكرم ويشرح شرح افضل من هذا فجزاه الله خير

شرح الطريقة بمثال على السريع

أشرف خليل

alhajry.zip