close
如何將Access 編號設定為日期+流水號
如何將Access編號設定為日期+流水號然後日期編碼改變時，流水號重新設定如：201401-001201401-002201402-001我查了一下，大家都說要用VBA但我不確定是不是從工具→巨集→VBA編輯器進去操作有試了一下，但是結果沒有成功請求大大幫個忙，教學一下，或提供範例借研究一下。拜託了，謝謝！*****我參考的範例如下(但是沒有用)*******PrivateSub建立日期_AfterUpdate()StrA="單號like'"&Format(Me![建立日期],...顯示更多如何將Access編號設定為日期+流水號然後日期編碼改變時，流水號重新設定如：201401-001201401-002201402-001我查了一下，大家都說要用VBA但我不確定是不是從工具→巨集→VBA編輯器進去操作有試了一下，但是結果沒有成功請求大大幫個忙，教學一下，或提供範例借研究一下。拜託了，謝謝！*****我參考的範例如下(但是沒有用)*******PrivateSub建立日期_AfterUpdate()StrA="單號like'"&Format(Me![建立日期],"yyyymmdd")-19110000&"*'and建立日期=#"&Me![建立日期]&"#"k=DLookup("單號","訂購單",StrA)IfIsNull(k)ThenMe![單號]=Format(Me![建立日期],"yyyymmdd")-19110000&"01"Elsep=DMax("單號","訂購單",StrA)Me![單號]=p+1EndIfEndSub*******************************************建立日期格式：簡短格式預設值：Now()資料類型：日期/時間單號資料類型：(自動編號)訂購單<資料表名稱>更新:葉您好：我自己的檔案，執行到這段就錯出現錯誤(同一個月份第二筆資料)c=CLng(Right(DMax("日期流水號","流水號範例"),3))+1錯誤訊息：執行階段錯誤'13型態不符合資料表的欄位內容已經設定跟你一樣的，不知道為什麼還會有錯。另一個問題比較重要，就是利用您提供的範例測試，如果1月份key2筆，2月份key1筆，接著再key1月份的，流水號會跳一直跳002而不是003。請問有沒有辦法改善這個問題呢？更新2:日期+流水號OK了!不好意思，有一個新問題。我正在設定選項群組，不過發現選項群組只能單選，請問要怎麼設定為複選呢？更新3:一張單子可以勾選4種類別的產品，這4種可以單選或複選。
Private Sub 建立日期_AfterUpdate() Dim a As String Dim b As Integer Dim c As Long a = Year(Me!建立日期) & Format(Month(Me!建立日期), "00") b = DCount("編號", "流水號範例", "left(日期流水號,6) = '" & a & "'") If b = 0 Then Me!日期流水號 = Year(Me!建立日期) & Format(Month(Me!建立日期), "00") & "-" & "001" Else c = CLng(Right(DMax("日期流水號", "流水號範例"), 3)) + 1 Me!日期流水號 = Year(Me!建立日期) & Format(Month(Me!建立日期), "00") & "-" & Format(c, "000") End If Me.Refresh End Sub 我有做一個範例,.你可以下載看看 http://blog.xuite.net/awake.tw/accessdata/197905657 部落格也有其它有用的文章,你可參考看看 2014-01-23 20:30:09 補充： 你好,請重新下載,有一個地方寫錯了, http://blog.xuite.net/awake.tw/accessdata/197905657 c = CLng(Right(DMax("日期流水號", "流水號範例","left(日期流水號,6) = '" & a & "'"), 3)) + 1 這一段條件沒有判斷好,這個檔應該沒問題, 至旒你的檔案,要看一下才知,如果方便,你可以提供一下檔案給我 2014-01-26 06:23:41 補充： 這可能不行,不知你是什麼用途,我來幫你想看看別種方式
●九州娛樂網站http://ts777.cc●●●運彩遊戲、真人遊戲、電子遊戲、對戰遊戲、對戰遊戲●●●●新舊會員儲值就送500點●真人百家樂彩金等你拿●線上影片直播、正妹圖、討論區免費註冊歡迎免費體驗交流試玩!●九州娛樂網站http://ts777.cchttp://www.FunP.Net/199005參考
以上文章來自奇摩知識家，如有侵犯請留言告知
https://tw.answers.yahoo.com/question/index?qid=20140122000016KK00797