powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
46 сообщений из 46, показаны все 2 страниц
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32790816
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Поскажите, плиз, я прячу контрол формы, как перед этим с него забрать курсор? Заранее спаибо!
tuzz
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32790847
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
expression.SetFocus...
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32790856
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32790866
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32791253
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Все это понятно!
Делаю expression.SetFocus
И Access тупо слетает!! Есть другой способ?
tuzz
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32791265
Bor-L
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А на потерю фокуса контролом Вы ничего не делаете ?
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32791285
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Bor-LА на потерю фокуса контролом Вы ничего не делаете ?

Private Sub r1_LostFocus()

cbtCalc.SetFocus

Forms.Quote.Order.Form.DESC1.Visible = True
Forms.Quote.Order.Form.NameUA2.Visible = False
End Sub
Вот и все!
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32791751
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
На других машинах тоже самое!
tuzz
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32792154
Bor-L
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Private Sub r1_LostFocus()

Forms.Quote.Order.Form.DESC1.Visible = True
cbtCalc.SetFocus

Forms.Quote.Order.Form.NameUA2.Visible = False
End Sub

А так ?
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32793422
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Bor-LPrivate Sub r1_LostFocus()

Forms.Quote.Order.Form.DESC1.Visible = True
cbtCalc.SetFocus

Forms.Quote.Order.Form.NameUA2.Visible = False
End Sub

А так ?

тоже самое!
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32793507
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А м.б.
Forms("Quote") .Order.Form.DESC1.Visible (?)
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32793528
фокус
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В подчиненке тоже (отдельно) нужно управлять фокусом
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub r1_LostFocus()
    cbtCALC.SetFocus

    Forms.Quote.Order.Form.DESC1.Visible = True
    Forms.Quote.Order.Form.DESC1.SetFocus      'на случай фокуса в NameUA2
    Forms.Quote.Order.Form.NameUA2.Visible = False

End Sub
по крайней мере у меня в случае фокуса в подчиненке в NameUA2 (вернее, если он там был перед переходом в главную) Аксесс ругается на невозможность скрыть контрол, имеющий фокус (но не слетает). Хотя фокус по завершении процедуры оказывается в cbtCALC в главной форме, а до начала её был в r1 главной (видимо при обращении процедуры к подчненке восстанавливается фокус в том её контроле, в котором он был до выхода из подформы).
Акс 97.
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32793544
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ВиталА м.б.
Forms("Quote") .Order.Form.DESC1.Visible (?)
Аналогично, блин! Давно уже так access не слитал!
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32793573
фокус
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
tuzz Витал Forms("Quote") .Order.Form.DESC1.Visible (?)
Аналогично, блин! Давно уже так access не слитал!

Обычно при отсутствии данных в подчиненке обращение к ней в предлагаемой форме вызывает ошибку. как-то кажется видел даже "слёты". (подчиненок правда было много).
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32793585
фикус
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
фокус tuzz Витал Forms("Quote") .Order.Form.DESC1.Visible (?)
Аналогично, блин! Давно уже так access не слитал!

Обычно при отсутствии данных в подчиненке обращение к ней в предлагаемой форме вызывает ошибку. как-то кажется видел даже "слёты". (подчиненок правда было много).
забыл AllowAdditions - т.е. если, каацца, подчиненная форма открыта в режиме "без добавления" - AllowAdditions = False
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32793613
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
фокусВ подчиненке тоже (отдельно) нужно управлять фокусом
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub r1_LostFocus()
    cbtCALC.SetFocus

    Forms.Quote.Order.Form.DESC1.Visible = True
    Forms.Quote.Order.Form.DESC1.SetFocus      'на случай фокуса в NameUA2
    Forms.Quote.Order.Form.NameUA2.Visible = False

End Sub
по крайней мере у меня в случае фокуса в подчиненке в NameUA2 (вернее, если он там был перед переходом в главную) Аксесс ругается на невозможность скрыть контрол, имеющий фокус (но не слетает). Хотя фокус по завершении процедуры оказывается в cbtCALC в главной форме, а до начала её был в r1 главной (видимо при обращении процедуры к подчненке восстанавливается фокус в том её контроле, в котором он был до выхода из подформы).
Акс 97.
тоже самое..
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32793684
фигус
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Таки подформы у вас ЭллауЭддишн, или нон фиха ?
От этого может зависеть ашшиппка обращения к подформе при отсутствии в ей данных.

И сделай те декомпиле адын разок для начала.



