用VB(外部程序)启动ACCESS程序.(有例子）

yangxiang

试用以下贴的代码进行生成工程EXE，因未用过vb，请指教一下。

请看：

http://www.office-cn.net/forum.php?mod=viewthread&tid=26776&replyID=&skin=1

http://www.office-cn.net/forum.php?mod=viewthread&tid=21071&replyID=&skin=1

http://www.office-cn.net/forum.php?mod=viewthread&tid=50102&replyID=&skin=1

[此贴子已经被作者于2007-4-24 14:24:45编辑过]

yangxiang

请指教．

yangxiang

试用vb搞的直接运行access程序,请高手搞个完全无启动画面的.

代码:

Private Sub Main()

Dim strAPP As String
Dim strSecuredFileName As String
Dim strAppFileName As String
Dim AccApp As New Access.Application
Dim AccPath As String
AccPath = AccApp.SysCmd(acSysCmdAccessDir)
Set AccApp = Nothing
strAppFileName = App.Path & "\test.mde" & """UNTIME"
strAPP = """" & AccPath & "\msaccess.exe"" """ & _
strAppFileName
Shell strAPP, 3
If Err <> 0 Then
MsgBox Err.Description
End If
End Sub

linag516

[:31]