以毫秒为单位的序列号

Question

我想在我的订单中创建序列号，保存按钮后它会生成订单号订单号表字段，因为我没有太多的VBA知识，但从互联网获得了一些代码，我试图实现，但它不工作 下面请看回复代码给出是否有任何编辑或在IM mistaked

表： ID |日期|派对名称|订单号| Item | qty |价格|金额|

Private Sub save_Click() 

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

End If 


End Sub 

Answer 1

如果表的名称是 '订单'，下面应该工作：

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

• 这也是不良做法字段名称中使用空格。

这里的问题是相当明显的，但是，以供将来参考，您应该说明您收到了什么错误以及其行上发生。 “不工作”不提供任何线索。

添加行 DoCmd.RunCommand acCmdSaveRecord 最后，以确保记录已保存。 确保代码的实际运行和orderno绑定到外地orderno。 如果它仍然不起作用，请通过他的代码来查看发生了什么。 至于关于自动编号的注释，如果您不关心编号顺序中的间隙，那么最终会使用自动编号进行编号，并且自动编号很好。