پیدا کردن رکورد متناظر فرم از رکوردست یک کوئری

[abdoreza57]

ضمن سلام و خسته نباشید خدمت تمام دوستان و اساتید گرانقدر

در نمونه فایل ضمیمه از آنجا که هر مشتری در فاکتور های متعددی حساب دارد تصمیم گرفتم بر حسب شماره تماس آنها را محدود کنم لیست بدهکاری مشتریان در هر فاکتور هم توسط کوئری محاسبه شده تا اینجا مشکلی نیست ولی با فیلتر کردن شماره فاکتور میخوام تو ساب فرم جستجو همون رکورد متناظر پیدا بشه که خطا میگیره

برای پیدا کردن رکورد متناظر تو ساب فرم کدی را یکی از دوستان قرار داده بودند که متاسفانه وقتی از چند کوئری
به هم متصل باشند ارور 13 صادر میشه ضمن قدردانی از استاد امیری گل بابت راهنمایی که تو بدست آوردن میزان بدهی شخص در صورت وجود مقدار در زیر فرم و فرم ارائه نمودند ( تو قسمت کوئری استفاده کردم )ممنون میشم در صورتی که کلید حل این معما را هم برام لطف کنند

منتظر راهنمایی های ارزشمندتان هستم

[Abbas Amiri]

سلام
کد زیر را جایگزین کنید


Private Sub List14_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[FactorID] = " & Nz(Me.List14.Column(2), 0)
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub