首页 文章

在Access中更新按钮VBA代码

提问于
浏览
-5

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

1 回答

  • 0

    将其放在“更新”按钮的 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
    

相关问题