匿名使用者
匿名使用者 發問時間: 電腦與網際網路軟體 · 6 年前

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

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

如2014111901這樣?

謝謝

2 個解答

評分
  • Lv 5
    6 年前
    最佳解答

    你先建立一個資料表 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

  • 6 年前

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

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

    ●新舊會員儲值就送500點

    ● 真人百家樂彩金等你拿

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

    歡迎免費體驗交流試玩!

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

還有問題?馬上發問,尋求解答。