樹結(jié)構(gòu)圖
您現(xiàn)在的位置： > 技術(shù)沙龍 > 數(shù)據(jù)庫 > Access > 判斷窗體是否打開的兩種方法
- 相關(guān)軟件
>判斷窗體是否打開的兩種方法 創(chuàng)建者：webmaster 更新時(shí)間：2005-05-17 23:43
判斷窗體是否打開的兩種方法
Function IsLoaded(strName As String, Optional intObjectType As Integer =
acForm)
IsLoaded = (SysCmd(acSysCmdGetObjectState, intObjectType, strName) <> 0)
End Function
函數(shù)二
Function IsFormLoaded(strFrmName As String) As Boolean
Const conFormDesign = 0
Dim intX As Integer
IsFormLoaded= False
For intX = 0 To Forms.Count - 1
If Forms(intX).FormName = strFrmName Then
If Forms(intX).CurrentView <> conFormDesign Then
IsFormLoaded= True
Exit Function ' Quit function once form has been found.
End If
End If
Next
End Function相關(guān)文章- 前一則: 在窗體間傳遞參數(shù)的幾種常用辦法
- 后一則: 打印再添一例，自動(dòng)分頁