ЗЫ: Проблема со слетом может упираться еще в синхронизацию подформ, связанных не с главной, а с другими поформами. (т.е. если "основные" поля связи указывают на поля других поформ или поля главной, источником данных которых являются поля других ее (не эллау эдддишн) подформ -т.е. поля с сурсами типа "= Forms!Main!sub1.Form.AnyField" При отсутствии записей в подчиненной sub1 такие ссылки в полях связи могут вызывать слёты. Но эти слёты записе-зависимы. Т.е. случаются при некотором, вполне конкретном состоянии данных. Что и указывает на них).
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32794027
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторcbtCALC.SetFocus

Forms.Quote.Order.Form.DESC1.Visible = True
Forms.Quote.Order.Form.DESC1.SetFocus

Могут быть грабли и по такой причине "cbtCALC.SetFocus" - если этот контрол в главной форме и нормально получает фокус, то для того, чтобы передать фокус в подчиненую, надо сначала передать ей фокус, как контролу главной,
и только потом непосредственно контролу.

Forms.Quote.Order.SetFocus
Forms.Quote.Order.Form.DESC1.SetFocus

если, конечно, не вру нагло.
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32794117
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Витал авторcbtCALC.SetFocus

Forms.Quote.Order.Form.DESC1.Visible = True
Forms.Quote.Order.Form.DESC1.SetFocus

Могут быть грабли и по такой причине "cbtCALC.SetFocus" - если этот контрол в главной форме и нормально получает фокус, то для того, чтобы передать фокус в подчиненую, надо сначала передать ей фокус, как контролу главной,
и только потом непосредственно контролу.

Forms.Quote.Order.SetFocus
Forms.Quote.Order.Form.DESC1.SetFocus

если, конечно, не вру нагло.

Не помогает это все...
Может есть другой способ прятать контролы...?
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32794144
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Субформа, я так понимаю ленточная?
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32794229
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ВиталСубформа, я так понимаю ленточная?
да, надо прятать по очередно два поля..
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32794596
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Что-то странное! Все рассуждения, приведенные здесь, правильны для Enabled контрола, а с Visible обычно проблем не бывает. Возможно, субформа в показывается фомате таблицы (Datasheet)? Тогда проблемы возможны. И тогда прятать надо не контролы а поля - ColumnWidth = 0 or ColumnHidden = True
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32794597
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторPrivate Sub r1_LostFocus()
cbtCALC.SetFocus

Forms.Quote.Order.Form.DESC1.Visible = True
Forms.Quote.Order.Form.DESC1.SetFocus 'на случай фокуса в NameUA2
Forms.Quote.Order.Form.NameUA2.Visible = False

End Sub
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub r1_LostFocus()
     With Forms("Quote").Order
       .SetFocus
       .Form.DESC1.Visible = True
       .Form.DESC1.SetFocus      'на случай фокуса в NameUA2
       .Form.NameUA2.Visible = False
    End With
End Sub

И такое не работает?
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32794878
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Витал авторPrivate Sub r1_LostFocus()
cbtCALC.SetFocus

Forms.Quote.Order.Form.DESC1.Visible = True
Forms.Quote.Order.Form.DESC1.SetFocus 'на случай фокуса в NameUA2
Forms.Quote.Order.Form.NameUA2.Visible = False

End Sub
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub r1_LostFocus()
     With Forms("Quote").Order
       .SetFocus
       .Form.DESC1.Visible = True
       .Form.DESC1.SetFocus      'на случай фокуса в NameUA2
       .Form.NameUA2.Visible = False
    End With
End Sub

И такое не работает?
Блин! Я в шоке, все тоже самое.. на всех машинах, разные инсталяхи офиса!
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32794908
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
16:47 - не верно?
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32795678
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Rivkin Dmitry16:47 - не верно?
Как именно написать? Чего то у меня не прячит, но и не слетает!
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32795771
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Так я не понял - мое предположение верно или нет?
Если верно, то вместо
Forms.Quote.Order.Form.NameUA2.Visible = False
Нужно писать
Forms.Quote.Order.Form.NameUA2.ColumnWidth = 0 or
Forms.Quote.Order.Form.NameUA2.ColumnHidden = True
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32795938
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Rivkin DmitryТак я не понял - мое предположение верно или нет?
Если верно, то вместо
Forms.Quote.Order.Form.NameUA2.Visible = False
Нужно писать
Forms.Quote.Order.Form.NameUA2.ColumnWidth = 0 or
Forms.Quote.Order.Form.NameUA2.ColumnHidden = True

