Dim NOWSTALK As String
Dim Sql As String
Dim NOWITHERE As Date
Dim THEREBYWHO As String
If Me.OrigStalker <> "" Then
NOWSTALK = Me.OrigStalker
NOWITHERE = Now()
THEREBYWHO = [Forms]![frmSignOn]![Combo9]
Sql = "UPDATE IAMHERE SET "
Sql = Sql & "[LOCATION] = 'Stalker Closed', "
Sql = Sql & "[STALKCOMMENT] = 'Added to Coating and Splicing Inventory', "
Sql = Sql & "[WHOLOCATION] = '" & THEREBYWHO & "', "
Sql = Sql & "[WHENLOCATION] = #" & NOWITHERE & "#, "
Sql = Sql & "[ComplWho] = '" & THEREBYWHO & "', "
Sql = Sql & "[ComplWhen] = #" & NOWITHERE & "# "
Sql = Sql & " WHERE [STALKER] = '" & NOWSTALK & "' ;"
'Turn warning off, run SQL, turn them back on again
DoCmd.SetWarnings False
DoCmd.RunSQL Sql, 0
DoCmd.SetWarnings True
End If