[5分]如何在追加时检查,并有提示

请将如下代码替换你的Command4_Click()代码:

Private Sub Command4_Click()
On Error GoTo Err_Command4_Click
Dim str, nam As String
Dim rs As ADODB.Recordset
str = "SELECT 姓名,婚否,任务 FROM 表1 WHERE 婚否 = No AND 任务 <> '" & "MCY" & "'"
Set rs = New ADODB.Recordset
rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
If rs.RecordCount > 0 Then

    For i = 1 To rs.RecordCount
        nam = nam & "," & rs.Fields(0)
        rs.MoveNext
    Next
Else
    MsgBox "没有符合条件的记录要追加"
    Exit Sub
End If
nam = Right(nam, Len(nam) - 1) & "的任务不是MCY"
MsgBox nam

DoCmd.OpenQuery "ADD", , acReadOnly

'DoCmd.RunSQL "INSERT INTO 表2 ( 员工编号,姓名, 性别, 出生年月, 日期, 婚否 )SELECT 表1.员工编号,表1.姓名, 表1.性别, 表1.出生年月, 表1.日期, 表1.婚否 FROM 表1 WHERE(((表1.婚否) = False))"

Me.Refresh
Exit_Command4_Click:
    Exit Sub

Err_Command4_Click:
    MsgBox "你取消了这次操作"
    Resume Exit_Command4_Click
    'Exit Sub
    
'End If

End Sub