تعیین تعداد آیتم ساب فرم در فرم

[arokham]

سلام
من یک فرم و یک ساب فرم دارم میخوام در فرم تعداد رکورد های ساب فرم رو تعیین کنم مثلا حداقل 1 آیتم و حد اکثر 9 ایتم در ساب فرم ایجاد بشه خواهشا" اساتید راهنمائی کنند.:متفکر:

[Abbas Amiri]

سلام
در رویداد Form_Current سابفرمتان بنویسید


Private Sub Form_Current()
Me.AllowAdditions = (Me.Recordset.RecordCount < 9)
End Sub

[saeed1234n]

با سلام
خدمت تمامی دوستان
می خواستم بدان که رویداد Form_Current در چه مواقعی استفاده می شود
و چه فرقی با رویدادهای Form_Activate , Form_Load دارد

[arokham]

ممنون از راهنمایتون فقط میخوام عدد 1 تا 9 که توی فرم بوسیله یکlist box انتخاب میشه تعیین کننده تعداد رکورد های سابفرمم بشه چه کدی باید تو رویداد list box فرم اصلیم بنویسم؟ ممنون میشم راهنمائی فرمائید بازم تشکر

[Abbas Amiri]

سلام
در رویداد Listbox0_AfterUpdate در فرم اصلی بنویسید


Private Sub ListBox0_AfterUpdate()
If IsNull(ListBox0) Then Exit Sub
with Me.SubformName.From
.AllowAdditions=(.Recordset.RecrdCount<Listboxo)
End With
End Sub

[arokham]

ممنون دوست عزیز از راهنمایتون ولی نمیدونم کجا رو اشتباه کردم runtime-Error میده
Opject dosn't support property or method

بعد از دی باگ این خط و اشکال میگیره .AllowAdditions = (.Recordset.RecrdCount < List17)

[Abbas Amiri]

بجای RecrdCountبنویسید RecordCount

[arokham]

خیلی ممنون دوست عزیز تشکر فراوان