Подформа

БиллГейтс

Дата: 31.08.2005 12:31:17

Форма 
Sub_ListClientsListContracts_Query
Создана с помощью мастера. Вверху находится главная форма,
Источником записей которой является 
ТАБЛИЦА  “ListClients”
Внизу ПОДЧИНЁННАЯ форма, которая  ИМЕНИ НЕ ИМЕЕТ
, а ИСТОЧНИКОМ  СТРОК является ЗАПРОС
QueryListContracts
, созданный на 
основе таблицы ListContracts.

Как извлечь значение из поля NumberContract  в ПОДЧИНЁННОЙ ФОРМЕ ?
NumberContract – ТЕКСТОВОЕ ПОЛЕ длиной 9 знаков
Начинал я так
Forms!Sub_ListClientsListContracts

СПАСИБО

Bagin

Дата: 31.08.2005 12:50:12

http://www.sql.ru/faq/faq_topic.aspx?fid=156

аыаы

Дата: 31.08.2005 14:39:17

Так проблема в том, что

БиллГейтс

.... ПОДЧИНЁННАЯ форма, которая ИМЕНИ НЕ ИМЕЕТ
....

Видимо, оно где-то потерялось. Шутка.
Билл! У любого объекта Аксесса есть имя. В данном случае объектом является контрол "подчиненная форма". Поищи как следует.

БиллГейтс

Дата: 31.08.2005 15:50:53

БЛАГОДАРЮ ОБОИХ
Bagin И аыаы

Если кто не знает, то работающий код показан ниже:

Dim m_sWork As String
m_sWork = Forms!Sub_ListClientsListContracts_Query![QueryListContracts подчиненная форма].Form!NumberContract.Value
MsgBox "m_sWork = " & m_sWork

топик ЗАКРЫТ

Владимир Саныч

Дата: 31.08.2005 15:54:09

БиллГейтс

Если кто не знает, то работающий код показан ниже:

Это для кого??? Это ведь названия объектов из ТВОЕЙ задачи.

БиллГейтс

Дата: 31.08.2005 16:24:20

автор

Это для кого??? Это ведь названия объектов из ТВОЕЙ задачи.

Да, это из моей задачи.
Это для подобных мне - я же не знал
как решить, мне подсказали,
СПАСИБО ИМ. Может кому-то пригодится.

Если ты вошёл - НЕ ЗАКРЫВАЙ ВОРОТ
БЫТЬ МОЖЕТ СЛЕДОМ
ЕЩЁ КТО-НИБУДЬ ИДЁТ.
(имею ввиду с хорошими намерениями)

автор

Владимир Саныч

я подумал, что ты в отпуске.

БиллГейтс

Дата: 31.08.2005 16:28:30

Кто правильно перенос строки
сделает ? Слишком длинная она.

автор

m_sWork = Forms!Sub_ListClientsListContracts_Query![QueryListContracts подчиненная форма].Form!NumberContract.Value

Использовал знак почёркивания и & и без & ,
несколько вариантов - не получалось

Владимир Саныч

Дата: 31.08.2005 16:36:31

БиллГейтс

Это для подобных мне

Не будет подобных. Названия объектов у всех свои.

БиллГейтс

Кто правильно перенос строки сделает ?

m_sWork = _
Forms!Sub_ListClientsListContracts_Query![QueryListContracts подчиненная форма].Form!NumberContract.Value

БиллГейтс

Использовал знак почёркивания и & и без & , несколько вариантов - не получалось

Знак & - это операция соединения строк. Со строками можно попробовать так:

m_sWork = _
Forms!Sub_ListClientsListContracts_Query( _
"QueryListContracts подчиненная форма" _
).Form!NumberContract.Value