|
AllForms 集合示例以下示例打印在 AllForms 集合中打开的 AccessObject 对象的名称。- Sub AllForms() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentProject ' 在 AllForms 集合中搜索打开的 AccessObject 对象。 For Each obj In dbs.[b]AllForms[/b] If obj.IsLoaded = TRUE then '打印对象的名称。 Debug.Print obj.Name End If Next objEnd Sub
复制代码- <SCRIPT language=VBScript src="ShowMe_Code.vbs">
- </SCRIPT><SCRIPT language=VBSCRIPT>Sub HelpPopup (sFile, sID)Call InitConstants() On Error Resume Nextr=oua.HelpPopup(sFile,sID)If Err<>0 Then Msgbox L_SECURITY_MSG,48,L_TITLEEnd Sub
- <script>
复制代码 |
|