shell命令在access2003中不能用,请问还有什么办法可以打开外部任意文件!急!

chanchen

shell命令在access2003中不能用,请问还有什么办法可以打开外部任意文件!急!

连接方式打不开*.pdf文件!

chanchen

up!

fan0217

在<<200问>>中有关于这个问题的详细的解决方案.

如果是系统不能识别的文件就会打开打开方式对话框.

[此贴子已经被作者于2006-4-21 20:14:56编辑过]

chanchen

对于你的行为,我无话可说!

andymark

试试这个吧

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command0_Click()

Call ShellExecute(hwnd, "Open", "Words.pdf", "", CurrentProject.Path, 1)

End Sub

chanchen

谢谢andymark! 但是还是不行!

andymark

我这里可以打开呀

andymark

fan0217

试试这个:

Option Compare Database
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
                ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Const SE_ERR_NOASSOC = 31

Function OpenFile(strFile As String)
'调用示例:Call OpenFile("Words.pdf")
Dim lngResult As Long

    lngResult = ShellExecute(GetDesktopWindow, "Open", strFile, vbNullString, vbNullString, vbNormalFocus)

If lngResult = SE_ERR_NOASSOC Then
    MsgBox "没有相关的程序", 16
End If
End Function

chanchen

谢谢你们!还是不行!

你们是用access2003版本吗?

[此贴子已经被作者于2006-4-21 21:08:49编辑过]