ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
25 сообщений из 46, страница 1 из 2
  1  все
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32790816
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tuzz
Участник
Поскажите, плиз, я прячу контрол формы, как перед этим с него забрать курсор? Заранее спаибо!
tuzz
...
Рейтинг: 0 / 0
19.11.2004, 11:25:35
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32790847
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Daf
Участник
expression.SetFocus...
...
Рейтинг: 0 / 0
19.11.2004, 11:37:41
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32790856
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Daf
Участник
Правила форума и еще F1.
...
Рейтинг: 0 / 0
19.11.2004, 11:39:23
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32790866
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
http://www.sql.ru/faq/faq_topic.aspx?fid=213
вопрос 30.
...
Рейтинг: 0 / 0
19.11.2004, 11:44:49
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32791253
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tuzz
Участник
Все это понятно!
Делаю expression.SetFocus
И Access тупо слетает!! Есть другой способ?
tuzz
...
Рейтинг: 0 / 0
19.11.2004, 13:27:51
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32791265
Bor-L
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bor-L
Гость
А на потерю фокуса контролом Вы ничего не делаете ?
...
Рейтинг: 0 / 0
19.11.2004, 13:30:13
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32791285
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
19.11.2004, 13:35:38
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32791751
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tuzz
Участник
На других машинах тоже самое!
tuzz
...
Рейтинг: 0 / 0
19.11.2004, 15:40:07
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32792154
Bor-L
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
19.11.2004, 18:00:43
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32793422
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
22.11.2004, 10:31:04
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32793507
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
А м.б.
Forms("Quote") .Order.Form.DESC1.Visible (?)
...
Рейтинг: 0 / 0
22.11.2004, 11:10:32
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #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
22.11.2004, 11:19:06
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32793544
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tuzz
Участник
ВиталА м.б.
Forms("Quote") .Order.Form.DESC1.Visible (?)
Аналогично, блин! Давно уже так access не слитал!
...
Рейтинг: 0 / 0
22.11.2004, 11:23:46
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32793573
фокус
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фокус
Гость
tuzz Витал Forms("Quote") .Order.Form.DESC1.Visible (?)
Аналогично, блин! Давно уже так access не слитал!

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

Обычно при отсутствии данных в подчиненке обращение к ней в предлагаемой форме вызывает ошибку. как-то кажется видел даже "слёты". (подчиненок правда было много).
забыл AllowAdditions - т.е. если, каацца, подчиненная форма открыта в режиме "без добавления" - AllowAdditions = False
...
Рейтинг: 0 / 0
22.11.2004, 11:37:59
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32793613
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
22.11.2004, 11:48:40
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32793684
фигус
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фигус
Гость
Таки подформы у вас ЭллауЭддишн, или нон фиха ?
От этого может зависеть ашшиппка обращения к подформе при отсутствии в ей данных.

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



ЗЫ: Проблема со слетом может упираться еще в синхронизацию подформ, связанных не с главной, а с другими поформами. (т.е. если "основные" поля связи указывают на поля других поформ или поля главной, источником данных которых являются поля других ее (не эллау эдддишн) подформ -т.е. поля с сурсами типа "= Forms!Main!sub1.Form.AnyField" При отсутствии записей в подчиненной sub1 такие ссылки в полях связи могут вызывать слёты. Но эти слёты записе-зависимы. Т.е. случаются при некотором, вполне конкретном состоянии данных. Что и указывает на них).
...
Рейтинг: 0 / 0
22.11.2004, 12:13:55
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #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
22.11.2004, 13:53:21
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32794117
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
22.11.2004, 14:23:23
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32794144
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
Субформа, я так понимаю ленточная?
...
Рейтинг: 0 / 0
22.11.2004, 14:31:11
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32794229
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tuzz
Участник
ВиталСубформа, я так понимаю ленточная?
да, надо прятать по очередно два поля..
...
Рейтинг: 0 / 0
22.11.2004, 14:55:14
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32794596
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
Что-то странное! Все рассуждения, приведенные здесь, правильны для Enabled контрола, а с Visible обычно проблем не бывает. Возможно, субформа в показывается фомате таблицы (Datasheet)? Тогда проблемы возможны. И тогда прятать надо не контролы а поля - ColumnWidth = 0 or ColumnHidden = True
...
Рейтинг: 0 / 0
22.11.2004, 16:47:35
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #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
22.11.2004, 16:48:06
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32794878
tuzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
22.11.2004, 18:57:20
| Ответить | Цитировать | Написать  
Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
    #32794908
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
16:47 - не верно?
...
Рейтинг: 0 / 0
22.11.2004, 19:23:26
| Ответить | Цитировать | Написать  
25 сообщений из 46, страница 1 из 2
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Фокус (я прячу контрол формы, как перед этим с него забрать курсор?)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32794908&tid=1670129]:
 0ms
get settings:
 5ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 41ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 66ms
get tp. blocked users:
 1ms
others: 197ms
total:  340ms
созд. / загр.: 340ms
x
x
Закрыть


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