Question

我想在我的订单表单中创建序列号，在保存按钮之后它会在表的订单号字段中生成订单号，因为我对VBA知之甚少但是从互联网上获得了一些我试图实现的代码，但是不工作代码如下所示，如果有任何编辑或我误认为

，请参阅回复

表： ID |日期|派对名称|订单号|项目|数量|率|金额|

   Private Sub save_Click()

If Me.orderno = Null Then
Me.orderno = Nz(DMax([Order No], Order), 0) + 1

End If 


End Sub

Answer 1

如果表格的名称是＆＃39;订单＆＃39;，则以下内容应该有效：

If IsNull(Me.orderno) Then
    Me.orderno = Nz(DMax("[Order No]", "Order"), 0) + 1
End If

其他一些评论：

Date是保留字，不应用作字段名称，因此最好更改它以避免出现问题。 http://office.microsoft.com/en-us/access-help/access-2007-reserved-words-and-symbols-HA010030643.aspx
在字段名称中使用空格也是不好的做法。

这里的问题非常明显，但是，为了将来参考，你应该说明你接收的错误以及它发生在哪一行。＆＃39;不工作＆＃39;没有提供任何线索。

添加该行 DoCmd.RunCommand acCmdSaveRecord 最后，确保记录得到保存。确保代码实际上正在运行，并且orderno绑定到字段orderno。如果它仍然无法正常工作，请逐步查看代码以查看发生的情况。至于关于自动编号的评论，如果你不关心编号序列中的间隙，自动编号是可以的，最终将使用自动编号发生。

以ms访问的序列号

1 个答案: