在保存事件代码里加这段代码就行了 If DCount("*", "TMP_XXX子表名称") = 0 Then MsgBox "子窗体数据不能为空,请先添加数据!", vbCritical, "警告" Exit Sub End If