如何在Access中设置命令按钮实现表间数据转移并删除源数据？

你的代码存在语法错误、逻辑覆盖及匹配不严谨等问题，导致无法正常运行，以下是具体问题点和修正后的解决方案：

原代码的核心问题 #

• 拼写错误：所有sellect应为SQL关键字SELECT，拼写错误会直接导致执行失败
• 语句被覆盖：你先定义了结构正确的SQL语句，随后又重新赋值了错误语句，覆盖了原有有效代码
• 删除逻辑错误：最后一行的删除语句不仅语法不完整（缺少闭合括号），还错误指向了SQL Server链接表dbo_gradingdw，而非本地录入表tblgradingaccdw
• 匹配条件不严谨：仅用pdate作为删除匹配条件，可能误删同一天未转移的数据，存在数据风险

修正后的代码 #

Private Sub TransferData_Click()
    Dim strSQL As String
    Dim ftrSQL As String
    Dim db As DAO.Database
    
    ' 初始化数据库对象并开启事务
    Set db = CurrentDb
    db.BeginTrans
    
    On Error GoTo ErrorHandler
    
    ' 构造插入语句：将本地录入表数据同步至SQL Server链接表
    strSQL = "INSERT INTO dbo_gradingdw (pdate, item, color, grade, issue, description) " & _
             "SELECT pdate, item, color, grade, issue, description " & _
             "FROM tblgradingaccdw;"
    
    ' 构造删除语句：基于全字段匹配删除本地表中已成功转移的数据
    ' 若表存在唯一主键（如ID），替换为主键匹配会更高效准确
    ftrSQL = "DELETE FROM tblgradingaccdw " & _
             "WHERE EXISTS (" & _
             "    SELECT 1 FROM dbo_gradingdw " & _
             "    WHERE dbo_gradingdw.pdate = tblgradingaccdw.pdate " & _
             "    AND dbo_gradingdw.item = tblgradingaccdw.item " & _
             "    AND dbo_gradingdw.color = tblgradingaccdw.color " & _
             "    AND dbo_gradingdw.grade = tblgradingaccdw.grade " & _
             "    AND dbo_gradingdw.issue = tblgradingaccdw.issue " & _
             "    AND dbo_gradingdw.description = tblgradingaccdw.description);"
    
    ' 执行SQL，开启dbFailOnError确保出错时抛出提示
    db.Execute strSQL, dbFailOnError
    db.Execute ftrSQL, dbFailOnError
    
    ' 提交事务，确认操作生效
    db.CommitTrans
    MsgBox "数据转移完成！"
    
ExitSub:
    Set db = Nothing
    Exit Sub
    
ErrorHandler:
    ' 回滚事务，避免数据不一致
    db.Rollback
    MsgBox "数据转移失败：" & Err.Description, vbCritical
    Resume ExitSub
End Sub

关键优化说明 #

• 事务处理：通过BeginTrans、CommitTrans、Rollback确保插入和删除操作原子性，要么全部成功，要么全部回滚，避免数据异常
• 严谨匹配：用EXISTS结合全字段匹配替代IN条件，彻底避免因日期重复导致的误删风险
• 错误捕获：添加错误处理分支，出错时给出明确提示并回滚操作
• 参数配置：保留dbFailOnError参数，确保SQL执行出错时及时抛出错误，便于排查问题

内容的提问来源于stack exchange，提问作者مجید محمدی