请问如何控制记录输入的条数

[LongBow007]

我用的窗体布局是“表格” 每当输完一条记录后就会自动转到下一条记录的录入 我想在输完8条记录后不再自动添加新记录 而是提示“这次你以输满了8条记录”
请问我该怎么做?

[victorycyz]

Private Sub Form_BeforeInsert(Cancel As Integer)

If Me.RecordsetClone.RecordCount > 9 Then
MsgBox "这次你已输满了8条记录"
End If

End Sub

[victorycyz]

Private Sub Form_BeforeInsert(Cancel As Integer)

If Me.RecordsetClone.RecordCount > 9 Then
MsgBox "这次你已输满了8条记录"
cancel=1
End If

End Sub