Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как обратиться напрямую к записям в подчиненной форме ? / 10 сообщений из 10, страница 1 из 1
10.04.2004, 01:38
    #32476310
nukri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться напрямую к записям в подчиненной форме ?
Всем здрасте

Есть форма Ф1 и подчиненная форма П2 (в табличном виде)

В П2 есть логическое поле галочка (есть / нет).

Хотелось бы при некотором событии в Ф1 (например нажатие кнопки) узнать если ли в форме П2 поля с галочками и если есть то проделать то-то и то-то ... спасибо

Тоесть на самом деле интересует механизм обращения к подчиненной форме как таковой без создания запроса.

Спасибо.
...
Рейтинг: 0 / 0
10.04.2004, 02:43
    #32476316
Просто Лось
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться напрямую к записям в подчиненной форме ?
Все зависит от отого, что бы тебе хотелось проделось.

Если без создания запроса, то:

public sub [событие в Ф1]_(например нажатие кнопки) ()
dim rstME as dao.recordset
set rstME = currentdb.openrecordset(me!slaveFORM.form.rowSource)
while not rstme.eof
if rstme.[поле с галочками] then
.... делаем то-то и то-то, та так-же еще и такое....ООУУУУ!
exit sub
else
rstme.movenext
end if
wend
'если не нашли поле с [включенными галочками], то его нет, а следовательно
....делаем то, что должны делать, если нет включенного [поля с галочками], и обиженно уходим
end sub

P.S. На память я не уверен в set rstME = currentdb.openrecordsts..... (возможна опечатка в синтаксисе, просто я не могу проверить, но думаю, что помнять руки-то, помнят!!!)

P.S.S. slaveFORM - имя контрола, в который помещена подчиненная форма
...
Рейтинг: 0 / 0
10.04.2004, 07:03
    #32476325
Deminik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться напрямую к записям в подчиненной форме ?
Код: plaintext
1.
if dcount( "ПолеСГалочками" , me.П2.Form.RecordSource _
 "ПолеСГалочками = True" ) then msgbox  "Yes" 


или вообще

Код: plaintext
1.
if dcount( "ПолеСГалочками" ,  "ИмяТаблицыИсточникаЗаписейП2"  _
 "ПолеСГалочками = True" ) then msgbox  "Yes" 


Имя таблицы ты же знаешь...
...
Рейтинг: 0 / 0
10.04.2004, 11:31
    #32476370
nukri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться напрямую к записям в подчиненной форме ?
Большое спасибо коллеги щаз буду проверять :)
...
Рейтинг: 0 / 0
10.04.2004, 11:58
    #32476377
nukri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться напрямую к записям в подчиненной форме ?
При попытке сделать так
If DCount("Расформировать", Me.ТаблицаПродаж.Form.RecordSource "Расформировать = True") Then MsgBox "Yes"

ругается на то, что ехпектед лист сепаратор или )

а если так:

If DCount("Расформировать", Me.ТаблицаПродаж.Form.RecordSource("Расформировать = True")) Then MsgBox "Yes"

.... выдает вронг намбер оф аргументс



Что тут не так ?
...
Рейтинг: 0 / 0
10.04.2004, 13:06
    #32476406
Просто Лось
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться напрямую к записям в подчиненной форме ?
Никогда не использовал ни DCount ни DSum и DLookup.

Привыкнешь, и жизнь твоя не будет стоить и ломанного рубля
...
Рейтинг: 0 / 0
10.04.2004, 13:09
    #32476408
nukri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться напрямую к записям в подчиненной форме ?
Почему ? Есть какие-нибудь недостатки у этого способа ?

Код уж-больно привлекает своей простотой ... :)
...
Рейтинг: 0 / 0
10.04.2004, 13:09
    #32476409
Deminik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться напрямую к записям в подчиненной форме ?
Код: plaintext
If DCount( "Расформировать" , Me.ТаблицаПродаж.Form.RecordSource ,  "Расформировать = True" ) Then MsgBox  "Yes"  

Я после Me.ТаблицаПродаж.Form.RecordSource забыл запятую поставить...
(мог проверить: dcount F1...)
...
Рейтинг: 0 / 0
10.04.2004, 13:12
    #32476411
Deminik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться напрямую к записям в подчиненной форме ?
2 Лось

Наверное ты про быстродействие, или чем тебя эта функция не устраивает ?
...
Рейтинг: 0 / 0
10.04.2004, 15:28
    #32476471
Просто Лось
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обратиться напрямую к записям в подчиненной форме ?
Не могу точно ответиь, но эти функции выбиваются из общего ряда, т. е. скорее всего, она выполняет еще кучу стандартных функций, а ты (я) думаешь, что заменил набор прямых команд одной, которая, как мне кажется, не всегда оптимально работает
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как обратиться напрямую к записям в подчиненной форме ? / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]