بستن تعداد رکورد در ساب فرم

[111111]

سلام
من می خواستم ببینم می شود در یک سای فرم کاری کرد که بیش از 5 رکورد وارد نکرد یا.
به طور معمول تا بینهایت می توان در ساب فرم یک فرم رکورد ایجاد کرد ولی من می خوام ببینم که می شود کاری کرد که تا یک عددی بیشتر رکورد نشود ایجاد کرد

[mohammadgij]

اره. میشه. کافیه که On Insert چک کنی که اگه تعداد رکورد ها بیشتر از 5 تا است Undo کنه و ذخیره نشه.

[111111]

لطفا یک نمونه فایل می گذارید استاد

[mohammadgij]

این کد رو نوشتم و چک کردم که تعداد رکورد ثبت شده در جدول جزئیات با توجه به رکورد کلیات بیشتر از 8 عدد نباشد.








Private Sub Form_BeforeInsert(Cancel As Integer)

Dim dblCountRecord As Double
dblCountRecord = DCount("intRadif", "tblBimeDetail", "dblBimeCode=" & Me.dblBimeCode.Value & "")
If dblCountRecord = 8 Then
MsgBox "تعداد رکورد ثبت شده برای هر کارگاه نمی تواند بیش از 8 رکورد باشد", vbInformation, "توجه"
Cancel = True
End If

End Sub





راستی من یکی که استاد نیستم کوچیک شمام.