以毫秒爲單位的序列號

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。 如果它仍然不起作用，請通過他的代碼來查看發生了什麼。 至於關於自動編號的註釋，如果您不關心編號順序中的間隙，那麼最終會使用自動編號進行編號，並且自動編號很好。