ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Две свободные субформы и связь между ними !
18 сообщений из 18, страница 1 из 1
Две свободные субформы и связь между ними !
    #32064472
AlexNiko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexNiko
Гость
Есть две свободные субформы, необходимо сделать так что при перемещении по зяписям одной меняется набор записей другой. Подскажите как.
...
Рейтинг: 0 / 0
04.11.2002, 12:04
| Ответить | Цитировать | Написать  
Две свободные субформы и связь между ними !
    #32064498
Роман Ткачук
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Роман Ткачук
Гость
/topic/15008\r
\r
А ещё в A2000 иногда можно повесить их программно на один рекордсет:\r
set form2.Recordset=form1.Recordset\r
Об этом почитай в хелпе (статья о свойстве Recordset формы).
...
Рейтинг: 0 / 0
04.11.2002, 12:52
| Ответить | Цитировать | Написать  
Две свободные субформы и связь между ними !
    #32064510
AlexNiko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexNiko
Гость
Наверное я не совсем корректно спросил
Форма2>Событие>Current
Как сослаться на Форму3
если форма2 и форма3 являются субформами для формы1
Forms.Item("[Форма1]![Форма3]").RecordSource =""
не работает
...
Рейтинг: 0 / 0
04.11.2002, 13:11
| Ответить | Цитировать | Написать  
Две свободные субформы и связь между ними !
    #32064514
Роман Ткачук
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Роман Ткачук
Гость
А зачем лепить события, обработки, код писать? Попробуйте через поля связи подчиненных форм это сделать. Подсказка: общее поле связи должно быть на главной форме.
...
Рейтинг: 0 / 0
04.11.2002, 13:14
| Ответить | Цитировать | Написать  
Две свободные субформы и связь между ними !
    #32064515
AlexNiko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexNiko
Гость
С этим проблем нет, но в таком случае нет возможности увидеть весь список а приходиться листать по одному значению
...
Рейтинг: 0 / 0
04.11.2002, 13:16
| Ответить | Цитировать | Написать  
Две свободные субформы и связь между ними !
    #32064520
Роман Ткачук
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Роман Ткачук
Гость
>>при перемещении по зяписям одной меняется набор записей другой.
>>нет возможности увидеть весь список а приходиться листать по одному значению

Всё, я запутался :-)
...
Рейтинг: 0 / 0
04.11.2002, 13:22
| Ответить | Цитировать | Написать  
Две свободные субформы и связь между ними !
    #32064522
AlexNiko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexNiko
Гость
Форма1 Это родительская форма

на ней три субформы, форма2, форма3, форма4

форма2 - при переходе по записям меняется набор записей в форме 3

форма3 - при переходе по записям меняется набор записей в форме 4

в принципе просто но парюсь уже часа 3
...
Рейтинг: 0 / 0
04.11.2002, 13:26
| Ответить | Цитировать | Написать  
Две свободные субформы и связь между ними !
    #32064536
Фотография mahoune
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mahoune
Участник
Я для подобных вещей использовал список!\r
На AfterUpdate вешал обновление нужного списка!\r
\r
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub LST1_AfterUpdate()\r
On Error GoTo Err_LST1_AfterUpdate\r
\r
    strSQL =  "SELECT * PROM tbl2 WHERE TBL2.id="  & LST1.value &  ";" \r
    LST2.RowSource = strSQL\r
\r
Exit_LST1_AfterUpdate:\r
    Exit Sub\r
\r
Err_LST1_AfterUpdate:\r
    MsgBox Err.Description\r
    Resume Exit_LST1_AfterUpdate\r
End Sub
\r
\r
Но можно и по другому, глянь сюды\r
/topic/14882
...
Рейтинг: 0 / 0
04.11.2002, 13:38
| Ответить | Цитировать | Написать  
Две свободные субформы и связь между ними !
    #32064548
AlexNiko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexNiko
Гость
Я думал по поводу списков, это конечно проще и наверное правильнее, но возникает вопрос а как грамотно реализовать изменение, доьавление и удаление в этих списках
...
Рейтинг: 0 / 0
04.11.2002, 13:47
| Ответить | Цитировать | Написать  
Две свободные субформы и связь между ними !
    #32064560
