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