TO：CGL兄，我套用你的方法怎么没成功，需要改哪里？

ququ

Function MyShell()

    On Error Resume Next
   
    Dim strAPP As String    '命令行字串
    Dim strSecuredFileName As String
    Dim strAppFileName As String
    Dim strPassword As String
    Dim strUserName As String
   
    strSecuredFileName = "Secured1.mdw"     '工作组信息文件
    strAppFileName = "复件 db1.mdb"         '被保护的应用程序数据库
    strUserName = "ec"                      '用户名
    strPassword = "access911.net"           '密码
   
    '带工作组启动的命令行
    strAPP = """" & SysCmd(acSysCmdAccessDir) & "msaccess.exe"" """ & _
                CurrentProject.Path & "\" & strAppFileName & """ /wrkgrp """ & _
                CurrentProject.Path & "\" & strSecuredFileName & """ /user " & strUserName & " /pwd " & strPassword
               
    MsgBox "您要的命令行如下：" & vbCrLf & strAPP
    Shell strAPP, 3     '启动
    If Err <> 0 Then
        MsgBox Err.Description
    End If
    DoCmd.Quit '退出外壳
   
    '以下是一个完整的命令行
    '"C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE" "C:\My Documents\应用程序 db1.mdb" /WRKGRP "C:\My Documents\Secured1.mdw"  /user ec /pwd access911.net
End Function



然后用创建一个新的名为 Autoexec 的宏，在操作里面建立一个 RunCode ，在函数名称内填入 MyShell

cg1

什么未成功？错了？没结果？
什么错误？什么情况？什么环境？
错在哪一步？

我又看了一遍，这篇文章大概我唯一没有写全的是 MyShell () ，那个括号我没写

cg1

另外，再说一下，我的姓名是 cg1 是 1 2 3 4 的 1 ，不是 L

[此贴子已经被作者于2004-2-19 22:39:29编辑过]

ququ

呵，SORRY，CG1兄，我自己抄错了，谢啦

cai373

哈哈,菜哥真大意....