VBA打開我的電腦在一個特定的文件夾

Question

我剛剛繼承了一個MS Access 2003系統，需要一點點的VBA放在一個命令按鈕打開我的計算機在特定的文件夾以查看那裏的文件。 文件夾名稱將來自表單上的字段。 我確實有

Application.FollowHyperLink 「C：\」 &君[參考]（參考格式爲ABCD-1234）

時，其硬編碼它工作正常，但我不能似乎！在從表單中選擇文件名時打開它。

任何提示？ （除binning訪問！） 謝謝

Answer 1

看到你正在提交給FollowHyperlink的文本看起來像什麼。你可以在你的代碼中插入這樣一行：

MsgBox "C:\" & Me![ref] 

也許這不是你所期望的。檢查總是很好的。

當它不起作用時會發生什麼。你看到任何錯誤信息或任何其他症狀可以幫助我們指出這一點嗎？

我的第一個想法是文件夾名稱中的空格可能會產生問題。但我不認爲這是答案，因爲FollowHyperlink工作正常，我在這個例子中：

Application.FollowHyperlink "C:\Access\spaces in name\" 

因此，我可以提供最好的是看你在問什麼FollowHyperlink使用。如果這種努力沒有引導您回答問題，請添加一個不符合您的問題的具體示例。

Answer 2

此代碼總是爲我工作：

Dim filePath = <"Insert the path of the directory to open inside of opening and closing parenthesis"> 

Application.FollowHyperlink filePath, vbNormalFocus 

通常情況下，我保存了幾個目錄的DBMS一個表裏面，鏈接數百張照片時，一個數據庫，而不是嵌入這有助於。例如，我有一個名爲「dbLocations」的表。在這個表內，只有兩個字段：1）picLocation 2）說明。

字段picLocation具有網絡路徑的值，即對於UNC路徑，C：\ My Documents或G：\ Whatever Directory或\\ groups1 \。

該字段描述是什麼意思，picLocation的描述。

我使用表來存儲目錄位置，因爲它們鏈接到存儲在網絡驅動器上的文件（.jpg，.png）。隨着時間的推移，目錄可能會發生變化（我將文件夾移動到另一個位置，或者如果UNC發生變化等）。

如果你在幾個子或模塊上硬編碼位置，你將需要改變每一個;這是非常低效的。因此，爲了節省時間和許多令人頭痛的問題，我使用了Domain Lookup功能，該功能允許我僅在一個易於查找的位置（即dbLocations表）中更改文件位置。

實質上，我正在查找picLocation與Alert Pics描述相匹配的表格中的位置值。（我創建將用於跟蹤闖入者，工作等遊民人員數據庫）

Dim filePath as String 

filePath = DLookup("picLocation", "dbLocations", "[Description] = 'Alert Pics'") 
Application.FollowHyperlink filePath, vbNormalFocus  

有了這三個行簡單的代碼，您可以導航到一個特定的目錄。