Access中以指定工作组文件启动MDB文件

2016-02-19 19:06 25 1 收藏

图老师小编精心整理的Access中以指定工作组文件启动MDB文件希望大家喜欢,觉得好的亲们记得收藏起来哦!您的支持就是小编更新的动力~

【 tulaoshi.com - 编程语言 】

     程序完成交给用户后,要求每次启动时均用指定的工作组文件,途径大致如下几种:

  1。用快捷方式,在其中加上启动参数指定工作组文件;

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/bianchengyuyan/)

  2。用ACCESS内置工作组管理员指定工作组。

  3。也可以直接修改注册表。

  4。用VB之类的东东做个外壳启动带参数启动ACCESS。

  第一种方式用户在使用中容易造成丢失。

  第二第三种其实是一样的,但设置后用户在本机操作所有的数据库都要求登陆。

  敝人推荐用第四种

  其实用ACCESS本身也可以做个外壳,达到同样效果:

  Set fs = Application.FileSearch ''查找文件
With fs
   .LookIn = "C:Program FilesMicrosoft Office" ''查找路径
   .SearchSubFolders = True ''包含子文件夹
   .FileName = "msaccess.exe" ''查找字串
   
   If .Execute() 0 Then
    p = .FoundFiles(1)  ''ACCESS主程序完整路径
    Shell p & " " & CurrentProject.Path & "123.mdb /wrkgrp " & CurrentProject.Path & "system.mdw", 3  ''带参数启动程序
   Else
    MsgBox "C:Program FilesMicrosoft Office 下没找到MSACCESS的程序文件,系统无法运行."
   End If
End With
docmd.quit  ''退出外壳

  将外壳做成MDE交付用户便万事大吉啦。

  带参数启动程序语句可更改为以下代码

  Shell SysCmd(acSysCmdAccessDir) & " msaccess.exe" & CurrentProject.Path & "123.mdb /wrkgrp " & CurrentProject.Path & "system.mdw", 3

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/bianchengyuyan/)

  注意,如果要将密码和用户名写在mde中,请先加密,否则用写字板就可看见密码及用户名

来源:https://www.tulaoshi.com/n/20160219/1620013.html

延伸阅读
适用 Access2000及以后版本 翻译:tmtony(Access/Office中国) 首先在公共模块添加如下函数: Public Function AutoCompactCurrentProject()     Dim fs, f, s, filespec     Dim strProjectPath As String, strProjectName As String     strProjectPath = Application.CurrentProject.Path &...
当 MDB 文件加了密码,直接由 Access 打印MDB文件时,会出现密码对话框,询问密码。但是若要由 VB 程序中打印,必須更改 VB 程序中打开MDB文件的指令,否则会出现错误信息!以下针对各种情况,分別加以说明: 1、 使用 DAO 命令打开MDB文件:OpenDatabase 若要由程序中打开,命令如下: Set DB = OpenDatabase(DatabaseName, False, False...
以文字方式保存文件名的图片如何在报表中预览? 问题: 报表中如何预览图片? 数据库表中存放着下面几个字段,学号,姓名,性别,图片路径,如下:1002003001,张三,男,10020031002003001.jpg。现在做报表,想把图片显示出来,因为图片路径为字符类型,所以显示出来的是10020031002003001.jpg,怎样做能把图片显示出来?图片就在数据库所...
下面是修改工作组用户密码的函数,调用时如果用于密码为空,请使用"",不要使用null,两者不同。:) Function CheckUserPasswordInGroup(UserName As String,_ oldPassword As String, newPassword As String) As Boolean On Error GoTo ChkErr Dim wk As DAO.Workspace, Ur As DAO.User, i As Integer, Found As Boo...
标签: ASP
  如果你用ODBC connection (DSN or DSN-less)来访问远端的(UNC path)数据库, OLEDB会出现以下错误信息: Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot open the file '(unknown)'. It is already opened exclusively by anothe...

经验教程

312

收藏

75
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部