powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Отловить выбранные строчки в подформе
10 сообщений из 10, страница 1 из 1
Отловить выбранные строчки в подформе
    #39553789
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Привет всем! Сто лет не был на форуме... Соскучился!
А2003
Нет проблемы перебрать выделенные строчки на табличной форме. Но! Мне это нужно при нажатии кнопки на главной форме. Прблема в том, что фокус сразу уходит на главную и выбранные строки перестают быть выбранными. Наверняка, кто-нибудь подобную проблему уже решал. Тыкните! Я что-то не нашел сходу...
...
Рейтинг: 0 / 0
Отловить выбранные строчки в подформе
    #39553798
Predeclared
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
CommandBarButton
не?
...
Рейтинг: 0 / 0
Отловить выбранные строчки в подформе
    #39553808
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Predeclared,

В смысле через меню? Наверное, получится, ты прав, но не охота огород городить. Для клиента не будет это интуитивным действием...
...
Рейтинг: 0 / 0
Отловить выбранные строчки в подформе
    #39553842
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Запоминать SelTop и SelHeight подформы в процедуре OnExit контрола-контейнера подформы.
...
Рейтинг: 0 / 0
Отловить выбранные строчки в подформе
    #39554076
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
__MichelleЗапоминать SelTop и SelHeight подформы в процедуре OnExit контрола-контейнера подформы.
Пытался... Но .SelHeight = 0 уже...
Придется, видимо, ловить на мышке. Так не хочется...
...
Рейтинг: 0 / 0
Отловить выбранные строчки в подформе
    #39554147
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Rivkin Dmitry,
тут понравилась идея 1666380
...
Рейтинг: 0 / 0
Отловить выбранные строчки в подформе
    #39554170
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Rivkin Dmitry__MichelleЗапоминать SelTop и SelHeight подформы в процедуре OnExit контрола-контейнера подформы.
Пытался... Но .SelHeight = 0 уже...
Придется, видимо, ловить на мышке. Так не хочется...А у меня получается.
Проверено в Ac2000 и Ac2007.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
' В основной форме:
Option Compare Database
Option Explicit
Dim ST As Long, _
    SH As Long

Private Sub Внедренный0_Exit(Cancel As Integer)
 ST = Внедренный0.Form.SelTop
 SH = Внедренный0.Form.SelHeight
End Sub

Private Sub Кнопка2_Click()
 Debug.Print ST, SH
End Sub

' В Immediate после нажатия Кнопка2 (в подформе выбраны записи с 15-ой по 26-ю вкл.):
SelTop        15           SelHeight      12
...
Рейтинг: 0 / 0
Отловить выбранные строчки в подформе
    #39554175
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Поправка:
Код: vbnet
1.
2.
3.
Private Sub Кнопка2_Click()
 Debug.Print "SelTop", ST, "SelHeight", SH
End Sub
...
Рейтинг: 0 / 0
Отловить выбранные строчки в подформе
    #39554286
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
guest_rusimportRivkin Dmitry,
тут понравилась идея 1666380

Супер! Получается. Сам бы не додумался

автор__Michelle
Спасибо за помощь, но не идет у меня так. Я еще до вопроса это проверял и после твоего ответа проверил. А2003. Может быть в этом дело?
...
Рейтинг: 0 / 0
Отловить выбранные строчки в подформе
    #39554317
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Rivkin Dmitryавтор__Michelle
Спасибо за помощь, но не идет у меня так. Я еще до вопроса это проверял и после твоего ответа проверил.
А2003. Может быть в этом дело?В 2000 и 2007 идет.
На след. неделе смогу проверить в 2003. Просто для коллекции.

А другой вариант тоже понравился.
В основном тем, что выделение в подформе не исчезает. Получается, конечно, наглядней.
Но с OnExit тоже можно этого добиться.
В процедуру для OnExit добавить
Внедренный0.Form.Painting = False
А в процедуру нажатия кнопки добавить
Внедренный0.Form.SelTop = ST
Внедренный0.Form.SelHeight = SH
Внедренный0.Form.Painting = True
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Отловить выбранные строчки в подформе
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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