在 Access 中更新按钮 VBA 代码

Posted 2023-04-19

【中文标题】在 Access 中更新按钮 VBA 代码

【英文标题】：Update Button VBA Code in Access

【发布时间】：2017-05-18 06:47:50

【问题描述】：

我想根据 Access 表单中的组合框选择来更新数据。我正在寻找更新按钮 VBA 代码。请帮助我。

【问题讨论】：

需要更多信息。 “数据”到底是什么？

我必须从第一个组合框中选择我的许可证号并从第二个组合框更新状态。（关闭、打开、扩展）

【参考方案1】：

将其放在更新按钮的 Click 事件上，并将 "Your..." 替换为实际名称。

Private Sub YourUpdateButtonName_Click()
    Dim sql_ As String
        sql_= "UPDATE YourTablename " & _
              "SET [Status]='" & Me.YourStatusControlName.Value & "' " & _
              "WHERE [Permit Number]='" & Me.YourPermitNumberControlName.Value & "'"
    CurrentDb.Execute sql_, dbFailOnError
End Sub

【讨论】：

感谢您的回复。我放置了您建议的代码。值不会更新。甚至没有抛出错误。

Private Sub Command9_Click() Dim sql_ As String sql_ = "UPDATE dbo_access_control_permit" & _ "SET [permit_status]='" & Me.Combo3.Value & "'" & _ "WHERE [permit_no] ='" & Me.Combo0.Value & "'" CurrentDb.Execute sql_, dbFailOnError End Sub

SQL 命令正确。检查事件是否正在触发，在按钮的 On Click 事件中，您应该有一个 [Event Procedure]。检查组合控件名称。