如何使用VBA在ms访问表单中创建自定义自动编号

Question

我有一个名为"代码"；在我的产品表中。我还有那张桌子的表格。我需要自动生成"；代码"；以GK01、GK02等形式。我尝试过Dmax函数，但它不起作用，可能是因为"；代码"；字段在Text中(得到运行时错误94：无效使用Null(。

我还尝试了通过格式化(字段属性格式选项(访问中的标准自动编号，如Gk'00'。它起作用，但该字段与其他表相关；代码"；是数字格式。因此，它与这种关系相冲突。

现在我想使用VBA在表单中创建上面提到的格式的自动编号。请帮助。。。

Answer 1

Hurray。。。我有一个解决方案。我在Products表中创建了一个名为ID的自动编号字段。然后在表单产品名称字段中，我添加了一个更新后事件过程，如下所示：

Private Sub ProductName_AfterUpdate()
Me.Code.Value = "GK" & Me.ID.Value
End Sub 

它运行得很好。感谢所有试图解决这个问题的人。