Интересно, если я элементы списка ввожу через СПИСОК ЗНАЧЕНИЙ в конструкторе таблицы, а не через присоединенный столбец, то как можно этот список изменять, не входя в режим конструктора таблицы?
Есть у Списка значений в конструкторе таблицы свойство "форма для изменения списка". Но я так и не поняла, как этим свойством пользоваться. То есть для того, чтобы выбрать нужную форму, нужно ее создать, логично? А как создать форму, в которой я смогу изменять СПИСОК ЗНАЧЕНИЙ одного из полей таблицы?
ЧТО БУДЕТ ИСТОЧНИКОМ ДАННОЙ ФОРМЫ?

Я поясню.
Всего списков два вида: Список значений и Список полей.
Список полей - это не что иное, как присоединнный столбец из другой таблицы, то есть значения берутся из другой таблицы.
Список значений - это список, который ТЫ САМ устанавливаешь в конструкторе таблиц для данного поля. Вот меня интересует список значений.

Аксесс 2007:
Таблица - Конструктор - Поле1 - в свойствах вкладка Подстановка - во вкладке выбираю Тип источника строк: Список значений - в источнике строк устанавливаю свои значения.
Вот об этом я списке значений
Изменить я его могу в конструкторе таблицы в свойствах поля во вкладке Подстановка.
Но в той же вкладке есть свойство "Форма изменения элементов списка". В справке написано, что в этом свойстве можно выбрать форму, альтернативную стандартной, появляющейся для ввода списка значений. Но как эту форму сделать?

Если у тебя в одном из полей выпадающий список, источником строк которого является НЕ присоединенный столбец, а твои значения, то при выпадении списка в самом низу списка появляется и кнопочка, которая вызвает стандартную форму для изменения этого списка. Эта кнопка появляется как в таблице, так и в форме. Но как эту кнопку нажать программно, не знаю. И как стандартную формочку заменить своей, тоже не знаю.

вот картинка

Похоже, что в Access2007 можно работать без форм, всё уже встроено в таблицы ;-) Т.е. разработка настольных приложений баз данных упростилась дальше некуда :-)

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

Да тут вопрос не в версии, а в целесообразности.
Список значений для поля со списком делается тогда, когда вероятность его изменения (тем более динамически) близка к 0.

у А2007 есть ряд возможностей, недоступных для более ранних версий
в частности, если поле со списком получено ч-з список значений, то, установив в свойствах элемента - "Разрешить изменение списка значений" - ДА, получим следующую возможность:
при выборе на этом элементе внизу раскрывшегося списка получим полупрозрачную иконку, нажав на которую, можно ввести новые значения
там же, кстати, устанавливается и значение по умолчанию...
см. пример.

причем не важно, в таблице ли это или на форме.

поле я не заполнял, Аленка, заполнишь сама..

п.с.
а....так задача другая оказывается...

Но уже поняла, что список значений меняется только через стандартную форму...

Ничего подобного.
Список значений можно изменять как в элементе управления ComboBox в форме, так и в поле таблицы из любой формы. (для mdb во всяком случае)

Да, список значений можно изменить с помощью своей формы, а при желании и вообще без формы.
А зачем подобной форме источник данных?

1. Что есть "список значений" для поля с подстановкой - свойство поля таблицы.
2. Что есть значение этого поля - строка значений, разделенных точкой с запятой.
3. Для того, чтобы изменить значение свойства поля таблицы необходим инструмент доступа к свойствам поля таблицы и новое значение свойства.
4. Формировать новое значение свойства (в данном случае-строку) можно в функции/процедуре любого модуля, в том числе в модуле своей формы.
5. В качестве инструмента доступа к свойствам полей таблицы можно использовать, например, библиотеку DAO. Возможно, профессионалы подскажут другие инструменты.

Осталось добавить, что хранить текстовые значения в полях с подстановкой - расточительство.
Лучше использовать числовые поля.
Строка - список значений будет иметь вид:

1;"первое";2;"второе";3;"третье"

В свойствах поля:
"Подстановка, Число столбцов" задаем - 2 (столбца)
"Присоединенный столбец" - 1
Да и в коде, и в фильтрах работать будет удобнее с числом, чем с текстовым значением.

А как насчет такой конструкции:

Public Enum DayWeek     Понедельник = 1     Вторник= 2     Среда= 3     Четверг= 4     Пятница= 5     Суббота= 6     Воскресенье= 7 End Enum Public Function funTest()     If Weekday(Date, vbMonday) = DayWeek.Пятница Then         MsgBox "Сегодня пятница"     Else         MsgBox "Сегодня нифига не пятница"     End If End Function

