这个集合中找不到此项目??

xujianglong

dim 字段变量,最大编号 as string

Set db = CurrentDb
Set tb = db.OpenRecordset("送货编号表")
Debug.Print tb.Name
tb.AddNew


With tb
  ![字段变量] = Format(Val(最大编号) + 1, "00000")
  .Update
  .Close

End With

这个集合中找不到此项目.

字段变量是个string变量.如果指定某个字段,代码运行正常,但如果字段名是变量,就不知道怎么编了!!

wuaza

tb(字段变量)= Format(Val(最大编号) + 1, "00000")

xujianglong

谢谢楼上的兄弟!没想到这么快就有回复~~谢谢!