ACCESS資料庫自動編碼問題

Question

設定資料表時有沒有辦法 讓自動編碼的號碼可以隨著日期變動來編碼例如95年12月1日打入資料後，在訂單資料表上的編號可以顯示2006120100001...00002....00003

謝謝你的幫忙

Answer 1

1)確認:訂單資料表上的編號資料屬性是文字.
2)在表單日期的AfterUpdate輸入
Dim f as dao.recordset,P1 as string
P1=Format(Date,"yyyymmdd")
set f=currentdb.openrecordset("Select * from 訂單資料表 where left(編號,8)='" & P1&"')
if f.recordcount=0 then
me!編號=P1&"00001"
Else
p2=Right(DMax("[編號]","[訂單資料表]","Left([編號],8)= '" & P1 & "'),5)
me!編號=P1& Format(p2+1,"00000")'Dmax避免重複與Dcount的差異
End if

2006-11-17 14:37:14 補充：
set f=currentdb.openrecordset("Select * from 訂單資料表 where left(編號,8)='" & P1 & "'")'這是正確的