批量更新问题
大家好！我有个棘手的问题。也就是库存里面的结转问题把２００５年的库存结转到２００６年，在库存的数据库里面把＂年＂字段给更新为２００６年．我写了一段程序总是实现不了这个功能，我上来想让各位高手帮帮我，帮我看看我的程序到底是怎么回事．谢谢大家．
stock.RecordSource = "select * from stock where year(年)= '" & Year(Date) - 1 & "'"
stock.Refresh
Do While stock.Recordset.EOF = False
stock.Recordset.MoveFirst
With stock.Recordset
.Fields("年") = Year(Date)
.Update
.MoveNext
End With
Loop
Unload Me