Ну да, я примерно эту мысль уже и озвучивала. Что если я создаю список значений, то вероятность его изменения скорее всего повлечет изменение и структуры данных. То есть это будет означать, что появилось еще одно условие, которое в некоторых случаях будет означать и значительное изменение структуры данных (пусть не всех, но в одной из веток). У меня такое было. Один из моих списков, пока я до него дошла, точнее до его оптимальной формы, я три раза меняла и структуру данных. Сейчас она у меня оптимальная судя по всему, так как отвечает на все основные вопросы именно так как нужно.

Почему я вообще подняла этот вопрос?
Потому, что это мой ПЕРВЫЙ опыт проектирования нормального (ну, насколько это можно назвать нормальным при моем уровне) клиент-серверного приложения. Как я говорила в других темах, раньше моя база работала через SQL как клиент-сервер, но она была построена на простых запросах и с обычными формами, практически без кода. Соответственно, была слишком простой. Сейчас же она уже принимает вид более или менее того приложения, которое я и хотела видеть.
Но я не уверена, что я все смогу предусмотреть. Именно поэтому я и подумала о возможности изменения списка в случае чего. ХОтя я сейчас уже понимаю, что изменяя список, скорее всего, придется менять и код, а может и структуру данных

ну а смысл???
ну будет у меня отдельная таблица: (это цветность печати в полиграфии)
0+0
1+0
1+1
2+0
2+1
2+2
3+0
3+1
3+2
3+3
4+0
4+1
4+2
4+3
4+4
и что?
и подобных таблиц будет еще 50 штук, в которых ну ничего нет, кроме того, что я написал
почему не использовать возможность, которую предоставляет access, а именно поле значений в кач-ве источника строк...???

ну что плохого в том, что код у меня имеет вид:

'****************** НЕСТАНДАРТ **************************     If [Формат листовки] = "Нестандарт" Then         If [Размер] = "Меньше А4" Then                     If [Цветность листовки] = "1+0" Then                     [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+0 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А4]))                     ElseIf [Цветность листовки] = "1+1" Then                     [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+1 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А4]))                     ElseIf [Цветность листовки] = "2+0" Then                     [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[2+0 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А4]))                     ElseIf [Цветность листовки] = "2+1" Then                     [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+0 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А4])) + IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+1 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А4]))                     ElseIf [Цветность листовки] = "2+2" Then                     [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+1 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А4])) * 2                     ElseIf [Цветность листовки] = "3+0" Or [Цветность листовки] = "4+0" Then                     [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[4+0 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А4]))                     ElseIf [Цветность листовки] = "3+1" Or [Цветность листовки] = "3+2" Or [Цветность листовки] = "3+3" Or [Цветность листовки] = "4+1" Or [Цветность листовки] = "4+2" Or [Цветность листовки] = "4+3" Or [Цветность листовки] = "4+4" Then                     [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[4+4 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А4]))                     End If [Стоимость печати листовок1] = ([Виртуальный тираж по А4] * [Цена за единицу листовки]) * [Тиражность листовок]         ElseIf [Размер] = "Меньше А3" Then                     If [Цветность листовки] = "1+0" Then                     [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+0 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А3])) * 2                     ElseIf [Цветность листовки] = "1+1" Then                     [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+1 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А3])) * 2                     ElseIf [Цветность листовки] = "2+0" Then                     [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[2+0 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А3])) * 2                     ElseIf [Цветность листовки] = "2+1" Then                     [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+0 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А3])) * 2 + IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+1 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А3])) * 2                     ElseIf [Цветность листовки] = "2+2" Then                     [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+1 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А3])) * 4                     ElseIf [Цветность листовки] = "3+0" Or [Цветность листовки] = "4+0" Then                     [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[4+0 А3]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А3]))                     ElseIf [Цветность листовки] = "3+1" Or [Цветность листовки] = "3+2" Or [Цветность листовки] = "3+3" Or [Цветность листовки] = "4+1" Or [Цветность листовки] = "4+2" Or [Цветность листовки] = "4+3" Or [Цветность листовки] = "4+4" Then                     [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[4+4 А3]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А3]))                     End If [Стоимость печати листовок1] = ([Виртуальный тираж по А3] * [Цена за единицу листовки]) * [Тиражность листовок]         ElseIf [Размер] = "Больше А3" Then                     If [Цветность листовки] = "1+0" Then                     [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+0 А2]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А2]))                     ElseIf [Цветность листовки] = "1+1" Then                     [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+0 А2]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А2])) * 2                     ElseIf [Цветность листовки] = "2+0" Then                     [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[2+0 А2]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А2]))                     ElseIf [Цветность листовки] = "2+1" Then                     [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[2+0 А2]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А2])) + IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[1+0 А2]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А2]))                     ElseIf [Цветность листовки] = "2+2" Then                     [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[2+0 А2]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А2])) * 2                     ElseIf [Цветность листовки] = "3+0" Then                     [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[4+0 А2]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А2]))                     ElseIf [Цветность листовки] = "3+1" Or [Цветность листовки] = "3+2" Or [Цветность листовки] = "3+3" Or [Цветность листовки] = "4+1" Or [Цветность листовки] = "4+2" Or [Цветность листовки] = "4+3" Or [Цветность листовки] = "4+4" Then                     MsgBox "Нельзя печатать на А2ф 3+1, 3+2, 3+3, 4+1, 4+2, 4+3 и 4+4!!!", vbInformation, "СИСТЕМА КОНТРОЛЯ ВВОДА ИНФОРМАЦИИ"                     Exit Function                     ElseIf [Цветность листовки] = "4+0" Then                     [Цена за единицу листовки] = IIf(Val(Nz([Тираж], 0)) = 0, 0, DMin("[4+0 А2]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А2]))                     End If [Стоимость печати листовок1] = [Виртуальный тираж по А2] * [Цена за единицу листовки] * [Тиражность листовок]         End If End If ' Конец блока [Формат листовки] = "Нестандарт"

