我想基于Access窗体中的组合框选择更新数据 . 我正在寻找更新按钮VBA代码 . 请帮帮我 .
将其放在“更新”按钮的 Click 事件上,并将"Your…"替换为实际名称 .
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
1 回答
将其放在“更新”按钮的
Click
事件上,并将"Your…"替换为实际名称 .