Тоже самое написал, ни чего не изменяется.
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32795977
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Rivkin DmitryТак я не понял - мое предположение верно или нет?
Если верно, то вместо
Forms.Quote.Order.Form.NameUA2.Visible = False
Нужно писать
Forms.Quote.Order.Form.NameUA2.ColumnWidth = 0 or
Forms.Quote.Order.Form.NameUA2.ColumnHidden = True

Автор сказал уже, что субформа у него ленточная

А что в окне Immediate наблюдается (ссылки-то правильные на поля субформы?)
Код: plaintext
?Forms.Quote.Order.Form.NameUA2
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32796017
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пользуясь случаем, хотел бы уточнить, что такое ленточная форма (придумают-же тоже перевод!!)? Это когда Continuous Forms или Datasheet?
Или это не играет роли? Или существуют разная терминология? Просвятите невежду! Пожалуйста!
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32796022
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Витал Rivkin DmitryТак я не понял - мое предположение верно или нет?
Если верно, то вместо
Forms.Quote.Order.Form.NameUA2.Visible = False
Нужно писать
Forms.Quote.Order.Form.NameUA2.ColumnWidth = 0 or
Forms.Quote.Order.Form.NameUA2.ColumnHidden = True

Автор сказал уже, что субформа у него ленточная

А что в окне Immediate наблюдается (ссылки-то правильные на поля субформы?)
Код: plaintext
?Forms.Quote.Order.Form.NameUA2

Да ссылки правильные..
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32796026
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Витал
Выдели свою проблему в отдельное дб и дай всем посмотреть
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32796280
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Rivkin DmitryВитал
Выдели свою проблему в отдельное дб и дай всем посмотреть
Вот эта форма, без таблиц!
Поставил на событие фокуса, кнопки "счет" и "спецификация"!
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32796404
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
tuzz авторТак я не понял - мое предположение верно или нет?
Если верно, то вместо
Forms.Quote.Order.Form.NameUA2.Visible = False
Нужно писать
Forms.Quote.Order.Form.NameUA2.ColumnWidth = 0 or
Forms.Quote.Order.Form.NameUA2.ColumnHidden = True

Все это работает, если сапформа в виде таблице!
А что же делать с лен.формой?
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32796545
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Rivkin DmitryВитал
Выдели свою проблему в отдельное дб и дай всем посмотреть

Проблема у туза, однако.
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32796607
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не знаю какого рожна, но у меня работает без проблем. Правда Ак2003. Но и в коде вроде правильно. Единественно не понял почему на событие потери фокуса переключателем все повешено - однако хозяин - барин.
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32796665
Фотография Finans
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А может переименовать подчинённую форму?
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32796678
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
tuzz
Все это, конечно, здорово..
Но у меня ак97!
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32796714
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Единственно, что не проверял по шагам, это - что делают другие процедуры (да и не мог, не имея данных). М.б. в них собака порылась?
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32797225
Bor-L
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
tuzz, выложите нормальный пример с контрольными данными. Сочинять их за Вас нет смысла (вдруг Ваш эффект не появится ?)
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32797239
Фотография Finans
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Хотя-бы строчку...
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32799705
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
tuzz
Извините, выставить пример с контрольными данными не представляется возможным..
Валиться тупо на том после сго ставлю .SetFocus..
Без него все нормально..
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32800088
Bor-L
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
автор

выставить пример с контрольными данными не представляется возможным..



Можно подумать, что это данные ЦИК о втором туре голосования
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32800144
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Bor-L автор

выставить пример с контрольными данными не представляется возможным..



Можно подумать, что это данные ЦИК о втором туре голосования
Да нет, БД не моя... доступ строго ограничен.. Да же если я смогу некоторые данные взять, то там так навояли, что без пол-литры не обойтись.. и времени ..
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32800153
Bor-L
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ну структуру то базы можно поиметь, а все цифры пусть будут = 0, а текст = "чему хотите" Поместите таблицы в тот же Мdb - и сюда (может эффект сразу и пропадет, тогда хоть будет понятно, что дело - в данных, сети и т.д. а не в программном коде) И, еств, оставьте во всех таблицах min строк
...
Рейтинг: 0 / 0
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32800164
Bor-L
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Возможно, имеет смысл проверять Screen.ActiveControl, и переводить фокус только если это то, что Вам не годится ?
...
Рейтинг: 0 / 0
46 сообщений из 46, показаны все 2 страниц
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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