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

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

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

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

      [5分]我想,根據選定字段內容,自動建一個文件夾

      許立劍 等級: 普通會員▲ 積分:189 金幣:40 來自:濱海新區Access交流中心 發表于:2015-04-27 21:34:17   已結帖
      樓主



      就是點擊,根據船名航次,建一個

      Private Sub Command74_Click()
      Dim Rs As ADODB.Recordset
      Dim s As String

      Set Rs = New ADODB.Recordset
      Rs.Open "文件夾", CurrentProject.Connection.ConnectionString, adOpenKeyset, adLockOptimistic

      Rs.MoveFirst
      Do Until Rs.EOF
          
          s = "\\192.168.1.75\共享\共享\業務文件\單船\" & Rs(3)
          MakeDir s
          Rs.MoveNext
      Loop

      Set Rs = Nothing
      End Sub
      Public Function MakeDir(sPath As String)
          If Dir$(sPath, vbDirectory) = "" Then
              MkDir (sPath)
          End If

      End Function

       

      access培訓  誠聘access開發人員

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

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

      網站工作人員微信

      易勛 等級:版主★★★★★ 積分:2179 金幣:9329 來自:上海Access交流中心 發表于2015/4/27 21:55:28 
      1樓 得分: 0
      '在當前位置新建文件夾
      Sub 新建文件夾()
      On Error GoTo 錯誤
          Dim folderName, folderPath As String
          '獲取新建文件夾的名稱,默認為“新建文件夾”
          folderName = InputBox("請輸入文件夾的名稱", "文件夾名", "新建文件夾")
          '設置新建文件夾的路徑
          folderPath = CurrentProject.Path & "\" & folderName
          '新建文件夾
          MkDir folderPath
          Exit Sub
      錯誤: MsgBox Err.Description
      End Sub


          希望我的回答能解決了您的問題,或者所附上的這些信息對您有所幫助!如有任何疑問或需要進一步幫助,請您直接在本站發貼,我們非常樂意幫助您解決問題!
          如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,以方便大家對那些正在等待解決的帖子給予關注!
          易勛  [協助社區成員回帖602篇,其中【最佳答案】187篇;發布技術文章230篇。]
          Access軟件網助教團隊 
          http://www.umvsoft.com
          如果您沒有注冊這個論壇,請單擊下面的鏈接進行注冊,與我在論壇進行交流:
          http://www.www.beijingfeeling.com/reg/reg.asp?userid=35404
          本貼子以“現狀”提供且沒有任何擔保,同時也沒有授予任何權利。
      許立劍 等級:普通會員▲ 積分:189 金幣:40 來自:濱海新區Access交流中心 發表于2015/4/27 22:57:25 
      2樓 得分: 0
      Private Sub Command74_Click()
      On Error GoTo 錯誤
          Dim folderName, folderPath As String
          folderName = Me.Text78
          folderPath = "\\192.168.1.75\共享\共享\業務文件\單船\" & "\" & folderName
          MkDir folderPath
          Exit Sub
      錯誤: MsgBox "該文件夾已存在!"
      End Sub

          許立劍
            獲得社區協助:請教問題(即發帖)7篇,其中獲得解決的3篇;
            協助社區成員:協助他人(即回帖)4篇,其中被設為【最佳答案】的1篇;
            協助我們社區:發布技術文章1篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      許立劍 等級:普通會員▲ 積分:189 金幣:40 來自:濱海新區Access交流中心 發表于2015/4/27 22:57:58 最佳答案
      3樓 得分: 5

      上述語句得先得到文件夾名

       



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