close
access自動編號
想請問各位高手,如何在一個表單出現2個自動編號譬如單據日期為2012/3/10日1.一個欄位會自動出現120310001年月日自動編號2.另一個欄位會自動出現1203001年月自動編號麻煩各位高手了更新:同學您好,謝謝您的回答..可是我沒收到檔案,而且依照您的資料輸入,會顯示NULL使用不正確....麻煩您了~~
請教版主 編號是連續或是中間要留空白 2012-03-12 22:44:17 補充： 開啟表單設計畫面 [日期]-->屬性-->事件-->AfterUpdate-->選擇 事件程序-->右側小幫手-->開啟 VBA畫面 建立AfterUpdate事件程序(填入紅色字) Private Sub 日期_AfterUpdate() Dim aa, bb, cc, dd As String aa = Format(日期, "yymmdd") bb = DMax("單據號碼", "表單", "Mid([單據號碼],1,6)='" & aa & "'") cc = Format(日期, "yymm") dd = DMax("單據序號", "表單", "Mid([單據序號],1,4)='" & cc & "'") If IsNull(bb) Then Me.單據號碼 = aa & "001" Else Me.單據號碼 = aa & Format(Right(bb, 3) + 1, "000") End If If IsNull(dd) Then Me.單據序號 = cc & "001" Else Me.單據序號 = cc & Format(Right(dd, 3) + 1, "000") End If End Sub 關閉VBA畫面-->關閉表單設計-->儲存表單設計變更 已將範例檔案回傳 請試試看 有問題再提出補充發問 圖片參考：http://a.imagehost.org/0959/01-1.jpg 2012-03-13 22:43:40 補充： 我用您的信箱回傳 已重新再傳 如未收到請再來信告知 或是將您修改後的檔案傳給我 幫您檢查問題點
以上文章來自奇摩知識家，如有侵犯請留言告知
https://tw.answers.yahoo.com/question/index?qid=20120311000015KK06550