我正在尝试在 MS Access 中设置一个代码,以增加文本字段的最后四个位置。文本字段中的数字有七位数字。例如:
0010012
0010013
前三位代表制造商,后四位代表产品。这些是我想要增加的。我正在使用我在网上找到的下面的代码,它应该可以工作,但我不断收到错误消息:“运行时错误'13':类型不匹配”
Dim varSifra As Variant
varSifra = DMax("[Sifra]", "tblProducts", "[Manufacturer] = " & Forms!frmProduct!Manufacturer)
Me.[Sifra] = Left(varSifra, 3) & Format(Val(Right(varSifra, 4)) + 1, "0000")
我尝试了没有 Format 函数的代码,但我得到的是 00114 而不是递增的数字 0010014