如何擷取出Recordset的Table Name
- 帖子
- 132
- 主題
- 31
- 精華
- 0
- 積分
- 167
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taipei
- 註冊時間
- 2011-4-14
- 最後登錄
- 2024-2-28
  
|
回復 2# GBKEE
Hi GBKEE,
我在載入Microsoft DAO 3.6 Object Libaray時發生錯誤，不知道有方法可以解嗎？ |
|
|
clio
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2018-2-5 13:14
| 只看該作者
回復 1# clio
試試看
工具-設定引用項目,選中 "Microsoft DAO3.6 Object Library”- Option Explicit
- Sub Ex()
- Dim Da As DAO.Database, ta As DAO.TableDef
- Set Da = DAO.OpenDatabase("路徑\Database.mdb")
- For Each ta In Da.TableDefs
- If InStr(ta.Name, "MSys") = 0 Then Debug.Print ta.Name
- Next
- Da.Close
- End Sub
|
|
|
|
|
|
|
|
發表於 2018-2-5 14:29
| 
