подскажите, в чём ошибка

Gost'ya123

Дата: 21.11.2006 20:54:13

Function Sklad()
ostatok = (Forms![Категории2]![Виды подчинённая форма2].Form!Количество- Forms![Заказы]![Сведения о заказах подчиненная форма].Form!Количество)
End Function

В этой ыункции выскакивает ошибка, что не найдена форма Категории2, а она есть. Может я не правильно что-то делаю?

mds_world

Дата: 21.11.2006 21:21:10

Может быть она еще не открыта к моменту отработки функции?

mds_world

Дата: 21.11.2006 21:30:43

В принципе вы можете проверять открыта ли нужная форма с помощью функции IsLoaded, описанной в БД Борей. Привожу здесь ее определение взятое из Борей

Function IsLoaded(ByVal strFormName As String) As Boolean
 ' Возвращает значения True, если форма открыта в режиме формы или таблицы.
    
    Dim oAccessObject As AccessObject
        
    Set oAccessObject = CurrentProject.AllForms(strFormName)
    If oAccessObject.IsLoaded Then
        If oAccessObject.CurrentView <> acCurViewDesign Then
            IsLoaded = True
        End If
    End If
    
End Function

Обращаясь к IsLoaded с параметром = имени проверяемой форсы вы получите True, если она открыта и False в противном случае.

mds_world

Дата: 21.11.2006 21:34:39

Ваша функция с использованием IsLoaded может выглядеть так

Function Sklad()
  If IsLoaded("Категории2") Then
      ostatok = (Forms![Категории2]![Виды подчинённая форма2].Form!Количество- Forms![Заказы]![Сведения о заказах подчиненная форма].Form!Количество)
  Else
      MsgBox "Форма Категории2 не открыта"
  EndIf
End Function

Gost'ya123

Дата: 21.11.2006 21:52:03

теперь он пишет "не найдено поле "Виды подчинённая форма2", правильно ли у меня сделано обращение к полю подчинённой формы?

Gost'ya123

Дата: 21.11.2006 21:58:09

Если использлвать функцию IsLoaded, о появляется ошибка "Sub or function not defined"??????

Gost'ya123

Дата: 21.11.2006 22:07:12

а формы, полям которых идёт расчёт, обязательно должны быть открыты?

mds_world

Дата: 21.11.2006 22:13:16

Gost'ya123

Функцию IsLoaded следует поместить в модуль и сделать ее Public

Public Function IsLoaded(ByVal strFormName As String) As Boolean

mds_world

Дата: 21.11.2006 22:14:32

Gost'ya123

а формы, полям которых идёт расчёт, обязательно должны быть открыты?

Да, кончно. Иначе их элементы будут недоступны.

mds_world

Дата: 21.11.2006 22:19:19

Gost'ya123

А какой у вас Аксцесс?

И второе. Возможно, что элемент главной формы Категории2, контейнер в котором находится ваша подформа, имеет другое имя в самой форме Категории2.