AlexNiko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexNiko
Гость
В принципе вопрос прост, как из одной суб формы изменить RecordSource другой

Forms![Form1]![Form3].Form.RecordSource="" не работает
...
Рейтинг: 0 / 0
04.11.2002, 13:59
| Ответить | Цитировать | Написать  
Две свободные субформы и связь между ними !
    #32064566
Фотография mahoune
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mahoune
Участник
To AlexNiko:
Изменение списков надо бы реализовать в отдельном окне, совершенно другой формы!
...
Рейтинг: 0 / 0
04.11.2002, 14:07
| Ответить | Цитировать | Написать  
Две свободные субформы и связь между ними !
    #32064573
AlexNiko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexNiko
Гость
И все же вопрос открыт

как из одной субформы изменить RecordSource другой субформы

Forms![Form1]![Form3].Form.RecordSource="" у меня не работает
...
Рейтинг: 0 / 0
04.11.2002, 14:14
| Ответить | Цитировать | Написать  
Две свободные субформы и связь между ними !
    #32064581
Фотография mahoune
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mahoune
Участник
Что-то мне говорит, что тебе хватит метода requery!
Если конечно ты в запросах используешь в качестве параметорв отбора значений ссылки на поля форм!
...
Рейтинг: 0 / 0
04.11.2002, 14:21
| Ответить | Цитировать | Написать  
Две свободные субформы и связь между ними !
    #32064589
AlexNiko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexNiko
Гость
Использую но похоже дело не в этом а в том на какое событие вешать обработчит OnCurent ругается что не пральная ссылка на объект а какое еще есть событие которое отслеживает перемещение по записям формы не знаю
...
Рейтинг: 0 / 0
04.11.2002, 14:37
| Ответить | Цитировать | Написать  
Две свободные субформы и связь между ними !
    #32064592
Фотография mahoune
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mahoune
Участник
Все тот же AfterUpdate!
...
Рейтинг: 0 / 0
04.11.2002, 14:39
| Ответить | Цитировать | Написать  
Две свободные субформы и связь между ними !
    #32064595
AlexNiko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexNiko
Гость
Странно, я ради пробы повесил MsgBox на AfterUpdate так он выскакиевает только в том случае когда что то меняется или добавляется а на переход по записям ему пофиг.
...
Рейтинг: 0 / 0
04.11.2002, 14:43
| Ответить | Цитировать | Написать  
Две свободные субформы и связь между ними !
    #32064606
Фотография mahoune
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mahoune
Участник
Попробуй метод Current ("Текущая запись")
Код: plaintext
1.
2.
private Sub Form_Current()
  MsgBox  "Current" 
End Sub
...
Рейтинг: 0 / 0
04.11.2002, 15:14
| Ответить | Цитировать | Написать  
Две свободные субформы и связь между ними !
    #32064726
Smile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Smile
Участник
мож я че не понял как всегда

две таблицы
в одной отделы (ID, DepName)
в другой сотрудники (ID,FIO, IDDep)

отделы родительская (ID - первичный ключ), сотрудники дочерняя (IDDep - внешний ключ)
связь один к одному

форма1 - главная форма, источник записей пустой
форма2, форма3 - подчиненые формы расположенные на форма1

для форма2 (отображает отделы)
свойства подчиненные поля и основные поля пустые

для форма3 (отображает сотрудники)

подчиненные поля указываешь внешний ключ (сотрудники) из самой формы3, например
подчиненные поля=[IDDep]

для основные поля пустые указываешь первичный ключ (отделы) из форма2, например
основные поля=форма2![ID]

в форма2

Private Sub Form_Current()
Parent.форма3.Form.Requery
End Sub

по аналогии можно еще добавить и форма4 подчиненную форма3

у меня так и работает именно три формы
...
Рейтинг: 0 / 0
04.11.2002, 19:58
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Две свободные субформы и связь между ними !
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32064515&tid=1683010]:
 0ms
get settings:
 9ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 62ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 13ms
total:  163ms
созд. / загр.: 163ms
x
x
Закрыть


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