我尝试使用从 InputBox 传递的文本更新表中的数据。
Private Sub editname_Click()
Dim GivenNameTB As String
Dim EnterName As String
Dim SQl As String
Dim LocationID As Integer
Me.txt_name.SetFocus
GivenNameTB = Me.txt_name.Text
EnterName = InputBox("Change name", "Change name", GivenNameTB)
LocationID = Me.list_ma.Column(1)
SQl = " Update tWorkers SET GivenName = forms!mainform!EnterName WHERE tWorkers.IDName = forms!mainform!LocationID "
CurrentDb.Execute SQl
End Sub
但是,我收到错误代码 3061“参数太少。预期为 2”
编辑:
tWorkers的表结构:
IDName - auto-increment (primary key)
LastName - text
GivenName - text
我针对列给定名称的SET GivenName = ...
,由LocationID行。
LocationID 从列表字段list_ma获取其值。列表字段由五列组成,而 IDName 是第 2 列。
我的重点是更新表中的字段。我的表单中的文本框显示了一个名称,可以通过单击按钮进行编辑。然后弹出一个输入框。输入的字符串应保存在所需的字段中。
我认为你需要DoCmd.RunSQL
而不是CurrentDb.Execute
.
Private Sub editname_Click()
Dim GivenNameTB As String
Dim EnterName As String
Dim SQl As String
Dim LocationID As Integer
Me.txt_name.SetFocus
GivenNameTB = Me.txt_name.Text
EnterName = InputBox("Change name", "Change name", GivenNameTB)
LocationID = Me.list_ma.Column(1)
SQL = " Update tWorkers SET GName = " & chr(34) & EnterName & chr(34) & " WHERE tWorkers.IDName = " & LocationID
Debug.Print SQL -- For checking what code we are running.
DoCmd.RunSQL SQL
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句