點擊按鈕打開文件夾;取決於選擇哪個字段

-2

我正在處理數據庫。這個數據庫涉及項目;你可以點擊一個按鈕來添加一個項目，當你這樣做的時候，它會顯示另一頁上的數據表子表單中的所有項目。點擊按鈕打開文件夾;取決於選擇哪個字段

我該如何將文件夾鏈接到某個項目？因此，當您將所有信息輸入到字段中時，您還可以輸入文件夾位置，並在保存時將其保存到表格中。現在，一旦你進入子窗體，點擊該字段，然後點擊「打開文件夾」按鈕，它會打開計算機上的文件夾。雖然也注意到，這些文件夾將在服務器上;外部來自計算機的主硬盤。

形式的名稱是：DatabaseF & AddProjectF

表單名稱是：ProjectQSubF

表名是ProjectsF。

網絡位置是G：\

謝謝！

對不起，我沒有把它放在第一位，沒有想到。我知道如何使用按鈕在代碼中打開預設的文件夾位置;我只是不知道如何附加代碼來改變取決於你點擊的領域。

這是我使用當前打開的文件夾中的代碼的代碼它自我預設：

Private Sub ProjectFolderBtn_Click() 
    Dim x As Variant 
    Const msgTitle As String = "Open Explorer" 
    Const cExplorerPath As String = "C:\WINDOWS\EXPLORER.EXE" 
    Const cExplorerSwitches As String = " /n,/e" 
    Const cFilePath As String = "G:\Projects\Walmart" 

    On Error GoTo Error_Handler 

    If Dir(cExplorerPath, vbDirectory) = "" Then 
     MsgBox "Explorer Path '" & cExplorerPath & "' could not be found.", vbCritical, msgTitle 
     x = Shell(cExplorerPath, vbNormalFocus) 
    ElseIf Dir(cFilePath, vbDirectory) = "" Then 
     MsgBox "Path '" & cFilePath & "' could not be found.", vbCritical, msgTitle 
     x = Shell(cExplorerPath, vbNormalFocus) 
    Else 
     x = Shell(cExplorerPath & cExplorerSwitches & "," & cFilePath, vbNormalFocus) 
    End If 

    Exit Sub 
    Error_Handler: 

    MsgBox "An error has occurred trying to open Explorer", vbCritical, msgTitle 

    End Sub

決定你當前選擇哪一個領域，你必須從另一種形式拉專案編號它仍然會在名爲DatabaseF的背景中打開。在那裏有一個叫做txtProjID的隱藏文本框;這就是我爲我的「我的更多信息」按鈕所做的（這是打開的文件夾按鈕所在的位置）。這就是我所知道的關於如何去做的事情，但我不知道實際的代碼一起去獲取選定的字段並從表中存儲的信息中打開目錄。

來源

2013-11-01 D347HxD

你有沒有嘗試過任何東西？還是你要求某人爲你寫代碼？ –

編輯我的主要帖子，對不起，我忘了添加我的知識和做什麼，並更好地描述了我正在尋求幫助。 – D347HxD

你將需要編輯這個來與你的變量和字段名稱保持一致，但是需要編輯的內容應該是應該是。

Dim db as Database 
Dim rec as Recordset 

Set db = CurrentDB 
Set rec = db.OpenRecordset("Select * from ProjectsF WHERE ProjectID = " & Me.ProjectID & "") 

cFilePath = rec("FilePath")

將這個地方在頂部，取出硬編碼cFilePath常量，你應該有一個動態設置的文件路徑。

來源

2013-11-01 13:52:00

我不知道爲什麼我的問題得到了-2，儘管真正重要的是你幫助我解決了我的問題，它現在正在工作！謝謝，非常感謝。 – D347HxD

很高興能幫到你！ –

點擊按鈕打開文件夾;取決於選擇哪個字段

回答

相關問題