Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > MS Access > событие онМоусМув для кнопки.

Автор: alexIrish 21.6.2007, 11:50

На маленькой форме четыре кнопки и техтовое поле.
Нужно что бы при наезде указателя на кнопку, в поле указывалось описание чего делает кнопка.
На онМоусМув для каждой пишу:

Код


Private Sub GoToCR_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Str As String
Str = DLookup("Description", "Reports Descriptions", "[Report Name] = 'Capacity Report'")
Debug.Print Str
Description.ControlSource = Str
Description.Requery ' Eto mozhno ne pisAt', result is same
End Sub

V итоге в свойствe Источник записи Текст.поля вижу то что надо, но на самом полe - #Name
a Debug.print sтрочит Значение как по циклу. ну и полe тоже мигает как сумашедшее.

Нужен совет.

Проблема #Name reшена: Description.ControlSource = "='" & Str & "'"
Oсталось сделать что бy кнопка реагировал на МаусМув только один раз за заход.
А то если по ней мышкой водить она все время запускает коd на ето событие.

Автор: Akina 21.6.2007, 15:15

Цитата(alexIrish @ 21.6.2007, 12:50

)

Oсталось сделать что бy кнопка реагировал на МаусМув только один раз за заход.
А то если по ней мышкой водить она все время запускает коd на ето событие.

А что ты хочешь? событие-то возникает...
А чтобы не работать код кучу раз, заведи статическую переменную. И, сформировав строку для запихивания в текстбокс, сравни сперва ее с этой переменной. Если равны - то нечего и огород городить, Exit Sub. Ну а коли не равны - то и в контрол записАть, и в той переменной сохранить.

Автор: alexIrish 22.6.2007, 12:44

Спасибо, так и сделал.
Вот только работает через раз.
Один раз запускаю приложенe - все без проблем.
вторий раз - открывается форма, навожу курсор на кнопку - строке статуса пишет "Calculating..."
и все покa курсор нe уведешь.
Закрываю форму, открываю - все нормально.
Может ето из-за сети такой парафин? МДБ файл на файловом сервере.

Автор: Akina 22.6.2007, 14:05

Цитата(alexIrish @ 22.6.2007, 13:44

)

вторий раз - открывается форма, навожу курсор на кнопку - строке статуса пишет "Calculating..." и все покa курсор нe уведешь.

Чудесо... а событие-то возникает?

Автор: alexIrish 22.6.2007, 16:54

Да, возникает.
Держу открытым окно Properties для техтового поля, вожу курсором по кнопкам и в поле Kонтрол Сорс вижу как все меняется как надо, а в самом полe нифига.

Автор: Akina 22.6.2007, 17:20

Попробуй выполнить Requery, вроде это единственный обновляющий метод у кнопки...

Автор: alexIrish 22.6.2007, 17:27

пытался. нифига.
самый прикол что если после открытия форм открыть окно vbe, tо все работает, причем дажe если послe ВБЕ закрыть. Стоит перезапустить файл, все тоже самое.
У меня такое первый раз.

Автор: bopoha 23.6.2007, 01:40

Свойство "Всплывающая подсказка" просто так придумана?

ЗЫ: вкладка "Другие".

Автор: Akina 24.6.2007, 20:13

Цитата(bopoha @ 23.6.2007, 02:40

)

Свойство "Всплывающая подсказка" просто так придумана?

Ты про отображение или про хранение? во втором случае лучше Tag...

Автор: alexIrish 25.6.2007, 01:45

Цитата

Свойство "Всплывающая подсказка" просто так придумана?

Ето к чему? Если к способу выводить подсказку, то так было с начала. Но ее vедь не отформатируешь ( в смысле фонтс сайз и т.д.)
вот и приходиться извращаться потому как босс любит красоту. Вы бы видели какой он бекграунд заказал:/
к общей проблеме, все таки референсы виноваты или еще что такое.
На домашем компе все работает. Буду сверять ссылки.