技巧分享（知道的不要笑我，哈哈）

huanghai

我要找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

好,我也是这样做的.
把它打印出来比查帮助快多了

sunredday

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