在Access中更新按钮VBA代码

Question

我想基于Access窗体中的组合框选择更新数据。我正在寻找更新按钮VBA代码。请帮帮我。

Answer 1

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

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