怎样用shell函数打开固定位置的文件

hope678　发表于：2011-10-25 22:38:24 　

建了一个固定的文件夹用来存放文件，用文件名加固定文件夹的地址作为表中的一个字段（字段名为文件），再将该表通过向导做一个子窗体，建立一个主窗体，主窗体的能对子窗体中的文件进行查询，现象实现的功能是单击文件字段能将相应的文件打开，想用的函数是shell函数，各位大虾帮帮忙啊~~谢谢

Top

王樵民发表于：2011-10-26 08:27:42

可以在窗体的文件字段的单击事件中加入以下代码即可

Private Sub 文件_Click()
On Error GoTo err1
Shell Me.文件, vbMaximizedFocus
Exit Sub
err1:
MsgBox "错误号:" & Err.Number & " 错误描述：" & Err.Description, vbOKOnly, "出错信息"
End Sub

Top

hope678 发表于：2011-10-26 21:09:34

王樵民版主，我按你的方法调试了，好像提示错误啊？我上传了一个附件能帮我看看么？怎么实现单击文件字段就能打开相应的文件啊！谢谢~~

Top

hope678 发表于：2011-10-26 21:10:49

点击下载此附件

Top

dbaseIIIer 发表于：2011-10-28 03:04:51

请使用:

dim a as object

set a = createobject("Shell.Application")

a.open Me.文件

Top

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

Access交流中心

怎样用shell函数打开固定位置的文件