Office中国论坛/Access中国论坛

标题: 请问在ADP中如何用代码检测数据库窗口状态 [打印本页]

作者: yodong 时间: 2005-1-31 20:29
标题: 请问在ADP中如何用代码检测数据库窗口状态
如题

作者: 阿罗 时间: 2005-1-31 21:46
Public function printProjectProperties() As BooleanDim x As Variant

For Each x In CurrentProject.Properties

Debug.Print x.name, vbTab, x.Value

Nextend function 1 AccessVersion                         08.50

UseAppIconForFrmRpt                      0

StartupShortcutMenuBar

AppIcon

AllowSpecialKeys                         1

AllowToolbarChanges                      1

AllowBuiltInToolbars                      1

AllowFullMenus                            1

AllowShortcutMenus                      1

StartUpMenuBar

StartUpShowStatusBar                      1

StartUpShowDBWindow                      1  --- 这个就是你要的了，0代表隐藏

AppTitle                   项目名称

Row Limit                   10000

Use Default Connection File             0

Use Default Page Folder                   0

Show Values in Snapshot                   1

Show Values in Non-Indexed                1

Show Values Limit                         1000

Themed Form Controls                      1

ProjVer                   35

Auto Compact                0

Show Values in Indexed                   1

Show Values in Remote                   0

Show Values in Server                   0

Default Page Folder

Default Connection File

Build                      355

StartupForm                启动窗体启动选项卡里的东西这里基本都有，不过值改变后要重新启动ADP才生效。另外，系统的“选项”中内容，可以通过Application.GetOption 和SetOption来读取和设置。

作者: 阿罗 时间: 2005-1-31 21:51
用currentProject.Properties("StartUpShowDBWindow")来读取和设置。对于错误处理（即有可能某些版本或者其他原因这个property不存在），那么可以按照NorthwindCS示例中的方法处理（这里是针对“启动窗体”属性）err_handler:

Const conPropertyNotFound = 2473

If Err = conPropertyNotFound Then

      CurrentProject.Properties.Add "StartupForm", startFormName

      ..........

Else

      MsgBox Err.Number & Err.Description ....

End If

作者: yodong 时间: 2005-2-1 03:07
谢谢!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)