ضبط كود تحديث

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Users SET Users.LastInterDate = '" & [Forms]![Step3]![bar] & "' WHERE (((Users.incode([UName])=[forms]![Step3]![User]));"
DoCmd.SetWarnings True

السلام عليكم

ارجو المساعدة في ضبط هذا الكود لأنه لا يعمل عندي علي تحديث حقل تسجيل تاريخ الدخول LastInterDate في جدول Users عند اختيار اسم المستخدم UName (المشفر) من مربع النص User في النموذج Step3 و incode عامل التشفير وشكراً