ИМХО Список значений в первую очередь не удобен тем, что в нем неудобно вносить изменения. Если мы даже уверены что в нем изменять ничего не придется, не факт что этого не нужно будет делать например через год. Например сегодня есть три формы юридических лиц: ОАО, ЗАО, ГАО. Через год появиться ещё ДАО, а Вы свое приложение поставите 100 юзерам и как вы будете обнавлять свой список значений у 100 юзеров? ИМХО проще это поручить юзерам, создав форму для редактирования этих данных ну и т.д.
И еще есть два основных правила
1. Простота - упрощайте все что можно упростить
2. Нормализация - нормализуйие все что можно нормализовать.

Попробуйте еще раз почитать про нормализацю это ни так уж и много. Возможно многие вопросы пропадут.

к этому новому ДАО нужно будет и код писать в программе..тогда как?

Возможно это нужно для каких-то задач. Но я с таким не встречался
ИМХО в 99% случаев код должен работать не завися от данных таблиц.
Естественно я могу ошибаться

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

ещё раз вам говорю в 99% случаев так быть не должно (если мы говорим о более-менее професиональном проиложении). Может Ваш случай попадает в этот 1%, но я сомневаюсь .

появится вид работ какой-то новый, ну например, производство подстаканников

естественно это происходит сплошь и рядом, но код же из-за этого менятся не должен (нормальный код при нормальной (нормализованной) базе данных.

Что касается калькуляции, то для каждого изделия (или вида изделия) может применяться свой алгоритм расчетов
Это наверное и есть тот 1% о котором я писал выше
Написанным здесь ни в коем случае не ставлю под сомнение ваши (Lukas, Скорп) знания Аксес-а

не Lukas
это пока для меня сложновато
но я обязательно доберусь до таких примудростей рано или поздно

До кучи. Скорп, а зачем в каждой строчке проверять тираж на пустое значение?.
Проверь один раз в начале функции, если пусто - обнули все расчетные поля и вываливайся из функции.
В остальных строчках удали проверки. Код будет значительно короче и читабельней.

Мнда - список значений был вопросик
Вопросик то был

и вообще можно без IIf обойтись оказывается

[Цена за единицу листовки] =  DMin("[1+0 А4]", "Таблица цен листовки", "[Тираж]<=" & [Виртуальный тираж по А4])

ибо в начале кода описал я

If IsNull([Тираж]) Or [Тираж] = 0  Then ...

Lukas? я правильно мыслю?
подожду ответа, потом начну исправлять если получу добро

супер!
спасибо Lukas!

п.с. когда начал заказчику показывать, что я наваял, я показал код программы..тогда он у меня на 10 страницах был
потом стал его компоновать, однотипные операции выводить в функции
в итоге заказчику и показывать нечего, на 1-2-х листах помещается
еще скажет, что зря хлеб ем

Ну и развили вы тут темку мою. Уже и человека без зарплаты, значит, оставить хотим
У меня когда-то тоже была такая ситуация. Еще когда я в икселе работала, я там тоже иногда баловалась ВБА. Но баловалась так, не более чем...
Так у меня там код вообще однажды был БОЛЕЕ 64К, то есть даже не влезал в один модуль. В итоге мой код влезал аж в 5 модулей. Представляете вы себе этот код?

А хотите посмеяться? Насколько уменьшился этот код после того, как мне сказали, что такой большой код дикость и посоветовали, как его изменить!
КОД УМЕНЬШИЛСЯ ДО ДВУХ СТРОЧЕК!
Это было моим первым уроком, что для всех однотипных операций нужно писать общий код.
Я в общем-то это и тогда знала, просто не знала как. Мучилась целый год, точнее не мучилась, а не парилась по этому поводу: ну не знаю и не знаю и ладно.
А когда заинтересовалась серьезно, то поняла, что надо был это сделать еще раньше