Sql 点击按钮打开文件夹;取决于选择的字段
我正在做一个数据库。该数据库涉及项目;您可以单击按钮添加项目,当您这样做时,它会在另一个页面上显示数据表子窗体中的所有项目 如何将文件夹链接到某个项目?因此,当您在字段中输入所有信息时,还可以输入文件夹位置,并在保存时将其保存到表中。现在,一旦您转到子窗体,单击该字段,然后单击“打开文件夹”按钮,它将打开计算机上的文件夹。尽管也要注意,这些文件夹将位于服务器上;从计算机的主硬盘驱动器进行外部连接 表单名称为:DatabaseF和AddProjectF 子表单名称为:ProjectQSubF 表名为ProjectsF 网络位置为G:\ 谢谢 对不起,我一开始没把这个放进去,我没在想。我知道如何打开文件夹中预设的位置,在代码中用一个按钮;我只是不知道如何附加代码,以根据单击的字段进行更改 这是我当前用于打开其自身代码中预设的文件夹的代码:Sql 点击按钮打开文件夹;取决于选择的字段,sql,vba,ms-access,Sql,Vba,Ms Access,我正在做一个数据库。该数据库涉及项目;您可以单击按钮添加项目,当您这样做时,它会在另一个页面上显示数据表子窗体中的所有项目 如何将文件夹链接到某个项目?因此,当您在字段中输入所有信息时,还可以输入文件夹位置,并在保存时将其保存到表中。现在,一旦您转到子窗体,单击该字段,然后单击“打开文件夹”按钮,它将打开计算机上的文件夹。尽管也要注意,这些文件夹将位于服务器上;从计算机的主硬盘驱动器进行外部连接 表单名称为:DatabaseF和AddProjectF 子表单名称为:ProjectQSubF 表名
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;这就是我为我的“更多信息”按钮所做的(打开文件夹按钮将位于该按钮)。关于如何操作,我只知道这些,但我不知道从表中存储的信息中获取所选字段并打开目录的实际代码。您需要编辑此字段以与变量和字段名对齐,但需要编辑的内容应该是显而易见的
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,您应该有一个动态设置的文件路径。您实际尝试过什么吗?或者你是在要求别人为你写代码?编辑了我的主要帖子,很抱歉我忘了添加我的知识和要做的事情,以及更好地描述我正在寻求帮助的内容。我不知道为什么我的问题得到了-2,尽管真正重要的是你帮我解决了我的问题,现在它正在工作!谢谢,亲爱的。