ثبت يك ركورد در سابفرم

[khosravani]

با سلام
دوستان راهنمائي كنيد چگونه ميتوان در سابفرم ( به صورت child) فقط يك ركورد ثبت نمود و به محض رسيدن به فيلد اخر كرسل از سابفرم خارج شود.منظور امكان ثبت فقط يك ركورد وجود داشته باشد.

[مجتبی جوادی]

شما باید تو AfterUpdate سابفرم یک تقاضا به جدول SubForm بفرستید که چک کنه اگر تعداد رکوردها مساوی یک باشه از برنامه خارج بشه

[khosravani]

ممكنه بيشتر توضيح دهيد.
با تشكر

[مجتبی جوادی]

چیزی شبیه کد زیر :

Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT SubTable.* FROM MainTable INNER JOIN SubTable ON MainTable.LinkFields = SubTable.LinkFields WHERE MainTable.LinkFields='" & MasterLinkFields & "'")
If rs.RecordCount > 0 Then
rs.Close
DoCmd.Close
End If

[dadsara]

با سلام
دوستان راهنمائي كنيد چگونه ميتوان در سابفرم ( به صورت child) فقط يك ركورد ثبت نمود و به محض رسيدن به فيلد اخر كرسل از سابفرم خارج شود.منظور امكان ثبت فقط يك ركورد وجود داشته باشد.
سلام
ببخشید سوال می کنم اگر فقط قرار یک رکورد در سابفرم ایجاد شود پس چرا از سابفرم استفاده می کنید