Помогите убрать редактирование из выпадающего списка

@zaa2004 · Регистрация: 15.03.2010

Студворк — интернет-сервис помощи студентам

Приветствую, господа!

Никто мне не поможет в одной проблемке?

Спасибо, тогда продолжу:

У меня есть выпадающий список, в нем свойство 'Ограничиться списком' установлено в True. То есть, какой-либо ввод в сей список неуместен. Но курсор все равно присутствует, и можно не в тему вводить различные значения. Все работает правильно, но курсорчик оставить в покое не могу, так как эстетические взгляды не позволяют, надо бы его прибить. А также запретить ввод значений.

Не подскажете, как это сделать?

Очень буду благодарен любому совету.

Искренне Ваш,
Александр (которого достала вышеупомянутая проблемка).

@BorisL · 22.03.2010, 10:22

Можно так: Создать 2 контрола, поле и комбобокс. Поле - блокировка - да. Комбобокс (нулевой высоты) прижать к нижней кромке поля. По событию получение фокуса поля - раскрывать список. После выбора значения в комбо - заносить его в поле. Если не совсем понятно - спрашивайте. Удачи. Кстати, такой пример был где-то на форумах, может кто даст ссылку.

@BorisL · 22.03.2010, 10:26

Уточнение - блокировать поле не нужно.Достаточно просто переводить фокус на комбобокс

Visual Basic
1
2
3
4
Private Sub Поле_GotFocus()
    Me![ПолеСписок].SetFocus
    Me![ПолеСписок].Dropdown
End Sub

@zaa2004 · 22.03.2010, 14:12 **[ТС]**

Большое спасибо за советы!

А, может, как то через WinApi можно курсорчик спрятать?

@BorisL · 22.03.2010, 14:18

Можно
http://am.rusimport.ru/MsAccess/topic.aspx?ID=117

@zaa2004 · 22.03.2010, 17:06 **[ТС]**

Та мне ж текстовый курсорчик надо убрать, не мышиный, мышка пока нужна. Без мышки юзеру сложно, а ламеру вообще невмоготу.

@BorisL · 22.03.2010, 17:31

А текстовый курсор и не мешает совсем, фокус то перейдет на комбо

@zaa2004 · 22.03.2010, 18:14 **[ТС]**

Да, понимаю, но я хочу, чтобы не было курсора и нельзя было редактировать значения в строке списка, - неэстетично смотрится.

@BorisL · 23.03.2010, 08:54

Я не понимаю, как Вам это удается. Только соберешься 'редактировать', нажмешь кнопку мыши для выбора строчки в выпадающем списке комбобокса, а он, подлец, сразу закрывается, и, поскольку его высота = 0, то его и не видно (совсем) ?

@denismix · 27.10.2022, 03:47

Чтобы не городить огород с "прилепливанием" полей, как описано в первом ответе, можно просто и не затейливо навесить "пустышку" на событие "Изменение":

Visual Basic
1
2
3
4
5
6
Private Sub myCombobox_Change()
    Me![myCombobox] = Me![myCombobox]
 
    ' При необходимости можно продолжить код, если нужны еще какие то действия...
 
End Sub

А вообще, конечно Access ужасно недоделанный продукт - фактически любой мало-мальски сложный код состоит из сплошных "костылей"

Добавлено через 50 минут
Как вариант, можно навесить на событие "Нажатие клавиши" макрос с единственной командой "ОтменитьСобытие".
При этом работает TAB и можно перемещаться по тексту и его выделять с помощью клавиатуры.

@alecko5 · 27.10.2022, 13:30

zaa2004, ставьте в это поле значение по умолчанию, или 1-ю строку списка - заполните его, тогда в основном у юзеров желание редактировать пропадает.,
примерно так

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
dim strsql
strsql= "0;Нет должности" 
With Me.Controls("Combo1")
   .RowSourceType = "Value List"
   .RowSource = strsql
   .BoundColumn = 1
   .ColumnCount = 2
   .ColumnWidths = "0; " & .Width
   .ColumnHeads = False
   .LimitToList = True
   .AllowValueListEdits = False ' запрещаем редактировать блокнот
'   .Selected(0) = True  это первая строка
'   .Value = .ItemData(0)
.value=0 ' это умолчание
End With

@ltv_1953 · 27.10.2022, 13:35

Не по теме:

Еще один некропостер. 12 лет - это почти рекорд.

@denismix · 27.10.2022, 13:43

Сообщение от ltv_1953

Еще один некропостер. 12 лет - это почти рекорд.

Проблема в том, что за 12 лет эти

так и не сделали свойство "Запретить ввод"

Добавлено через 2 минуты

Сообщение от alecko5

ставьте в это поле значение по умолчанию, или 1-ю строку списка - заполните его, тогда в основном у юзеров желание редактировать пропадает.,

Немного опасно, ползатель может и профукать правильный выбор... видит краем глаза, что там что-то есть и идет дальше...
Если ставить "Выберите бла бла", то нужно дополнительно делать функцию проверок - а так все штатно - просто ничего нельзя вводить и всё.

@Eugene-LS · 27.10.2022, 13:55

Сообщение от denismix

так и не сделали свойство "Запретить ввод"

А как насчёт свойств .AllowValueListEdits и .LimitToList ?

@denismix · 27.10.2022, 15:47

Сообщение от Eugene-LS

А как насчёт свойств .AllowValueListEdits и .LimitToList ?

Я эти поля + "Наследовать список значений" + "Только значения источника строк" (больше вроде ничего подходящего по смыслу нет) во всех возможных комбинациях перепробовал =))
Пробовал так же в самой таблице указывать тоже в разных комбинациях....

