Function IsLoaded(ByVal strFormName As String) As Boolean
 ' Возвращает значения True, если форма открыта в режиме формы или таблицы.
    
    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
Public Function AddLog(ByVal InValue)
  If not IsLoaded( "FRM_LOG" ) Then
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName =  "FRM_LOG" 
    DoCmd.OpenForm stDocName, asHidden, , stLinkCriteria
  End If
    Forms.Item( "FRM_LOG" ).FldMain.value = Forms.Item( "FRM_LOG" ).FldMain.value & InValue & Chr( 13 ) & Chr( 10 )
End Function