文件表:
Company Document Status Notes:
A 1 Submission Submitted on 12-12-12
A 1 Review Reviewed on 12-12-13
A 1 Adopted Adopted on 12-12-14
A 2 Submission Submitted on 01-01-01
A 2 Review Reviewed on 01-01-02
A 2 Adopted Adopted on 01-01-03
我在一个表单上有两个组合框;第一个组合框允许我选择文档并链接到第一个查询:例如选择“1”将返回:
Company Document Status Notes:
A 1 Submission Submitted on 12-12-12
A 1 Review Reviewed on 12-12-13
A 1 Adopted Adopted on 12-12-14
然后第二个组合框允许我选择它的状态并链接到第二个查询;第二个查询用于过滤第一个查询的结果:例如选择“已采用”将返回:
Company Document Status Notes:
A 1 Adopted Adopted on 12-12-14
最后,我有一个文本框,它根据您在两个组合框中的选择显示“注释”字段。例如。选择“1”,然后选择“已采用”将在文本框中显示:
'Adopted on 12-12-14'
我可以编辑出现在文本框中的文本(注意),但我想为按钮分配一个功能,当点击时;将用当前文本框中的文本替换数据库中的“注释”字段。
我已经搜索了一段时间,但似乎无法找到任何有用的东西;我知道代码将进入按钮的 click_event 属性;但我不确定确切使用什么代码。在最标准的形式中,我希望在单击按钮时发生这种情况:
UPDATE Document(Table) SET Notes(Field)=textboxname.value
有什么想法吗?
最佳答案
下面的代码将允许您输入文本,然后将执行 sql 命令来更新记录中的注释。
- 您需要将此代码放在您的按钮点击中。
- 您需要更改 sql 中组合框的名称以使用您拥有的名称。
- 我假设没有唯一的 key 可以用来代替“文档”和“状态”?
我当然希望文件编号永远不会跨公司重复,否则你会更新多行!
Private Sub cmdAddNote_Click() Dim strNote As String Dim strSQL As String Dim dbs As DAO.Database strNote = InputBox("Enter notes below, then click OK:", "Add Notes") If strNote = "" Then ' Cancel Else strSQL = "UPDATE [Documents] SET [Documents].Notes = '" & strNote & "' " & _ "WHERE ((([Documents].[Document])= '" & cbo1 & "') AND (([Documents].[Status])='" & cbo2 & "'));" Set dbs = CurrentDb dbs.Execute strSQL dbs.Close Set dbs = Nothing End If End Sub
关于sql - 如何在编辑后将文本框查询结果保存到数据库? - 微软 Access ,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/34317715/