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

    1. <mark id="os3gq"></mark>
    2. Access交流中心

      北京 | 上海 | 天津 | 重慶 | 廣州 | 深圳 | 珠海 | 汕頭 | 佛山 | 中山 | 東莞 | 南京 | 蘇州 | 無錫 | 常州 | 南通 | 揚州 | 徐州 | 杭州 | 溫州 | 寧波 | 臺州 | 福州 | 廈門 | 泉州 | 龍巖 | 合肥 | 蕪湖 | 成都 | 遂寧 | 長沙 | 株洲 | 湘潭 | 武漢 | 南昌 | 濟南 | 青島 | 煙臺 | 濰坊 | 淄博 | 濟寧 | 太原 | 鄭州 | 石家莊 | 保定 | 唐山 | 西安 | 大連 | 沈陽 | 長春 | 昆明 | 蘭州 | 哈爾濱 | 佳木斯 | 南寧 | 桂林 | ???/a> | 貴陽 | 西寧 | 烏魯木齊 | 包頭 |

      回復 加入收藏帖  復制
      我要提問 帖子上移

      批量導入數據后,怎么讓每行的時間按要求在時間范圍內和指定間隔秒數后,隨機生成從小到大的時間

      風的承諾 等級: 普通會員 積分:4 金幣:40 來自:東莞Access交流中心 發表于:2017-12-14 10:13:42   已結帖
      樓主

      1.現在己可以批量導入數據

      2.沒有解決的是表中的開封時間要在窗體中的開始-結束時間范圍內,再加上間隔的秒數,生產每行的隨機時間,時間要從條碼開始碼起從小到大的順序生產


      上面的數據表中的時間沒有隨機加間隔秒數從小到大生成

      點擊下載此附件

      希望論壇的各位大神,幫助解決一下在窗體中的開始-結束時間范圍內,再加上間隔的秒數,生產每行的隨機時間,時間要從條碼開始碼起從小到大的順序生成

       

      access培訓  誠聘access開發人員

          風的承諾
            獲得社區協助:請教問題(即發帖)16篇,其中獲得解決的5篇;
            協助社區成員:協助他人(即回帖)4篇,其中被設為【最佳答案】的1篇;
            協助我們社區:發布技術文章1篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      Top

      掃描下方工作人員的微信二維碼加微信,邀您加入Access課堂微信群,進入一個技術交際圈:

      網站工作人員微信

      MDZZ 等級:版主★★★★★ 積分:1246 金幣:5840 來自:南京Access交流中心 發表于2017/12/14 11:48:59 
      1樓 得分: 0
      把需求說清楚  最好舉例  

          希望我的回答能解決了您的問題,或者所附上的這些信息對您有所幫助!如有任何疑問或需要進一步幫助,請您直接在本站發貼,我們非常樂意幫助您解決問題!
          如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,以方便大家對那些正在等待解決的帖子給予關注!
          Natsume Takashi   [協助社區成員回帖1072篇,其中【最佳答案】367篇;發布技術文章146篇。]
          Access軟件網助教團隊 
          http://www.umvsoft.com
          如果您沒有注冊這個論壇,請單擊下面的鏈接進行注冊,與我在論壇進行交流:
          http://www.beijingfeeling.com/reg/reg.asp?userid=47512
          本貼子以“現狀”提供且沒有任何擔保,同時也沒有授予任何權利。
      紅塵如煙 等級:管理員★★★★★ 積分:9150 金幣:8520 來自:成都Access交流中心 發表于2017/12/15 9:03:54 
      2樓 得分: 0
      Private Sub 自動導入_Click()
          On Error GoTo ErrorHandler
          
          ' 檢查數據錄入是否正確
          If IsNull(Me.線別) Or IsNull(Me.組合十碼) Or IsNull(Me.條碼) Or IsNull(Me.條碼開始碼) Or IsNull(Me.條碼結束碼) Or IsNull(Me.PCB開封時間) Then
              MsgBox "數據未保存!請把信息填寫完整后重試...", vbExclamation, "提示"
              Exit Sub
          End If
          
          If Len(Me.條碼開始碼) <> Len(Me.條碼結束碼) Then
              MsgBox "開始碼與結束碼位數不一致!請重新輸入...", vbExclamation, "提示"
              Exit Sub
          End If
          
          If Val(Me.條碼開始碼) > Val(Me.條碼結束碼) Then
              MsgBox "開始碼不能大于結束碼!請重新輸入...", vbExclamation, "提示"
              Exit Sub
          End If
         
          '條碼位數
          Dim lngBarCodeLength As Long: lngBarCodeLength = Len(Me.條碼開始碼)
          Dim dtmOpenTime As Date: dtmOpenTime = Me.PCB開封時間
      
          ' 開始保存數據
          Dim lngI As Long
          For lngI = Val(Me.條碼開始碼) To Val(Me.條碼結束碼)
              ' 計算并格式化證書編碼
              Dim strBarCode As String: strBarCode = Me.條碼 & Format(lngI, String(lngBarCodeLength, "0"))
              ' 用INSERT語句寫入數據
              CurrentDb.Execute " INSERT INTO DATA(線別,組合十碼,條碼,PCB開封時間)" _
                              & " VALUES ('" & Me.線別 & "', '" & Me.組合十碼 & "', '" & strBarCode & "', '" & Format(dtmOpenTime, "yyyy-mm-dd hh:nn:ss") & "')"
              'PCB開始時間累加,每一條的時間都是在前一條的時間上加上間隔時間得到
              dtmOpenTime = DateAdd("s", Me.PCB開封間隔時間, dtmOpenTime)
          Next
      
      ExitHere:
          Exit Sub
          
      ErrorHandler:
          MsgBox Err.Description, vbCritical, "錯誤 #" & Err
          Resume ExitHere
      End Sub
      
      data-1(改2).zip


          希望我的回答能解決了您的問題,或者所附上的這些信息對您有所幫助!如有任何疑問或需要進一步幫助,請您直接在本站發貼,我們非常樂意幫助您解決問題!
          如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,以方便大家對那些正在等待解決的帖子給予關注!
          紅塵如煙  [協助社區成員回帖411篇,其中【最佳答案】208篇;發布技術文章213篇。]
          UMVSoft在線支持工程師
          http://www.umvsoft.com
          如果您沒有注冊這個論壇,請單擊下面的鏈接進行注冊,與我在論壇進行交流:
          http://www.beijingfeeling.com/reg/reg.asp?userid=10768
          本貼子以“現狀”提供且沒有任何擔保,同時也沒有授予任何權利。
      紅塵如煙 等級:管理員★★★★★ 積分:9150 金幣:8520 來自:成都Access交流中心 發表于2017/12/15 9:10:31 
      3樓 得分: 0
      你把概念都弄混了,你這個只是順序數,根本不是隨機數。


          希望我的回答能解決了您的問題,或者所附上的這些信息對您有所幫助!如有任何疑問或需要進一步幫助,請您直接在本站發貼,我們非常樂意幫助您解決問題!
          如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,以方便大家對那些正在等待解決的帖子給予關注!
          紅塵如煙  [協助社區成員回帖411篇,其中【最佳答案】208篇;發布技術文章213篇。]
          UMVSoft在線支持工程師
          http://www.umvsoft.com
          如果您沒有注冊這個論壇,請單擊下面的鏈接進行注冊,與我在論壇進行交流:
          http://www.beijingfeeling.com/reg/reg.asp?userid=10768
          本貼子以“現狀”提供且沒有任何擔保,同時也沒有授予任何權利。
      風的承諾 等級:普通會員 積分:4 金幣:40 來自:東莞Access交流中心 發表于2017/12/15 9:31:41 
      4樓 得分: 0
      感謝

          風的承諾
            獲得社區協助:請教問題(即發帖)16篇,其中獲得解決的5篇;
            協助社區成員:協助他人(即回帖)4篇,其中被設為【最佳答案】的1篇;
            協助我們社區:發布技術文章1篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      紅塵如煙 等級:管理員★★★★★ 積分:9150 金幣:8520 來自:成都Access交流中心 發表于2017/12/15 10:22:59 最佳答案
      5樓 得分: 2
      剛才的代碼有個變量名稱不對,我重新上傳了,你重新下載


          希望我的回答能解決了您的問題,或者所附上的這些信息對您有所幫助!如有任何疑問或需要進一步幫助,請您直接在本站發貼,我們非常樂意幫助您解決問題!
          如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,以方便大家對那些正在等待解決的帖子給予關注!
          紅塵如煙  [協助社區成員回帖411篇,其中【最佳答案】208篇;發布技術文章213篇。]
          UMVSoft在線支持工程師
          http://www.umvsoft.com
          如果您沒有注冊這個論壇,請單擊下面的鏈接進行注冊,與我在論壇進行交流:
          http://www.beijingfeeling.com/reg/reg.asp?userid=10768
          本貼子以“現狀”提供且沒有任何擔保,同時也沒有授予任何權利。
      風的承諾 等級:普通會員 積分:4 金幣:40 來自:東莞Access交流中心 發表于2017/12/22 15:44:24 
      6樓 得分: 0

      謝謝




          風的承諾
            獲得社區協助:請教問題(即發帖)16篇,其中獲得解決的5篇;
            協助社區成員:協助他人(即回帖)4篇,其中被設為【最佳答案】的1篇;
            協助我們社區:發布技術文章1篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      總記錄:6篇  頁次:1/1 9 1 :
      您還沒有在Access軟件網登錄不能回復帖子
      • 你沒有登錄,請點擊后面鏈接登錄:登錄
      • 如果你沒有注冊,請點擊后面鏈接注冊:注冊,注冊完成后,請再次訪問本頁功能。
       
      湖北11选5