物料系统---,已在多家公司使用,咱兄弟自己做的,请大家多提意见

明水蔷薇

非常感谢啊

明水蔷薇

非常感谢，下载学习了

aizaishenqiu

下载了，感谢分享

jswtl

一直想找的，谢谢！

roych

fallingstar5 发表于 2009-6-5 13:31
大侠,您是access高手,请帮兄弟解决一个问题,小弟想把公司用的access数据库放在某个共享文件夹中,不想让人直 ...

既然不小心翻到了就给一段代码吧。PWD部分输入你的代码

1. Function Logon()
   
2.     Dim strDB As String
   
3.    
   
4.     strDB = CurrentProject.Path & "\采购下单预警系统.mdb"
   
5.    
   
6.     Set appAccess = CreateObject("Access.Application")
   
7.     Set db = appAccess.DBEngine.OpenDatabase(strDB, False, False, ";PWD=")
   
8.    
   
9.     appAccess.OpenCurrentDatabase strDB
   
10.    
    
11.     If Val(SysCmd(acSysCmdAccessVer)) = 9 Then
    
12.         appAccess.Visible = True
    
13.     End If
    
14.    
    
15.     DoCmd.Quit
    
16. End Function

复制代码

roych

a489685453 发表于 2009-9-27 15:27
您好，可不可以教我怎么做的吗？我怎么看不到你文件里面的表啊...全部是点击按钮显示.....

隐藏掉了吧？