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

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

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

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

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

в принципе просто но парюсь уже часа 3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.11.2002, 13:38
    #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:47
    #32064548
AlexNiko
AlexNiko
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Две свободные субформы и связь между ними !
Я думал по поводу списков, это конечно проще и наверное правильнее, но возникает вопрос а как грамотно реализовать изменение, доьавление и удаление в этих списках
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.11.2002, 13:59
    #32064560
AlexNiko
AlexNiko
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Две свободные субформы и связь между ними !
В принципе вопрос прост, как из одной суб формы изменить RecordSource другой

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

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

Forms![Form1]![Form3].Form.RecordSource="" у меня не работает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.11.2002, 14:21
    #32064581
mahoune
mahoune
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Две свободные субформы и связь между ними !
Что-то мне говорит, что тебе хватит метода requery!
Если конечно ты в запросах используешь в качестве параметорв отбора значений ссылки на поля форм!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.11.2002, 14:37
    #32064589
AlexNiko
AlexNiko
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Две свободные субформы и связь между ними !
Использую но похоже дело не в этом а в том на какое событие вешать обработчит OnCurent ругается что не пральная ссылка на объект а какое еще есть событие которое отслеживает перемещение по записям формы не знаю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.11.2002, 14:39
    #32064592
mahoune
mahoune
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Две свободные субформы и связь между ними !
Все тот же AfterUpdate!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.11.2002, 14:43
    #32064595
AlexNiko
AlexNiko
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Две свободные субформы и связь между ними !
Странно, я ради пробы повесил MsgBox на AfterUpdate так он выскакиевает только в том случае когда что то меняется или добавляется а на переход по записям ему пофиг.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.11.2002, 15:14
    #32064606
mahoune
mahoune
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Две свободные субформы и связь между ними !
Попробуй метод Current ("Текущая запись")
Код: plaintext
1.
2.
private Sub Form_Current()
  MsgBox  "Current" 
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.11.2002, 19:58
    #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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Две свободные субформы и связь между ними ! / 18 сообщений из 18, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 147ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1683010]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 33ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 12ms
total:  147ms
x
x
Закрыть


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