Office中国论坛/Access中国论坛

标题: ISLAOD 问题 [打印本页]

作者: kelind 时间: 2007-1-25 04:34
标题: ISLAOD 问题
Function IsLoaded(ByVal strFormName As String) As Integer
' Returns True if the specified form is open in Form view or Datasheet view.

Const conObjStateClosed = 0
Const conDesignView = 0

If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
      If Forms(strFormName).CurrentView <> conDesignView Then
         IsLoaded = True
      End If
End If

End Function

这是在本坛查到的.在mdb中没有问题,但在vb中就不行.问题出在哪?请帮助看看.

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