我来帮你搞定这个问题——核心是要让SQL存储过程和Access之间能传递状态信息，再由Access端做交互确认，具体步骤如下：

第一步：修改SQL存储过程，添加OUTPUT参数传递状态 #

把原来硬编码的日期改成输入参数，同时新增一个输出参数告诉Access当前月份数据是否存在。存储过程只负责检测和插入（不存在时），替换逻辑交给Access触发。

USE [MyDatabase]
GO

CREATE OR ALTER PROCEDURE [dbo].[SP_Insert_LE_Archive]
    @CutOff DATE, -- 传入要处理的月度截止日期，可根据表中CutOff字段类型调整为VARCHAR
    @IsDataExists INT OUTPUT -- 输出参数：1表示数据已存在，0表示不存在
AS
BEGIN
    SET NOCOUNT ON; -- 避免返回额外行数信息，干扰Access获取输出参数

    -- 检测目标月份数据是否存在
    IF EXISTS(SELECT * FROM [dbo].[Tbl_30_LE_Archive] WHERE cutoff = @CutOff)
    BEGIN
        SET @IsDataExists = 1;
    END
    ELSE
    BEGIN
        SET @IsDataExists = 0;
        -- 不存在则插入新数据
        INSERT INTO [dbo].[Tbl_30_LE_Archive] ([CutOff] ,[COMMIT_ID] ,[Period] ,[Monthly] ,[SAP_ToDate] ,[ToGo] ,[TotalFCST])
        SELECT @CutOff as Cutoff , Commit_ID , Period , Amount , SAP_ToDate , ToGo , TotalFCST
        From [dbo].[MT_LE_This_Mnth]
    END
END
GO

第二步：编写Access端VBA代码，处理交互和替换逻辑 #

在Access中用VBA调用存储过程，获取输出参数的值，然后弹出确认对话框。用户选择「是」则执行删除+插入操作，选择「否」则终止流程。示例代码可放在按钮的点击事件中：

Sub InsertArchiveData()
    Dim conn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim param As ADODB.Parameter
    Dim isExists As Integer
    Dim cutOffDate As String ' 若表中CutOff是DATE类型，可改为Date类型
    
    ' 设置要处理的月度日期，也可动态获取当月：DateSerial(Year(Date), Month(Date), 0)
    cutOffDate = "2022-06"
    
    ' 建立SQL连接，替换为你的ODBC/OLEDB连接字符串
    Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=你的SQL服务器名;Initial Catalog=MyDatabase;Integrated Security=SSPI;"
    conn.Open
    
    ' 调用存储过程检测数据是否存在
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = conn
    cmd.CommandType = adCmdStoredProc
    cmd.CommandText = "SP_Insert_LE_Archive"
    
    ' 添加输入参数：CutOff日期
    Set param = cmd.CreateParameter("@CutOff", adVarChar, adParamInput, 7, cutOffDate)
    cmd.Parameters.Append param
    
    ' 添加输出参数：获取数据存在状态
    Set param = cmd.CreateParameter("@IsDataExists", adInteger, adParamOutput)
    cmd.Parameters.Append param
    
    ' 执行存储过程
    cmd.Execute
    
    ' 获取输出参数的值
    isExists = cmd.Parameters("@IsDataExists").Value
    
    If isExists = 1 Then
        ' 弹出确认对话框
        Dim response As Integer
        response = MsgBox("该日期已存在，是否替换现有数据？", vbYesNo + vbQuestion, "确认替换")
        
        If response = vbYes Then
            ' 用户选择替换：开启事务保证操作原子性
            conn.BeginTrans
            On Error GoTo RollbackTrans
            
            ' 删除旧数据
            conn.Execute "DELETE FROM [dbo].[Tbl_30_LE_Archive] WHERE cutoff = '" & cutOffDate & "'"
            
            ' 插入新数据，也可调用专门的插入存储过程
            conn.Execute "INSERT INTO [dbo].[Tbl_30_LE_Archive] ([CutOff] ,[COMMIT_ID] ,[Period] ,[Monthly] ,[SAP_ToDate] ,[ToGo] ,[TotalFCST]) " & _
                        "SELECT '" & cutOffDate & "' as Cutoff , Commit_ID , Period , Amount , SAP_ToDate , ToGo , TotalFCST " & _
                        "From [dbo].[MT_LE_This_Mnth]"
            
            conn.CommitTrans
            MsgBox "数据替换成功！", vbInformation
        Else
            MsgBox "已取消操作", vbInformation
        End If
    Else
        MsgBox "数据插入成功！", vbInformation
    End If
    
Cleanup:
    ' 关闭连接并释放对象
    If conn.State = adStateOpen Then conn.Close
    Set conn = Nothing
    Set cmd = Nothing
    Exit Sub
    
RollbackTrans:
    ' 出错时回滚事务
    conn.RollbackTrans
    MsgBox "操作失败：" & Err.Description, vbCritical
    GoTo Cleanup
End Sub

关键细节说明 #

• 参数类型匹配：确保@CutOff参数类型和表中CutOff字段一致（比如DATE或VARCHAR），避免类型转换错误。
• 事务处理：替换数据时用事务包裹删除和插入，防止出现删除成功但插入失败的不一致情况。
• 连接字符串：根据你的SQL服务器配置调整，比如用SQL身份验证需添加User ID=xxx;Password=xxx;。

这样就能实现你想要的交互效果：Access调用存储过程后，自动检测数据是否存在，存在则弹出确认框，用户确认后替换数据，否则取消操作。

内容的提问来源于stack exchange，提问作者Graham_C