powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ComboBox событие LostFocus
9 сообщений из 9, страница 1 из 1
ComboBox событие LostFocus
    #32755796
Alexandr Gruzdev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть ComboBox. В случае, если он остался пустой, по событию LostFocus, курсор не должен переходить на следующую запись, а оставаться там пока ComboBox не будет заполнен (Limit to list отключен).
...
Рейтинг: 0 / 0
ComboBox событие LostFocus
    #32755802
Осел
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Прочитай ключ строки и верни курсор на место по Lostfocus
...
Рейтинг: 0 / 0
ComboBox событие LostFocus
    #32755865
astronom99
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не получается, все равно прыгает на следующую строку, вот код:
Код: 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
ComboBox событие LostFocus
    #32755871
забыл кто
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В свойствах комбика надо сделать следующее...
Условие на значение: Is Not Null
Сообщение об ошибке: Поле не может быть пустым!

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


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