ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Поиск в подчиненной форме (Продолжение ... )
20 сообщений из 20, страница 1 из 1
Поиск в подчиненной форме (Продолжение ... )
    #32689848
Фотография Svetlana_613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Svetlana_613
Участник
И снова, здравствуйте!
Т.К. на продолжение постов вы не реагируете, то пришлось начать новый... (привет Санычу & Со ;-))
Сам собственно траблс:
Есть главная форма, на ней неск. подчиненных. Как организовать поиск по любому полю любой подчиненки?
вот код:
'sub_name - имя подчиненной формы
'number - ключ
'main_name - имя главной формы

Me.Controls(sub_name).SetFocus
Set rs = Me.Controls(sub_name).Form.Recordset
rs.MoveFirst
strpoisk = cntrlname & " = '" & POisk & "'"
rs.FindFirst (strpoisk)
nn = rs![number]
rs.Close
Forms(main_name).SetFocus
Forms(main_name).Controls("number").SetFocus
DoCmd.FindRecord nn, , , , , A_CURRENT, True

проблема в том, что rs возвращает только подчиненные записи, а нуно искать по всем :-(
Thks/Regards
Svetlana :-)
...
Рейтинг: 0 / 0
10.09.2004, 15:03:12
| Ответить | Цитировать | Написать  
Поиск в подчиненной форме (Продолжение ... )
    #32689924
Фотография Svetlana_613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Svetlana_613
Участник
Да, уж...
Одно из двух - или я задала глупый вопрос или со мной не хотят разговаривать :-(((
Thks/Regards
Svetlana :-)
...
Рейтинг: 0 / 0
10.09.2004, 15:32:55
| Ответить | Цитировать | Написать  
Поиск в подчиненной форме (Продолжение ... )
    #32689937
Shubnikov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shubnikov
Участник
А ты не зацикливайся на rs подчинённой формы
...
Рейтинг: 0 / 0
10.09.2004, 15:38:15
| Ответить | Цитировать | Написать  
Поиск в подчиненной форме (Продолжение ... )
    #32689976
Фотография Svetlana_613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Svetlana_613
Участник
Ой, спасибо большое, я теперь точно знаю, что разговарь со мной еще будут, значит вопрос просто глупый :-)
2 Shubnikov
ну дык не возвращает все записи :-(
Thks/Regards
Svetlana :-)
...
Рейтинг: 0 / 0
10.09.2004, 15:51:57
| Ответить | Цитировать | Написать  
Поиск в подчиненной форме (Продолжение ... )
    #32689986
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
тебе где и чего найти-то надо?
что значит:
проблема в том, что rs возвращает только подчиненные записи, а нуно искать по всем :-(
...
Рейтинг: 0 / 0
10.09.2004, 15:56:23
| Ответить | Цитировать | Написать  
Поиск в подчиненной форме (Продолжение ... )
    #32690005
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
значит надо сначала найти и перейти к записи главной формы которая содержит искомую в подчиненной а затем искать в подчиненной
...
Рейтинг: 0 / 0
10.09.2004, 16:00:47
| Ответить | Цитировать | Написать  
Поиск в подчиненной форме (Продолжение ... )
    #32690007
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
АлексейКзначит надо сначала найти и перейти к записи главной формы которая содержит искомую в подчиненной а затем искать в подчиненной
теперь ваще ниче не понял
...
Рейтинг: 0 / 0
10.09.2004, 16:01:44
| Ответить | Цитировать | Написать  
Поиск в подчиненной форме (Продолжение ... )
    #32690014
Фотография Svetlana_613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Svetlana_613
Участник
искать нуно в activecontrol подчиненной формы, а что - ну наверно так...
cntrlname = Screen.ActiveControl.name
POisk = InputBox("Find in " & cntrlname & " What", "Find", Nz(ctl, ""))
потом ставим фокус на подчиненную запись:
Me.Controls(mname).SetFocus
потом определяем рекордсет подчиненной:
Set rs = Me.Controls(mname).Form.Recordset
вот этот рекорд и возвращает только подчиненные записи... :-(
в общем-то проблема в том, чтобы организовать поиск в подчиненной форме по всем ее записям, а не только по подчиненным....

Thks/Regards
Svetlana :-)
...
Рейтинг: 0 / 0
10.09.2004, 16:03:56
| Ответить | Цитировать | Написать  
Поиск в подчиненной форме (Продолжение ... )
    #32690015
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
2 ЛП

авторпроблема в том, что rs возвращает только подчиненные записи, а нуно искать по всем :-(

делаю вывод что искомая запись подчиненной формы находится в другой записи главной поэтому такой ответ
...
Рейтинг: 0 / 0
10.09.2004, 16:03:57
| Ответить | Цитировать | Написать  
Поиск в подчиненной форме (Продолжение ... )
    #32690022
Фотография Svetlana_613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Svetlana_613
Участник
ой, чего-то я опаздываю явно... :-)
искать как раз нужно по всем подчиненным записям, а потом перейти на соответствующую главную
Thks/Regards
Svetlana :-)
...
Рейтинг: 0 / 0
10.09.2004, 16:06:09
| Ответить | Цитировать | Написать  
Поиск в подчиненной форме (Продолжение ... )
    #32690029
Фотография Svetlana_613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Svetlana_613
Участник
2 АлексейК
как я перейду к главной записи? я же не знаю, какая из них содержит искомую... - это как раз и нуно выяснить...
Thks/Regards
Svetlana :-)
...
Рейтинг: 0 / 0
10.09.2004, 16:08:13
| Ответить | Цитировать | Написать  
Поиск в подчиненной форме (Продолжение ... )
    #32690041
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
очень трудно найти черную кошку в темной комнате, особенно если ее там нет

