<<< 返回 access911.net 编程静态资料库索引页

如何在数据库打开时压缩数据库(2)?

 

作者:  摘自:  录入:cg1  时间:2002-11-19  浏览人次:1472


专题地址:http://access911.net/fixhtm/76FA.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 



'可惜兼容性不是很好。稍微修改了一下,可以适合97与XP,没有ACCESS 2000的,希望你们能给我补上。

Dim ref As Reference
Dim I As Byte

Set ref = References!Access

'记得引用 Microsoft Office X.X Object Library
'我不用Application.Vertion是由于,这个属性在Access 97中不存在。
Select Case ref.Major
    Case 8: I = 6 ''Access 97
    Case 9: I = 7 ''Access XP
Case Else
    MsgBo.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/76FA.htm

 


上一篇:如何在数据库打开时压缩数据库?

下一篇:如何在VBA或者JET SQL下编程更改ACCESS MDB 数据库口令(密码)?

2017年2月22日生成静态资料