Office中国论坛/Access中国论坛

标题: 技巧分享（知道的不要笑我，哈哈） [打印本页]

作者: huanghai 时间: 2003-4-30 19:11
标题: 技巧分享（知道的不要笑我，哈哈）
我要找ADP文件的系统属性时查帮助找半天找不到，然后我想到一个办法，写一个过程，把他全部列出来，每个属性什么时候要用就来COPY了

Public Function allProperty()
Dim P As Variant
For Each P In CurrentProject.Properties
      Debug.Print "Name: "; Left(P.Name & "                                           ", 40) & _
"          Value: " & P.Value
Next P
End Function

?allProperty()
Name: AccessVersion                                     Value: 08.50
Name: Default Connection File                         Value:
Name: Default Page Folder                               Value:
Name: Show Values in Server                            Value: 0
Name: Show Values in Remote                            Value: 0
Name: Show Values in Indexed                            Value: 1
Name: Auto Compact                                     Value: 0
Name: AllowByPassKey                                  Value: -1
Name: Show Values Limit                               Value: 1000
Name: Show Values in Non-Indexed                      Value: 1
Name: Show Values in Snapshot                         Value: 1
Name: Use Default Page Folder                         Value: 0
Name: Use Default Connection File                      Value: 0
Name: Row Limit                                        Value: 10000
Name: Build                                           Value: 227
Name: ProjVer                                           Value: 24
Name: StartUpForm                                     Value: Form.frmLogin
Name: StartUpShowDBWindow                               Value: 0
Name: StartUpShowStatusBar                            Value: 0
Name: StartUpMenuBar                                  Value: 管理员菜单
Name: AllowShortcutMenus                               Value: 0
Name: AllowFullMenus                                  Value: 0
Name: AllowBuiltInToolbars                            Value: 0
Name: AllowToolbarChanges                               Value: 0
Name: AllowSpecialKeys                                  Value: 0
Name: StartupShortcutMenuBar                            Value:
Name: AppIcon                                           Value: E:\sofa.ico
Name: AppTitle                                        Value: ACCESS中国管理系统
Name: UseAppIconForFrmRpt                               Value: -1

[此贴子已经被作者于2003-4-30 11:14:02编辑过]

作者: Roadbeg 时间: 2003-4-30 19:39
好,我也是这样做的.
把它打印出来比查帮助快多了

作者: sunredday 时间: 2003-4-30 19:55
Public Function allProperty()
Dim P As Variant
DIM AAA AS STRING
For Each P In CurrentProject.Properties
AAA=AAA &" /" &"NAME:"

.NAME &" value: " & P.value
Next P

MSGBOX AAA

End Function

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