如何設定access自動編號日期+流水號

Question

請問access 2010要如何設定當天日期+流水號

如2014111901這樣?

謝謝

Answer 1

最佳解答

你先建立一個資料表 d01

我有建好範例

http://sync.hamicloud.net/_oops/awake.tw/ybo

欄位如下

編號:自動編號

日期:日期

流水號:文字

備註:文字

再建立一個表單,在日期的欄位填入如下的程式碼

Private Sub 日期_AfterUpdate()

Dim a As Integer

Dim b As String

a = DCount("編號", "D01", "日期 = #" & Me!日期 & "#")

If a = 0 Then

Me!流水號 = Year(Me!日期) & Format(Month(Me!日期), "00") & Format(Day(Me!日期), "00") & "01"

Else

b = Format(CLng(Right(DMax("流水號", "d01", "日期 = #" & Me!日期 & "#"), 2)) + 1, "00")

Me!流水號 = Year(Me!日期) & Format(Month(Me!日期), "00") & Format(Day(Me!日期), "00") & b

End IfEnd Sub

Answer 2

●九州 娛樂 網站 http://ts777.cc/

●●●運彩遊戲、真人遊戲、電子遊戲、對戰遊戲、對戰遊戲●●●

●新舊會員儲值就送500點

● 真人百家樂彩金等你拿

●線上影片直播、正妹圖、討論區免費註冊

歡迎免費體驗交流試玩!

●九州 娛樂 網站 http://ts777.cc/