SQL - 使用列表框和文本框更改保存记录

时间:2016-11-10 08:59:25

标签: sql ms-access access-vba

我有一个列表框 - 用户点击表格中填充的列表框中的一个结果。

当他们点击列表框中的某个项目时,文本框会填充表格中的结果

在我改变代码为

的文本框上
DoCmd.RunSQL "UPDATE tbl_ComplaintsCoded SET [TicketNumber] = '" & Text3 & "' WHERE ID = " & List1.Column(0)

Text3显示票号 Text5显示部门

用户在收到错误之前尝试更改的部门:

  

标准表达式中的数据类型不匹配

感谢您的帮助

2 个答案:

答案 0 :(得分:0)

我通过这样做解决了这个问题:

Set db = CurrentDb
Set rec = db.OpenRecordset("Select * from tbl_name WHERE TicketNumber = '" & Me.List1.Column(0) & "'")

If rec.EOF Then
MsgBox "You have not selected a record, nothing to save!", vbInformation
Else
rec.Edit

'Top Categories
rec("Business") = Me.Text5
rec("Status") = Me.Text8
rec("MailDate") = Me.Text10

'Complaint Detail Section
rec("Type") = Me.Text19
rec("Sub") = Me.Text21
rec("C") = Me.Text23

'Complaint Coding Section
rec("touch2") = Me.Combo29
rec("touch1") = Me.Combo33
rec("Cause2") = Me.Combo31
rec("cause1") = Me.Combo35

'CS Account Details Section
rec("Account") = Me.Text39
rec("Feed") = Me.Combo41

'Logged Audit User
rec("LoggedUser") = Me.Text43
rec("DateTimeLogged") = Me.Text49

rec.Update

答案 1 :(得分:0)

为了好玩,我把一些更优雅的东西改写成了一些基本的错误处理和更简化的东西。

throw_on_bad(bar);