CaseID
このコードは、アクティブユーザーID(NBK)でテーブル(tbl_DateTracking)を更新し、2つの値とに基づいてレコードを更新しますOCC_Scenario
。
ここに問題があります:記録されている現在のレコードにIDを追加したいだけです。問題は、CaseID/OCC_Scenarioを持つすべてのレコードがユーザー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