открываете рекордсет, содержащий все записи (подчиненные)
ищете нужную (поиском по этому не привязанному к формам рекордсету)
если находите - то смотрите на идентификаторы, и для главной, и для подчиненной (ведь там же есть идентификатор для главной, иначе как формы связываются)
позиционируете главную (хоть бы и поиском по рекордсету формы)
потом позиционируете подчиненную (хоть бы и поиском по рекордсету формы)
...
Рейтинг: 0 / 0
10.09.2004, 16:11:09
| Ответить | Цитировать | Написать  
Поиск в подчиненной форме (Продолжение ... )
    #32690042
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
1 Dlookup или SQL запросом находишь код записи главной формы которому соответствует искомое в подчиненной

2 переходишь по записям рекордсета главной формы к искомому коду

3 Ищешь запись в рекордсете подчиненной
...
Рейтинг: 0 / 0
10.09.2004, 16:11:18
| Ответить | Цитировать | Написать  
Поиск в подчиненной форме (Продолжение ... )
    #32690084
Фотография Svetlana_613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Svetlana_613
Участник
2 ЛП:
Во-во, точно!!! (а говорите телепяты в отпуске :-))
вопрос: как "открываете рекордсет, содержащий все записи (подчиненные)" ?
так подойдет?
Set rs = Me.Controls(sub_name).Form.Recordset

2 АлексейК
Как, ну как я составлю этот запрос, если я не знаю ни в по какой из четырех форм идет поиск ни на каком контролу?

Thks/Regards
Svetlana :-)
...
Рейтинг: 0 / 0
10.09.2004, 16:21:21
| Ответить | Цитировать | Написать  
Поиск в подчиненной форме (Продолжение ... )
    #32690093
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
можно сформировать запрос из кода
можно выполнить четыре запроса по каждой из подчиненных
...
Рейтинг: 0 / 0
10.09.2004, 16:24:42
| Ответить | Цитировать | Написать  
Поиск в подчиненной форме (Продолжение ... )
    #32690094
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
вопрос: как "открываете рекордсет, содержащий все записи (подчиненные)" ?
так подойдет?
Set rs = Me.Controls(sub_name).Form.Recordset
не пойдет
все записи - это Select * From [Таблица]
Для DAO (mdb)
Код: plaintext
Set rs = CurrentDb.OpenRecordset("Select * From TableName")
и потом хоть обыщись по нему
...
Рейтинг: 0 / 0
10.09.2004, 16:26:01
| Ответить | Цитировать | Написать  
Поиск в подчиненной форме (Продолжение ... )
    #32690100
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
Как, ну как я составлю этот запрос, если я не знаю ни в по какой из четырех форм идет поиск ни на каком контролу?
очень тяжело найти черную кошку в темной комнате, особенно если ее там нет, как выглядит кошка - неизвестно, и где находится комната - тоже неизвестно

девушка, может вам сначала определиться - что и где вы ищете, а уже потом искать?
...
Рейтинг: 0 / 0
10.09.2004, 16:28:01
| Ответить | Цитировать | Написать  
Поиск в подчиненной форме (Продолжение ... )
    #32690108
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
или типа чтоб потом не искать

Код: plaintext
Set rs = CurrentDb.OpenRecordset("Select * From TableName where  textfield1 & text2 & text3 like " & chr( 34 ) & "*" & cntrlname & "*" &  chr( 34 )  )
...
Рейтинг: 0 / 0
10.09.2004, 16:32:28
| Ответить | Цитировать | Написать  
Поиск в подчиненной форме (Продолжение ... )
    #32690122
Фотография Svetlana_613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Svetlana_613
Участник
http://www.sql.ru/forum/actualthread.aspx?tid=114251
это предыдущий пост собрата по несчастью...
может так будет понятней...
2 АлексейК
Спасибо огромное, мысль появилась!!!
будем ее думать... :-)
Thks/Regards
Svetlana :-)
...
Рейтинг: 0 / 0
10.09.2004, 16:38:33
| Ответить | Цитировать | Написать  
Поиск в подчиненной форме (Продолжение ... )
    #32690280
Фотография Svetlana_613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Svetlana_613
Участник
Получилось!!!
главное, чтобы имена контролов совпадали с именами полей... :-)
Всем огромное спасибо, особенно Алексею и ЛП :-)
Thks/Regards
Svetlana :-)
...
Рейтинг: 0 / 0
10.09.2004, 17:51:57
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Поиск в подчиненной форме (Продолжение ... )
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32689848&tid=1671842]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 174ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 220ms
total:  484ms
созд. / загр.: 484ms
x
x
Закрыть


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