...но вот у меня в Access 365 (десктоп) файл.accdb ну никак они не выполняют свою функцию.

Часто вижу отсылку на эти свойства при подобном вопросе, и даже кто-то писал, что сработало... но большинство решает какими то достаточно заковыристыми "костылями".

Даже Тестовую БД сделал =)

@АЕ · 27.10.2022, 16:49

Сообщение от denismix

Даже Тестовую БД сделал =)

Не плохо для темы, которой 12 лет.

@denismix · 27.10.2022, 16:59

Сообщение от АЕ

Не плохо для темы, которой 12 лет.

Возможно вы знаете как это сделать в 2022 г. "без костылей"?
Меня просто действительно уже замучили всякие недоделки в Access, которым по 10-20 лет, а воз и ныне там.
90% вопросов по тонкой настройке интерфейса, так и остаются без ответа 5-10 лет...

@Eugene-LS · 27.10.2022, 17:39

Сообщение от denismix

Даже Тестовую БД сделал =)

Если я правильно вас понял то так:

Visual Basic
1
2
3
Private Sub Комбинированная0_KeyDown(KeyCode As Integer, Shift As Integer)
    KeyCode = 0
End Sub

@ltv_1953 · 27.10.2022, 17:49

Сообщение от denismix

но большинство решает какими то достаточно заковыристыми "костылями"

И какие здесь костыли?

@denismix · 27.10.2022, 18:03

Сообщение от Eugene-LS

Если я правильно вас понял то так:

Собственно я это и написал в своем первом посте.
Я искал как это сделать "штатно", настройками свойств. Не нашел.

В этом топике меня сильно удивил способ предложенный в первом ответе этого треда, с подстановкой полей "нулевой высоты" и т.п. Вот и решил, коротенько написать несколько более кмк разумных вариантов.
Но уже "почти пятница", поэтому похоже все желают общения... =)))

PS Кстати, если нужно "заглушить ввод" в большое количество полей в разных формах, то с макросом удобнее, его проще назначать кликом.

Добавлено через 9 минут

Сообщение от ltv_1953

И какие здесь костыли?

Не смог понять что демонстрирует ваш пример БД denismix.7z?

Там поля в которые можно ввести все что хочешь, потом Форма "ругается" или предлагает обновить список.
А задача не дать вводить.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

@zaa2004 2 / 2 / 0 Регистрация: 15.03.2010 Сообщений: 25

	Помогите убрать редактирование из выпадающего списка 22.03.2010, 04:05. Показов 5891. Ответов 21 Метки нет (Все метки) Приветствую, господа! Никто мне не поможет в одной проблемке? Спасибо, тогда продолжу: У меня есть выпадающий список, в нем свойство 'Ограничиться списком' установлено в True. То есть, какой-либо ввод в сей список неуместен. Но курсор все равно присутствует, и можно не в тему вводить различные значения. Все работает правильно, но курсорчик оставить в покое не могу, так как эстетические взгляды не позволяют, надо бы его прибить. А также запретить ввод значений. Не подскажете, как это сделать? Очень буду благодарен любому совету. Искренне Ваш, Александр (которого достала вышеупомянутая проблемка). 0

@BorisL 5 / 5 / 0 Регистрация: 19.03.2009 Сообщений: 743
	22.03.2010, 10:22
	Можно так: Создать 2 контрола, поле и комбобокс. Поле - блокировка - да. Комбобокс (нулевой высоты) прижать к нижней кромке поля. По событию получение фокуса поля - раскрывать список. После выбора значения в комбо - заносить его в поле. Если не совсем понятно - спрашивайте. Удачи. Кстати, такой пример был где-то на форумах, может кто даст ссылку. 0

@zaa2004 2 / 2 / 0 Регистрация: 15.03.2010 Сообщений: 25
	22.03.2010, 14:12 [ТС]
	Большое спасибо за советы! А, может, как то через WinApi можно курсорчик спрятать? 0

@BorisL 5 / 5 / 0 Регистрация: 19.03.2009 Сообщений: 743
	22.03.2010, 14:18
	Можно http://am.rusimport.ru/MsAccess/topic.aspx?ID=117 0

@zaa2004 2 / 2 / 0 Регистрация: 15.03.2010 Сообщений: 25
	22.03.2010, 17:06 [ТС]
	Та мне ж текстовый курсорчик надо убрать, не мышиный, мышка пока нужна. Без мышки юзеру сложно, а ламеру вообще невмоготу. 0

@BorisL 5 / 5 / 0 Регистрация: 19.03.2009 Сообщений: 743
	22.03.2010, 17:31
	А текстовый курсор и не мешает совсем, фокус то перейдет на комбо 0

@zaa2004 2 / 2 / 0 Регистрация: 15.03.2010 Сообщений: 25
	22.03.2010, 18:14 [ТС]
	Да, понимаю, но я хочу, чтобы не было курсора и нельзя было редактировать значения в строке списка, - неэстетично смотрится. 0

@BorisL 5 / 5 / 0 Регистрация: 19.03.2009 Сообщений: 743
	23.03.2010, 08:54
	Я не понимаю, как Вам это удается. Только соберешься 'редактировать', нажмешь кнопку мыши для выбора строчки в выпадающем списке комбобокса, а он, подлец, сразу закрывается, и, поскольку его высота = 0, то его и не видно (совсем) ? 0

@ltv_1953
	27.10.2022, 13:35
	Не по теме: Еще один некропостер. 12 лет - это почти рекорд. 0