ACCESS 進貨數量編號問題!!

Question

請問若是進貨數量，可否輸入之後自動編出料號呢?
例：輸入下列資料
品名：硬碟 數量：5 金額：100
品名：滑鼠 數量：2 金額：50

我要的是他自動編出
編號 品名 金額
0001 硬碟 100
0002 硬碟 100
0003 硬碟 100
0004 硬碟 100
0005 硬碟 100
0006 滑鼠 50
0007 滑鼠 50

請問是哪些要改成半形啊?
他都一直說編譯錯誤：必須是then或go to

用了意見裡的
現在卻出現必須是 End Sub

不好意思我把我要資料給你 可否幫我看是哪邊出錯了嗎?
資料表裡的格式 >>編號/日期/品名/數量/單價
然後套入表單中

我要的是在表單輸入
日期：3/20、品名：硬碟、數量：5、單價：50

他會在資料表那邊自動編出五比資料
0001 3/20 硬碟 50
0002 3/20 硬碟 50
0003 3/20 硬碟 50
0004 3/20 硬碟 50
0005 3/20 硬碟 50

Answer 1

有關你的問題_由表單操作來設定

1:再表單_品名_欄位 AfterUpdate() 輸入:
if me.newrecord=true then
If DMax(＂編號＂,＂資料表＂,＂編號 ＂＜＞＂＂) ＜＞＂＂
Then me!編號=format(DMax(＂編號＂,＂資料表＂,＂編號 ＂＜＞＂＂) ＋ 1,＂0000＂)
else me!編號=＂0001＂
end if
END IF

PS:
1 ＂＜＞＂＋右邊符號是全型__請自行改半形
2 資料表_輸入實際資料表名稱
3 編號_在資料表中的資料型態設定_文字
以上希望有幫上忙.

2007-03-20 16:58:40 補充：
if me.newrecord=true then
If DMax("編號","資料表","編號"<>"") <>""Then
me!編號=format(DMax("編號","資料表","編號"<>"") ＋ 1,"0000")
else me!編號="0001"
end if
END IF

2007-03-20 17:00:43 補充：
正確表示法在意見(1)_不必更新符號

2007-03-20 22:24:47 補充：
1:我試過.上述的程式是可以正常操作.
2:如果可行的話.將檔案寄到_ [e-mail]

Answer 2

作一點建議:
買一本學貫行銷_實戰問答的書_書中就有詳細解答.