问用DLookup跟踪用户
EN

Stack Overflow用户

提问于 2012-09-10 16:16:45

回答 1查看 72关注 0票数 1

此代码将使用active users id (NBK)更新一个表(tbl_DateTracking)，并根据两个值CaseID和OCC_Scenario更新记录。

这里有个问题：，我们只想将id添加到正在记录的当前记录中。问题是，所有具有CaseID/OCC_场景的记录都被更新为用户id。换句话说，旧的记录正在被改变。

有人能看到添加到代码中的内容吗?只添加当前记录，添加id？

If IsNull(DLookup("[NBK]", "Employees", "[Status]=1")) Then
Retval = MsgBox("Login information not found - Please choose your role manually", vbOKOnly, "Login Error")
     Else
log = DLookup("[NBK]", "Employees", "[Status]=1")

SQLnbk = " Update tbl_DateTracking SET NBK = "
SQLnbk = SQLnbk & "'" & log & "' WHERE "
SQLnbk = SQLnbk & "CaseId = '" & CaseId & "' AND OCC_Scenario = '" & OCC_Scenario & "';"
End If
DoCmd.RunSQL SQLnbk

vba

回答 1

Stack Overflow用户

发布于 2012-09-11 18:41:30

似乎您正在以表单形式更新记录。您可以引用窗体上的控件，例如：

If IsNull(DLookup("[NBK]", "Employees", "[Status]=1")) Then
   Retval = MsgBox( _
      "Login information not found - Please choose your role manually", _
      vbOKOnly, "Login Error")
Else
   log = DLookup("[NBK]", "Employees", "[Status]=1")
   Me.txtNBK=log

附属法例

如果使用的是查询，则需要唯一的ID。例如：

SQLnbk = " Update tbl_DateTracking SET NBK = "
SQLnbk = SQLnbk & "'" & log & "' WHERE "
SQLnbk = SQLnbk & "UniqueID = " & Me.UniqueID

<...>
CurrentDB.Execute SQLnbk, dbFailOnError

票数 0

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/12375163

复制

相似问题

问用DLookup跟踪用户
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问用DLookup跟踪用户EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问用DLookup跟踪用户
EN