ListBox с несколькими столбцами. Как добавить данные?

[LexRema]

Здрасвтвуйте.
В список нужно добавить несколько значений в строку, чтобы он приобрел вид таблицы:

А надо просто оформлять правильно, и будет отображено корректно.
Второй пост удалён за ненадобностью.

Код: Выделить всё

Название    Парам1        Парам2

Пр1         +             Парам_1
Пр2         -             Парам_1

Как осуществить добавление элемента?
Доступ - не проблема: myList.Column (2,3). Но есть возможность как-то записать в данную ячейку значение? Источник строк - список значений. Я встречал в нэте предложения создать три отдельных столбца, в четвертом - их обьеденить и отобразить четвертый в форме. Как это сделать, если этот вариант работает? Или предложите что-то другое. Спасибо.

[GSerg]

Доступ - не проблема: myList.Column (2,3). Но есть возможность как-то записать в данную ячейку значение?

Почему бы не попробовать?..

[LexRema]

Почему же не пробовал. Возможно не то пробывал... Ну вот

List_IN.Column(2, 1) = "fs"

Говорит, object required.

[GSerg]

Ну значит option explicit надо перед кодом поставить.

[LexRema]

Done.
Все равно та же ошибка

Код: Выделить всё

Option Compare Database
Option Explicit
Public Sub AddItem(a As Integer)
       
       List_IN.Column(2, 1) = "fs"                          ' а здесь... обджект.
       ...
End Sub


[GSerg]

Я к тому, что List_IN не есть листбокс.

[LexRema]

Кстати. Сейчас как -раз с этим играюсь. Скажем, обьявляю новый листбокс и чтобы не играться - присваиваю ему другой обджект. Так передается значение по ссылке.
как-то можно инициализировать данный обьект, не связывая его с формой?

Я к тому, что List_IN не есть листбокс.

Не знаю... Вроде все ОК- добавляю на форму обьект - пользуюсь.

[GSerg]

1. Нельзя.
2. Был бы это листбокс - не было бы этой ошибки. Рекомендуется проверить написание слова List_IN, и в список объектов формы тоже посмотреть.

[LexRema]

1.Спасибо
2. Написание правильное. Список . Он родимый.
В принципе, можна извраться через ";" в ровсорсе... Не хотелось бы...

[GSerg]

А что в rowsource?

[LexRema]

Тут все отлично. Например Есть данные в первом столбце. Две строчки. Тогда в ровсорсе: Дата1;;;Дата2;;;

[LexRema]

Ну... Извини за такой... вопрос. Как увеличить длину строки? На релибе за такой вопрос парня засмеяли (Правда он тему назвал - "основная проблема Ексес " )... Но так и не ответили. Возможно, ответ перед носом... В хэлпе-

A variable-length string can contain up to approximately 2 billion (2^31) characters.
A fixed-length string can contain 1 to approximately 64K (2^16) characters.

Но как установить это свойство?
Ты(Вы) не удевляйтесь... Я с С++ пришел.

[GSerg]

Ну надо же было уточнять, что access. В access column read-only.
А длина строки в языках высокого уровня определяется привоением ей содержимого.

[LexRema]

Извини, что не уточнил... А как насчет длины строки?

[LexRema]

У меня не определяется... Хотя, может я и ошибаюсь. Проверю - напишу. Спасибо. Но через ровсорсе все получилось.

[alibek]

sValue = "text"
sValue = "long text"
sValue = Space$(200)
sValue = String$(500, vbNullChar)

[LexRema]

Такой вопрос. Есть функция AddItetm (listBox).
но есть ли такое же в офисах старых версий?
Когда я попробовал открыть в офисе 2000 , проэкт начал выдавать ошибку дебага для этой функции

[alibek]

Где именно?
В формах офиса (MSForms) листбокс совсем другой.
Попробуй List1.Column(0,NewRow) = "NewValue"

[LexRema]

Ладно, пока посижу в 2003 офисе... спасибо за советы
Но не расслабляюсь.
! Unload Me
Хочу закрыть форму эта функция говорит - Unable to unload this object

DoCmd.Close , "Choose", acSaveNo
где Choose - имя моей формы, вообще никак не реагирует.

[alibek]

Где именно?
У Access и у остальным приложений формы разные и работать с ними надо по разному.
Попробуй Hide.