excel vba写入Access中的特定字段和值
我正在构build一个能够基于用户input列出工具的Excel应用程序。 从这个input，他们能够点击工具（在这种情况下，工具是不同的Excel文件），然后打开新的工具。 由于我在远程服务器上运行这个应用程序，许多人都可以访问这些工具，所以我想在Access数据库中创build一个更新字段isLocked，其中包含所有的工具信息（工具的其他字段包括名称，path， 项目编号）。 所以我的问题是，我怎样才能看到用户打开的工具，然后进入访问数据库，并将字段isLocked更改为YES？ 我想我最终正在寻找特定types的SQL语句…
谢谢你的帮助。
我假设你可以将其添加到打开用户select的Excel文件“工具”的代码。 其他假设包括：tblExcelTools作为表的名称; 数字主键字段tool_id; 一个名为cboToolChooser的combobox控件，它的绑定字段是tool_id。
Dim strSql AS String strSql = "UPDATE tblExcelTools" & vbCrLf & _ "SET isLocked = -1" & vbCrLf & _ "WHERE tool_id = " & Me.cboToolChooser Debug.Print strSql ' look in Immediate window (Ctrl+g) if problems ' CurrentDb.Execute strSql, dbFailonerror 您应该添加一个error handling程序来处理dbFailonerror出现的任何问题。
我认为与此类似的东西可以满足您的即时目标 – 当用户打开工具时，将setLocked设置为-1（True）。 但是，当用户使用该工具时，我不知道如何设置locking为False。
编辑 ：我build议代码示例认为你会从Access运行它，但你从Excel做到这一点。 我不使用Excel的用户forms的东西。 也许这个代码可以简单地适应ADO。 打开你的ADO连接到Access数据库，然后使用： cn.Execute strSql