Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ComboBox событие LostFocus / 9 сообщений из 9, страница 1 из 1
26.10.2004, 19:26:34
    #32755796
Alexandr Gruzdev
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ComboBox событие LostFocus
Есть ComboBox. В случае, если он остался пустой, по событию LostFocus, курсор не должен переходить на следующую запись, а оставаться там пока ComboBox не будет заполнен (Limit to list отключен).
...
Рейтинг: 0 / 0
26.10.2004, 19:29:11
    #32755802
Осел
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ComboBox событие LostFocus
Прочитай ключ строки и верни курсор на место по Lostfocus
...
Рейтинг: 0 / 0
26.10.2004, 20:37:40
    #32755865
astronom99
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ComboBox событие LostFocus
Не получается, все равно прыгает на следующую строку, вот код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub PartID_LostFocus()
Dim Poz As Integer
Poz = Me.CurrentRecord
If PartID <> "" Then
Sorr.Visible = True
Korr.Visible = True
Else
DoCmd.GoToRecord , "fpo_kontrol_peci", acGoTo, Poz
MsgBox "Введи код партии", vbInformation, Poz
Me.PartID.SetFocus
End If
End Sub
...
Рейтинг: 0 / 0
26.10.2004, 20:48:57
    #32755871
забыл кто
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ComboBox событие LostFocus
В свойствах комбика надо сделать следующее...
Условие на значение: Is Not Null
Сообщение об ошибке: Поле не может быть пустым!

//как-то натыкался на подобное поведение какой-то проги - требовала ввести в поле то, чего я не знал (или что-то вроде того). Пришлось применять запрещенный удар тремя пальцами и больше никогда не запускать сие творение... Это так... к слову...
...
Рейтинг: 0 / 0
26.10.2004, 21:05:57
    #32755886
Alexandr Gruzdev
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ComboBox событие LostFocus
Не задерживается все равно! Бред какой-то...
...
Рейтинг: 0 / 0
26.10.2004, 21:07:59
    #32755887
alef120
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ComboBox событие LostFocus
еще вариант:
If IsNull(ComboBox1.Value) Then
comboBox2.SetFocus 'переход фокуса на сомвоВох2 нужен для того,чтобы вернуться на сомвоВох1
comboBox1.SetFocus
в промежутке можно выдать сообщение о том, что нужно заполнить поле
...
Рейтинг: 0 / 0
26.10.2004, 21:08:17
    #32755888
ComboBox событие LostFocus
а сообщение выдает? Может условие нуно другое, а не ИзНотНул...
...
Рейтинг: 0 / 0
26.10.2004, 21:28:02
    #32755905
Serge Gavrilov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ComboBox событие LostFocus
Private Sub PartID_Exit(Cancel As Integer)
Cancel = Len(Nz(PartID, "")) = 0
End Sub
...
Рейтинг: 0 / 0
26.10.2004, 22:44:18
    #32755934
astronom99
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ComboBox событие LostFocus
Спасибо огромное, вот это помогло:
Код: plaintext
1.
2.
Private Sub PartID_Exit(Cancel As Integer)
Cancel = Len(Nz(PartID, "")) =  0 
End Sub
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ComboBox событие LostFocus / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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