使用VBA将新记录添加到Access中的ODBC链接表中

时间:2019-05-07 04:36:17

标签: sql-server ms-access access-vba

我正在尝试将新记录添加到VBA Access中的ODBC链接表中。当表是本地表时,存储在Access数据库中,则没有问题。但是,当我将表上传到我们的Azure SQL服务器并将其链接到Access数据库时,该代码不再起作用。该代码位于按钮的“ onclick”事件上。

该代码用于添加有关用户何时登录到Access应用程序的快速记录。我已经链接了其他服务器表以获取数据库的表单和报告,没有问题。但以前从未必须在VBA中添加记录。之所以需要在VBA中完成此操作,是因为它需要向用户隐藏。

   Dim Rst As Recordset

         Set Rst = CurrentDb.OpenRecordset("tblLoginLog", dbOpenDynaset)
            With Rst
                .AddNew
                !User = ID
                !LoginDate = Now()
                .Update
            End With

tblLoginLog是表的名称, 用户是员工编号的数字字段, LoginDate是登录成功的日期字段。

如果表存储在本地数据库中,则代码可以工作,但是当表移至服务器时,什么也不会发生。当我单击按钮时,实际上什么也没发生。没有错误信息,什么也没有,当我打开表时,没有数据传递到表中。

0 个答案:

没有答案