ربط نموذج فرعى واخر رئيسى

تفضل :)

ضع هذا الكود على ضغطة الزر المزدوجة للقائمة:

Private Sub SearchList_DblClick(Cancel As Integer)
'On Error Resume Next
'Forms![gardd]![Vdes] = [SearchList]
'Forms![gardd].Form.Requery
'Forms![gardd]![id].SetFocus

ID2 = Me.SearchList.Column(1)

Set rs = Me.Parent.RecordsetClone
rs.FindFirst "[ID]=" & ID2
Me.Parent.Bookmark = rs.Bookmark


End Sub

جعفر

الاخ العزيز jjafferr

شكرا لك على اهتمامك وتفضلك بالرد

الكود يعمل بطريقة صحيحة وحقق المطلوب تماما

فجزاك الله خير الجزاء