powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как использовать ListBox?
17 сообщений из 17, страница 1 из 1
Как использовать ListBox?
    #32495406
Рачаев Олег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В форме, кот привязана к табл. есть контрол типа ListBox. Он привязан к текстовому полю в таблице, тип источника строк = Список значений.

Трабла в том, что этот вредный ListBox никак не хочет отображать данные из поля, независимо от его содержания. Когда же смотришь в табл. - там есть данные, например "1;2;3". Сами данные он заносит, но при переключении на другую запись, он показывает старое значение, которое занесено в этом сеансе работы с формой ...

Как заставить его нормально и отображать данные в формате "1;2;3" и потом нормально эти же данные отображать...

Поможите, кто может ...
...
Рейтинг: 0 / 0
Как использовать ListBox?
    #32495408
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
А можно увидеть свойства этого листбокса?

ControlSource=
RowSource=
ColumnCount=
ColumnWidths=
...
Рейтинг: 0 / 0
Как использовать ListBox?
    #32495415
Рачаев Олег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ControlSource=поле_таблицы
RowSource= ""
ColumnCount=1
ColumnWidths=1 см
...
Рейтинг: 0 / 0
Как использовать ListBox?
    #32495421
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
И RowSource нигде не меняется программно?
...
Рейтинг: 0 / 0
Как использовать ListBox?
    #32495424
Рачаев Олег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
меняется кнопками addPlast и removePlast:

plasts - это тот самый ListBox

plast - это ComboBox

Private Sub addPlast_Click()
Dim aPos As Long

If Not IsNull(Me!plast) Then
aPos = InStr(Me!plast, Me!plasts)
If aPos = 0 Then
Me!plasts.AddItem (Me!plast)
End If
End If
End Sub

Private Sub removePlast_Click()

Dim aIndex As Variant

For Each aIndex In Me!plasts.ItemsSelected
Me!plasts.RemoveItem (aIndex)
Next aIndex

End Sub
...
Рейтинг: 0 / 0
Как использовать ListBox?
    #32495429
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
А вот это "1;2;3" - это значение одного поля одной записи? Или это несколько значений?
...
Рейтинг: 0 / 0
Как использовать ListBox?
    #32495436
Рачаев Олег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
"1;2;3" - это значение одного поля, в данном случае geo_plasts

Собственно ListBox содержит список пластов, а при нажатии этих кнопок, соответственно пласты должны добавляться/удалять в/из ListBox, а потом из ListBox-а сохраняться в поле табл geo_plasts ...
...
Рейтинг: 0 / 0
Как использовать ListBox?
    #32495437
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
Me!plasts.AddItem (Me!plast) 


что это, ...? (@Артур Конан Дойл)

может так подразумевалось

Me!plasts.Value = Me!plast.Value

?
...
Рейтинг: 0 / 0
Как использовать ListBox?
    #32495439
Рачаев Олег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Victosha, да это подразумевалось, но в Accesse можно и так записать - смысл от этого не поменяется ...
...
Рейтинг: 0 / 0
Как использовать ListBox?
    #32495440
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Рачаев Олег
я пошел учить матчасть
...
Рейтинг: 0 / 0
Как использовать ListBox?
    #32495441
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Но если одно поле 1;2;3, а другое 4;5;6, то полученное 1;2;3;4;5;6 будет воспринято листбоксом как список из 6 значений, а не из 2.
...
Рейтинг: 0 / 0
Как использовать ListBox?
    #32495443
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Интересно посмотреть в дебаггере, чему получается равен RowSource после этих AddItem.
...
Рейтинг: 0 / 0
Как использовать ListBox?
    #32495444
Рачаев Олег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Саныч, ну этого то я и немогу от ListBox-а добиться, он вообще ничего не отображает...
...
Рейтинг: 0 / 0
Как использовать ListBox?
    #32495445
Рачаев Олег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Саныч, в дебагере ... все нормально добавляется ... и отображается только то что добавляешь в данном сеансе работы с формой ... но этот ListBox не может подхватить поле из табл ... почему-то ...
...
Рейтинг: 0 / 0
Как использовать ListBox?
    #32495449
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
авторв дебагере ... все нормально добавляется
У меня плохо с телепатией. Не вижу. :^)
...
Рейтинг: 0 / 0
Как использовать ListBox?
    #32495467
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Рачаев Олег

докладываю - матчасть по данному вопросу выучил, чего и Вам желаю. -)

а пока, если хотите, чтобы работало, как ВАМ НАДО - замените AddItem на то, что подразумевалось.
...
Рейтинг: 0 / 0
Как использовать ListBox?
    #32495511
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
автор...и отображается только то что добавляешь в данном сеансе работы с формой ... но этот ListBox не может подхватить поле из табл ... почему-то ...

Он может его "подхватить" если это значение входит в источник записей. А я не вижу, в каком месте вы его добавляете. Кроме того вообще не понятен смысл добавления, удаление item-ов. Такое ощущение, что вы хотите, чтобы весь набор (все строки) сохранились в одном поле.
...
Рейтинг: 0 / 0
17 сообщений из 17, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как использовать ListBox?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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