請問 access 的表格 中的 編號 如何設為  今天+自動編號
例如今天是2008/9/8 這個 自動編號 就是 20080908001

是怎麼設這種自動編號的呢!!

// 找到序號
adoquery1.sql.text := 'SELECT MsysObjects.[Name] tablename FROM MsysObjects'
'WHERE MsysObjects.[Type] IN (1, 4, 6)'
'AND MsysObjects.[Name] like ''' formatdatetime('yyyymmdd',now) '%'''
'ORDER BY MsysObjects.[Name] desc';
adoquery1.open;
if adoquery1.eof then
ii := '001'
else begin
ii := formatfloat('000', strtofloat('copy(adoquery1.fieldbyname('tablename').asstring,9,3)) 1);
end;
// create table
adoquery1.close;
adoquery1.sql.text :='create table ' formatdatetime('yyyymmdd', now) ii ' (fld1 varchar(2), ....)';
adoquery1.execsql;

我沒實測, 請自行測試.
又, 這個需求有點怪, 如果在單機, 可能還可以, 如果是 client-server, 會牽涉到碰撞, lock 問題, 那要考慮的情況可多者囉.

參考一下.


===================引 用 cod3339 文 章===================
請問 access 的表格 中的 編號 如何設為 今天 自動編號
例如今天是2008/9/8 這個 自動編號 就是 20080908001

是怎麼設這種自動編號的呢!!

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.