怎么获取附件字段里面的各个附件名称？

杀意　发表于：2015-09-09 15:09:18 　

复制

我的数据表有一个附件字段，假设名称为：文档，字段类型：附件。

使用时，【文档】字段会存有多个文件，一般都时doc或者excel文档，假设分别为：文档附件1、文档附件2、文档附件3

按一般的窗体显示，【文档】字段在窗体就显示成一个图标，鼠标双击后出现附件对话框。

我希望实现，在窗体中显示：

1.文档附件1

2.文档附件2

3.文档附件3

……

点击文件名称就打开相应文件。

使用文档.FileName只能获得第一个附件文件的名称，也就是文档附件1。求解。谢谢。

Top

杀意发表于：2015-09-09 15:24:11

再追问一个：我如果中途看完附件后，有修改，保存了，然后想把：文档附件1 的名字改为：已核稿-文档附件1，该怎么操作呢？谢谢。

Top

丘山发表于：2015-09-10 16:51:31

使用文档.FileName(index) 从零开始

关于追问的问题,建议你在增加一个表或记录,记录已审阅的文档附件名

Top

杀意发表于：2015-09-11 08:59:35

谢谢丘山的回答。

获取文件名称的问题解决了。如果重命名不能操作的话，还有一个问题：怎么用VBA来打开附件字段中的指定文档呢？

比如，我要打开附件中的文档2，该怎么写语句？求教。谢谢。

Top

zhaoyoulong 发表于：2015-09-11 09:49:17

Private Sub 打开文件_Click()
On Error Resume Next

Dim MsShell As New Shell

Dim StrFilePath as String

MsShell.Open (StrFilePath) '打开文件
End Sub
前提是要引用:Microsoft Shell Controls and Automation

Top

丘山发表于：2015-09-11 09:49:20

这个,我想应该根据不同的文件类型,调用不同的应用程序打开

Top

杀意发表于：2015-09-11 16:48:53

谢谢4楼 zhaoyoulong 的回答。你这个是打开单独保存的附件文档。我的附件文档是在附件字段里面的。这个语句不行的。

Top

杀意发表于：2015-09-11 16:49:46

丘山，假设就是word文档，doc或者docx的。请问怎么打开？

Top

wyh99999 发表于：2015-09-13 09:52:31

If Shell("explorer.exe """ & 路径与文件名 & """", vbNormalFocus) = 0 Then Exit Sub

Top

zhaoyoulong 发表于：2015-09-14 11:51:05

用附件存放文件其实不是一个好办法

建议存放文件的地址在字段里，然后根据地址打开文件即可

Top

杀意发表于：2015-09-17 08:35:57

谢谢大家的解答，我还是喜欢把文件放在附件字段啊。还请大家帮忙。

Top

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

Access交流中心

怎么获取附件字段里面的各个附件名称？