Access宏执行后窗体文本/标题无法永久保存问题求助

你的核心问题是：运行时修改控件的Caption后，重启Access就恢复初始值——这是因为运行时修改的控件属性属于临时实例属性，不会自动持久化到窗体的设计文件中，哪怕调用DoCmd.Save也未必能稳定保存。下面是两种解决方案，优先推荐第一种：

方案一：用配置表存储运行信息（最可靠） #

通过创建专门的配置表，把最后运行时间、删除日期等信息存在数据库里，窗体加载时从表中读取并显示，彻底避免重启丢失的问题。

步骤1：创建配置表 #

新建一张名为tbl_Config的表，字段设置如下：

• ConfigID：自动编号，主键（唯一标识配置记录）
• LastRunTime：日期/时间类型（存储最后运行时间）
• LastDeleteDate：文本类型（存储用户输入的删除截止日期，也可设为日期/时间类型）

步骤2：修改宏的VBA代码 #

更新按钮点击事件的代码，执行删除后把运行信息写入配置表：

Private Sub Comando0_Click()
    Dim dataate As Variant
    dataate = InputBox("Periodo a ser deletado até [DD/MM/AAAA]:")

    ' 验证日期有效性
    If Not IsDate(dataate) Then
        MsgBox "Data inválida! Por favor insira uma data no formato DD/MM/AAAA."
        Exit Sub
    End If
    dataate = Format(CDate(dataate), "dd/mm/yyyy")

    ' 执行删除查询
    Dim qdf As DAO.QueryDef
    Dim count As Long
    Set qdf = CurrentDb().QueryDefs("Teste 1")
    With qdf
        .Parameters("[prmDataAte]").Value = CDate(dataate)
        .Execute dbFailOnError
        count = .RecordsAffected
    End With
    MsgBox " " & count & " registros foram apagados da tbl_tabela_de_preco"
    
    ' 保存运行信息到配置表
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb()
    
    ' 查找配置记录（用ConfigID=1作为唯一配置项）
    Set rs = db.OpenRecordset("SELECT * FROM tbl_Config WHERE ConfigID=1", dbOpenDynaset)
    If rs.EOF Then
        ' 无记录则新增
        rs.AddNew
        rs!ConfigID = 1
    End If
    ' 更新字段值
    rs!LastRunTime = Now()
    rs!LastDeleteDate = dataate
    rs.Update
    rs.Close
    
    ' 更新当前窗体控件显示
    Me.teste3.Caption = Now()
    ' 如果Formulário1已打开，同步更新其控件
    If IsLoaded("Formulário1") Then
        Forms("Formulário1").teste2.Caption = "Dados excluídos até: " & dataate
    End If
    
    ' 释放对象
    Set rs = Nothing
    Set db = Nothing
    Set qdf = Nothing
End Sub

步骤3：添加窗体加载事件代码 #

在显示运行时间的窗体（当前窗体和Formulário1）的Form_Load事件中，从配置表读取数据并显示：

Private Sub Form_Load()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb()
    
    Set rs = db.OpenRecordset("SELECT * FROM tbl_Config WHERE ConfigID=1", dbOpenDynaset)
    If Not rs.EOF Then
        Me.teste3.Caption = rs!LastRunTime
        ' 如果是Formulário1的加载事件，替换为以下代码：
        ' Me.teste2.Caption = "Dados excluídos até: " & rs!LastDeleteDate
    Else
        ' 无记录时的默认提示
        Me.teste3.Caption = "Nunca executado"
    End If
    
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub

步骤4：添加窗体加载判断函数 #

为避免更新其他窗体时出现“窗体未打开”的错误，添加辅助函数：

Function IsLoaded(formName As String) As Boolean
    ' 判断指定窗体是否处于打开状态
    IsLoaded = (SysCmd(acSysCmdGetObjectState, acForm, formName) <> 0)
End Function

方案二：修改窗体设计属性（不推荐） #

如果一定要直接修改窗体的设计属性来保存Caption，需要关闭窗体后在设计视图中修改——这种方式需要设计权限，且多人使用时容易冲突：

Private Sub Comando0_Click()
    ' （前面的删除逻辑不变）
    
    ' 关闭当前窗体
    DoCmd.Close acForm, Me.Name, acSaveNo
    ' 以设计视图打开窗体
    Dim frm As Access.Form
    Set frm = Forms.OpenForm(Me.Name, acDesign)
    ' 修改控件的设计属性
    frm.Controls("teste3").Caption = Now()
    ' 保存设计并关闭
    DoCmd.Save acForm, Me.Name
    DoCmd.Close acForm, Me.Name, acSaveYes
    ' 重新打开窗体
    DoCmd.OpenForm Me.Name
End Sub

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