这个更新查询错在哪里

谢谢1楼、2楼老师！

没有理想的效果
用下面代码只能更新一条记录，不是想要的。
Dim strSQL As String
Dim b As String
Dim a As String

a = Left([员工编码], 1) & Format(Right([员工编码], 2) - 1, "00")
b = Me.员工编码
strSQL = "UPDATE 员工 SET 员工.员工编码 ='" & a & "' WHERE 员工编码 > '" & b & "'"

  DoCmd.SetWarnings False
  DoCmd.RunSQL strSQL
  DoCmd.SetWarnings True
  DoEvents
  MsgBox "已更新！", vbInformation, "消息"

想要的效果是：这个更新查询确实完全能达到要求，凡是大于“Me.员工编码”的全部更新，下面代码就能达到效果，但多出一个查询 "更新员工编码"。用上面的代码就能少这个查询，但没有成功。
DoCmd.OpenQuery "更新员工编码"'这个效果就不错，但就是不想多 "更新员工编码" 这个查询
“更新员工编码”是这样设计的：
字段：员工编码
表：员工
更新到：Left([员工编码],1) & Format(Right([员工编码],2)-"1","00")
条件：>[forms]![员工修改]![员工编码]

而用下面的代码：
DoCmd.RunSQL "UPDATE 袋子 SET 袋子.物料代码 = Left([物料代码],2) & Format(Right([物料代码],2)-'1','00') & WHERE (((袋子.物料代码)>[forms]![袋子]![物料代码]))"
又出现操作符丢失的提示。