请教老师们，如何通过窗体按键，给表各内容添加对应的文件夹路径

李龙　发表于：2016-12-27 17:08:53 　

复制

点击下载此附件

3-4

Top

网行者发表于：2016-12-28 05:45:03

Private Sub Command9_Click()
Me.对应的学生文件夹 = "D:\学生文件\" & Me.名字 & "\"
End Sub

Top

李龙发表于：2016-12-29 09:18:39

感谢老师的回复，因文件夹较多，有时候文件夹名字无法与表中“名字”一致，因此能否设置其可由操作员手工方式去选择对应的文件夹？如上图的 2、3、4步骤？

Top

MDZZ 发表于：2016-12-29 09:25:26

Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "xxxxxx"

.FilterIndex = 3
.AllowMultiSelect = False

.InitialFileName = “"D:\学生文件\" & Me.名字 & "\"”
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))

Top

MDZZ 发表于：2016-12-29 09:25:56

文件对话框Application.FileDialog属性的用法[Access软件网] http://www.accessoft.com/article-show.asp?id=11018

Top

李龙发表于：2016-12-29 12:04:33

谢谢老师们，

Private Sub Command9_Click()
'选择单一文件夹
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "d:\学生文件\"
If .Show = -1 Then
[对应的学生文件夹] = .SelectedItems(1)
End If
End With
End Sub

以上代码解决了我的问题，现出现新的问题，在表1中我对“对应的学生文件夹”设置了数据类型为“超链接”，其内容已显示为蓝色+下划线，移动到该内容也出现手指标识，但点击其超链接，无任何反应，这怎么解决？

Top

MDZZ 发表于：2016-12-29 12:44:18

路径对吗

Top

wyh99999 发表于：2017-01-01 16:57:52

题外话：建议用学生的学号&姓名为一生的文件夹，如：123456张三。这样做的目的是不会重名。

Top

总记录：7篇页次：1/1 9 1 :

Access交流中心

请教老师们，如何通过窗体按键，给表各内容添加对应的文件夹路径