根據選擇字母的自動編號怎么做啊

chentony

正在試著做一個系統(tǒng),主要是廣告類的,其中要求是按廣告位的分類進行編號:如高速路廣告(類型代碼為gs);公交車身廣告（類型代碼為gj）,現在要求按不同類進行編號，如高速路有三塊廣告位，要編成“gs001”、“gs002”、“gs003”,其它類的同理。我已做了一個表（廣告資源編號）作，里面有類型代碼、廣告編號；另一個表是廣告資源信息表（里面有廣告位編號），在主窗體中有與子窗體對應的未綁定項目，在選擇了主窗體中“廣告類型”后，主窗體中的“廣告位編號”可以根據“廣告類型”的選擇自動編號（編號樣式如上），但做出來的，始終完法根據字母不同編號，如只能編成“gs001”、“gj002”，而不能象這樣“gs001”、“gs002"、gj001”，“gj002”.

chentony

補充：是在Access里面做的

andymark

可以的，可能你的語句中少了按類別分類取值的條件
貼出你的語句

chentony

andymark 發(fā)表于 2011-11-29 15:11
可以的，可能你的語句中少了按類別分類取值的條件
貼出你的語句

新手剛學，所以不懂的太多了，麻煩支個招哈，謝謝！

Private Sub 廣告類型_AfterUpdate()
On Error GoTo Err_廣告類型_Click
Dim myrecordset, mylookup As Variant
Dim number As Variant
'DoCmd.GoToRecord , , acNewRec
'If MsgBox("您確定要新編號嗎?選是將編新號，而且不能更改和刪除", vbYesNo, "關閉!") = vbNo Then
'End
'End If

mylookup = DLookup("類型代碼", "廣告資源編號")

If IsNull(mylookup) Then
   Set myrecordset = CurrentDb.OpenRecordset("廣告資源編號")
   myrecordset.AddNew
   myrecordset("類型代碼") = Me.廣告類型.Value
   myrecordset("廣告編號") = 1
   myrecordset.Update
   number = 1
'End If

Else
  Set myrecordset = CurrentDb.OpenRecordset("廣告資源編號")
  number = myrecordset("廣告編號") + 1
  myrecordset.Edit
  myrecordset("廣告編號") = number
  myrecordset.Update
'ElseIf Format(mylookup, "yyyy/mm") < Format("廣告編號", "yyyy/mm") Then
   'Set myrecordset = CurrentDb.OpenRecordset("廣告資源編號")
   'myrecordset.Edit
   'myrecordset("類型代碼") = Me.廣告類型.Value
   'myrecordset("廣告編號") = 1
   'myrecordset.Update
   'number = 1
End If


Me![廣告位編號] = Me.廣告類型.Value & Format(number, "000")
'Me.廣告類型.

Exit_廣告類型_Click:
    Exit Sub

Err_廣告類型_Click:
    MsgBox Err.Description
    Resume Exit_廣告類型_Click


End Sub

chentony

chentony