update语句出错

blade_d

我设计了两个表a和b，都有年份，季节，编号字段 我想用update更新b表，当b.编号=a.编号的时候，b表的年份和季节字段=a表的年份和季节。
设计了一个按钮，加入事件：
Private Sub 确认出库_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim stSql As String
stSql = "UPDATE b SET b.年份 = a.年份 where b.编号 = a.编号" CurrentDb.Execute stSql End Sub
结果提示我“运行时错误3061 参数值不足，期待是2”，选择调试，黄色箭头指向“CurrentDb.Execute stSql”
请高手帮我看看问题出在哪里，谢谢

kangking

UPDATE b SET b.年份 = a.年份 where b.编号 = a.编号

你先把上面的查询句复制到查询设计器中，能查询就没有问题。

blade_d

你好，我试了一下，弹出对话框让我输入b.年份和b.编号的值，怎么回事啊？能再帮我看看吗，十分感谢

kangking

这表明你的查询句有问题。要看你的示例的知道错的什么地方。

blade_d

我现在改好了，是语法出了问题，呵呵。谢谢你的热心帮助哈