我正在尝试将新记录添加到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是登录成功的日期字段。
如果表存储在本地数据库中,则代码可以工作,但是当表移至服务器时,什么也不会发生。当我单击按钮时,实际上什么也没发生。没有错误信息,什么也没有,当我打开表时,没有数据传递到表中。