0

我想将表单字段的 DefaultValue 设置为

=IIf(IsNull([Forms]![MyForm]![MySubForm].[Form]![MyField]);"";[Forms]![MyForm]![MySubForm].[Form]![MyField])

当 MyForm 关闭时,我想将字段值设置为“”。不幸的是,我找不到如何测试 MyForm 是否关闭:我尝试过 IsNull、IsObject,非常它总是返回 #Name 吗?

这可能吗 ?

4

1 回答 1

2

我使用这样的函数来检查表单是否打开:

Function IsLoaded(ByVal strFormName As String) As Boolean
 ' 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
于 2013-03-07T21:46:54.723 回答