Office中国论坛/Access中国论坛

标题: 类型不符问题 [打印本页]

作者: sunredday 时间: 2002-7-22 04:52
标题: 类型不符问题
Public Function isopen(ByVal strformname As String) As String
Const condesignview = 0
Const conobjstateclosed = 0
isopen = False
If SysCmd(acSysCmdGetObjectState, acForm, strformname) <> _
  conobjstateclosed Then
If Forms(strformname).CurrentView <> condesignview Then
  isopen = True
  End If
  End If
  End Function
Private Sub Form_Open(Cancel As Integer)
Dim frm As Form
frm=密码 '窗体名
If isopen(frm) = False Then
MsgBox "没有登陆啊", vbOKOnly, "提示"
DoCmd.Quit
End If
End Sub

为什么 If isopen(frm) = False Then 中的类型不符呢？

[此贴子已经被作者于2002-7-21 20:52:20编辑过]

作者: cattjiu 时间: 2002-7-22 16:16
frm="密码" '窗体名

作者: freemanager 时间: 2002-7-22 16:56
应该如此：
Public Function isopen(ByVal strformname As String) As ＢＯＯＬＥＡＮ　 'String
否则：
Isopen = True 改成>>> Isopen = "True"
Isopen = False 改成>>> Isopen = "False"

作者: sunredday 时间: 2002-7-22 17:03
多谢了。确实抄错了一个类型

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