台灣最大程式設計社群網站
線上人數
844
 
會員總數:245217
討論主題:189089
歡迎您免費加入會員
討論區列表 >> ACCESS >> 自動編號......PC-0001 加 1
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
自動編號......PC-0001 加 1
價值 : 10 QP  點閱數:6654 回應數:39

樓主

小哈
初學者
20 8
756 54
發送站內信

請各位大大幫忙:
我在表單裹 有[PCV NO]櫚位, 想做出自動編號
格式為 PC-0001 開始, 然後每新增一筆便加1

我搜尋了幾個有關自動編號的討論
可是都不適用 (或是我看不明白)
請各位大大指導 或是給我範例

cblk18f@yahoo.com.hk

本篇文章發表於2006-10-29 00:46
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

樹哥
檢舉此回應
Private Lastno0 As Long

Private Sub Form_Load()

Dim mySQL As String ' Shape指令
Set cn2 = New ADODB.Connection
cn2.Provider = "MSDataShape"
cn2.ConnectionString = "Data Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source= D:\XX.MDB"
cn2.Open
mysql3 = " SELECT * FROM XX_NO "
'記錄編號資料表=> [XX_NO] 欄位名稱 =>[RET_NO] 開始設為 0
Set rsrr = New ADODB.Recordset
rsrr.Open mysql3, cn2, adOpenStatic, adLockOptimistic
Lastno0 = rsrr!RET_NO ' 這是記錄最後一筆編號
End Sub
Private Sub Command1_Click()
TEXT1="PC-"+FORMAT(Lastno0+1),"000#") 自動編號加1
.......
.......
'確定存檔時
........
rsrr!RET_NO= VAL(RIGHT(TEXT1,4)
rsrr.UPDATE
Lastno0 = rsrr!RET_NO +1
TEXT1="PC-"+FORMAT((rsrr!RET_NO+1),"000#") 自動編號加1


End Sub







本篇文章回覆於2006-10-29 22:05
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
回應

tungta
捐贈 VP 給 tungta 檢舉此回應
1001 z = DMax("出貨單號", "出貨資料表")
1002 If IsNull(z) = False Then '若出貨單號之最大值有記錄
1003 Me![出貨單號] = "PC" & Format(Right(z, 4) + 1, "0000") '加1後顯示
1004 Else '若出貨單號之最大值沒有記錄
1005 Me![出貨單號] = "PC" & "0001" '顯示0001
1006 End If

範例已寄出
本篇文章回覆於2006-10-30 11:36
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
作者回應

小哈
檢舉此回應
Tungta兄:
你的範例收到了, 也成功套用在我的表單裹,
非常感謝!

樹兄也謝謝你, 恕我坦白, 你寫的指令太深奥了,
我看不明白... 但也很感謝你的好意.
本篇文章回覆於2006-11-01 00:15
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
回應

anai
檢舉此回應
哈囉 大大 我也想要一分範例可以嗎 ??
謝謝
本篇文章回覆於2008-11-25 11:53
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
5樓
回應

ming
檢舉此回應
請問也可以給我一份範例嗎?
absociate@gmail.com
本篇文章回覆於2008-12-16 23:17
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
6樓
回應

tungta
捐贈 VP 給 tungta 檢舉此回應
範例已寄出
本篇文章回覆於2008-12-17 13:59
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
7樓
回應

小蟲子
檢舉此回應
請問可以寄範例給我嗎?謝謝!!
poul@ms45.url.com.tw
本篇文章回覆於2008-12-17 20:01
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
8樓
回應

tungta
捐贈 VP 給 tungta 檢舉此回應
範例已寄出
本篇文章回覆於2008-12-17 20:31
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
9樓
回應

ED
檢舉此回應
請問可以寄範例給我嗎?謝謝!!
o0o_edward_o0o@hotmail.com
本篇文章回覆於2009-03-21 01:12
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
10樓
回應

tungta
捐贈 VP 給 tungta 檢舉此回應
範例已寄出
本篇文章回覆於2009-03-21 02:57
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
11樓
回應

GeoX
檢舉此回應
請問範例還有的話可以寄給我嗎,我有需要用到?謝謝!
geo313@gmail.com
本篇文章回覆於2009-05-07 15:05
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
12樓
回應

tungta
捐贈 VP 給 tungta 檢舉此回應
範例已寄出
本篇文章回覆於2009-05-07 15:48
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
13樓
回應

阿富
檢舉此回應
請問也可以給我一份範例嗎?
azza.sss@msa.hinet.net
本篇文章回覆於2009-08-06 00:07
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
14樓
回應

tungta
捐贈 VP 給 tungta 檢舉此回應
範例已寄出
本篇文章回覆於2009-08-06 17:17
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
15樓
回應

blues
檢舉此回應
也請給我一份範例好嗎?
blues.fung@msa.hinet.net
謝謝!!
本篇文章回覆於2009-08-10 03:24
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   

回覆
如要回應,請先登入.