<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. 兩年份+五自然數生成編號簡單示例-楊漢寶
      Access軟件網QQ交流學習群(群號碼198465573),歡迎您的加入!
      首頁 >技術文章> Access數據庫-模塊/函數/VBA


      兩年份+五自然數生成編號簡單示例

      發表時間:2013/10/16 22:25:26 評論(3) 瀏覽(4292)  評論 | 加入收藏 | 復制
         
      摘 要:應網友要求制作這個比較簡單的自動編號處理過程示例,僅根據其要求兩位年份+五位自然數構成的自動編號生成過程
      正 文:

      點擊下載此附件

      '自動編號生成處理過程
      '格式:后兩位年份+五位基本從1開始的順序數
      '使用方法單擊按鈕自動生成
      Private Sub Command22_Click()
          Me.Recalc
          Dim sjNF As String, sjTJFS As Long
          sjNF = Format(Now(), "yy")
          sjTJFS = DCount("*", "本年單據查詢")
          If Not IsNull(Me.ID) Then
              If Not IsNull(Me.編號) Then
                  MsgBox "本項單據已編號,無法重新編輯!"
              Else
                  If sjTJFS = 0 Then
                      Me.編號 = CLng(sjNF & "00001")
                  Else
                      Me.編號 = DMax("編號", "報銷單據流水單") + 1
                  End If
                  MsgBox "單據編號生成成功!"
              End If
          Else
              MsgBox "無法給空白記錄編號,請先創建記錄后再生成編號!"
          End If
      End Sub




      Access軟件網交流QQ群(群號:198465573)
       
       相關文章
      [access查詢]對竹笛先生的[示例]查詢中自動編號的修改   【wqm099  2010/9/1】
      【access源碼】分組自動編號\篩選數據后自動分組編號的示例\分...  【麥田  2011/7/26】
      【Access源碼示例】根據主號生成子編號示例  【金宇  2012/11/12】
      日期/月份為變量的自動編號(自動續號)函數  【網行者  2013/7/14】
      數據庫編號遞增,補回中斷編號   【周芳(轉)  2013/9/24】
       
       訪客評論
      2013/10/17楊漢寶
      此字段如果是文本型可塑性會更大,可以生成各種不同字頭的編號,當然處理方法會有所不同

      2013/10/17楊漢寶
      當前編號是整型數據類型字段,只能保存純數字,但可以通過修改這個字段或所在的控件格式屬性也可以達到你提的要求。格式屬性="PA"0000000

      2013/10/17海田
      謝謝分享!如果能自動編號及編號前加個字頭如"PA"就更好了。

      總記錄:3篇  頁次:1/1 9 1 :
       
       發表評論
      評論內容 (必填)

      常見問答
      技術分類
      相關資源
      文章搜索
      關于作者

      楊漢寶

      文章分類

      文章存檔

      友情鏈接
       
         
      湖北11选5