在子窗体的窗体的插入前事件中写如下代码

Private Sub Form_BeforeInsert(Cancel As Integer)
If Me.CurrentRecord > 1 Then
MsgBox "已经有一条记录了,不能再加了"
Cancel = True
End If
End Sub