عدد محدود من الادخال

اتفضل اخى

ان شاء الله يكون هذا طلبك

Database1_UP.rar

ضع الكود التالي

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.CurrentRecord = 11 Then
MsgBox ("u can not add more than 10 records")
Undo
DoCmd.CancelEvent
End If

End Sub

وليسمح لي طالب مبتدئ . لانه عملته قبل ما اقرأ الرد . وكذلك به فكرة اخرى

اشكركم على المساعده