0

フォームフィールドの DefaultValue を

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

MyForm が閉じられたら、フィールド値を "" に設定したいと思います。残念ながら、MyForm が閉じているかどうかをテストする方法が見つかりません。IsNull、IsObject を試しました

これは可能ですか?

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 に答える