点击按钮打开文件夹;取决于选择哪个字段

-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

很高兴能帮到你！ –

点击按钮打开文件夹;取决于选择哪个字段

回答

相关问题