Question

我正在开发一个数据库。该数据库涉及项目;您可以单击按钮添加项目，当您这样做时，它会在另一页的数据表子表单中显示所有项目。

我如何将文件夹链接到某个项目？因此，当您将所有信息输入到字段中时，您还可以输入文件夹位置，并在保存时将其保存到表中。现在，一旦转到子窗体，单击该字段，然后单击“打开文件夹”按钮，它将打开计算机上的文件夹。虽然也请注意，这些文件夹将在服务器上;从计算机的主硬盘驱动器外部。

表格名称是：DatabaseF＆amp; 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

要确定当前选择的字段，您必须从另一个表单中提取ProjectID，该表单仍将在名为DatabaseF的后台打开。那里有一个隐藏的文本框，名为txtProjID;这就是我为我的“更多信息”按钮所做的（这是打开文件夹按钮所在的位置）。这就是我所知道的如何做到这一点，我不知道实际的代码一起来获取所选字段并从表中存储的信息打开目录。

Answer 1

您需要对此进行编辑以与变量和字段名称对齐，但需要编辑的内容应该显而易见。

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 const，你应该有一个动态设置的文件路径。

单击按钮打开文件夹;取决于选择的字段

1 个答案: