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

[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

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