» Access VBA

Как всегда возникла проблема на простейшем:
Имеем форму и в ней поле со списком с перечнем стран (берется из таблицы).
Таблица имеет вид:
State_ID - счетчик
State_Name - название страны
В связанных таблицах идет подстановка - реально везде хранятся индексы стран из поля State_ID - счетчик, а выводятся названия стран из State_Name.
Соответственно в поле со списком
Данные = SELECT [Страны].[State_ID], [Страны].[State_Name] FROM Страны ORDER BY [Страны].[State_Name];
Число столбцов = 2
Присоединенный столбец = 1
Ширина столбцов = 0см;4см

Задача - при вводе новой страны в поле формы:
1) Проверить - нет ли его в списке
2) В случае, если нет - добавить в таблицу и выбрать в поле формы

Что сделано (использована функция NotInList для объекта DropDownBox):
1) Сама функция NotInList + для подстраховки от пробелов Trim + DCount - если по введеному значению ф-ция возвращает 0, значит такой страны нет и переходим ко второму

2) Добавление делаю через:
DBEngine(0).BeginTrans
CurrentDb.Execute ("INSERT INTO " & "[Страны]" & "(" & "[State_Name]" & ")SELECT '" & NewData & "'"), dbFailOnError
DBEngine.CommitTrans
Проканывает

Обновляю список
Me!DropDownBox.ListIndex = 0
(Если без этой строки требует сохранить значение поля)

Me!DropDownBox.Requery

Теоретически осталось только выполнить
Me!DropDownBox.ListIndex = NN, где NN это номер той самой записи, которую мы добавляли. НО
а) не знаю как выловить только что добавленное значение, поскольку DropDownBox сортируется по алфавиту...
б) при присвоении ListIndex = NN при экспериментах с фиксированными NN выявилось, что после этой операции список остается открытым/выпавшим. Иначе как уходом фокуса на другой объект формы решить не смог. А хотелось бы остаться на этом поле.

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

Chichako
Попробуй запоминать max ListIndex при инициализации формы. Соответсвенно, новый на один больше.
Запрет ввода - на KeyDown присваивай KeyCode=0

Цитата:

Иначе как уходом фокуса на другой объект формы решить не смог. А хотелось бы остаться на этом поле.

Кто мешает програмно изменить фокус и тут же вернуться? Как сделать - ну хотя бы поставить любой контрол в заэкранную область. Менять фокус на него. В его эвенте на получение фокуса прописать возврат на лист.

Посмотрите пожалуйста базу: http://slil.ru/24869973
Не получается сделать вот такие вещи:
1) На форме ListOfEes имеется поле badge, существует номер у каждого сотрудника (я сделал его с раскрываюшемся списом), хочу чтобы можно было выбирать по номеру любого сотрудника, и остальные поля заполнялись согласно номеру. Какой запрос необходимо созать чтобы осуществить это?
2) На форме TimeSheet-Day, выбираю номер сотрудника, нажимаю на кнопку Information, открывается форма ListOfEes, но с самого начала, а я хочу чтобы какой номер я выбрал на форме TimeSheet-Day, такой номер передавался в ListOfEes в поле badge и выводилась информация о сотруднике под его номером.
3) Проблема создания отчета, отчет на основе таблицы, которую заполняет запрос. Например поле с раскрывающемся списком badge, соединяет 3 столбца таблицы, badge + имя + фамилия, т.о. в таблице сохраняется только поле badge, и соотвественно в отчете выводится только номер, как же свзязать имя + фамилию к номеру, чтобы они тоже выводились на отчете?

Подскажите, плз, возможно ли объединить 2 базы данных, имеющих идентичную структуру, но разные записи? Пытался экспортировать записи одной в другую. Access предлагает заменить.. можно ли как-то дополнить одну другой?

splintt
Запрос на добавление.

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

Vitus_Bering, Algofil, спасибо вам большое!
Выручили!

я не програмист но для облегчения ручного труда написания документов необходимо реализовать вот что:
1. есть таблица1 с полем где должны записываться жалобы больного
2. при заполнении в форме жалобы должны набираться из списка подстановки ---> есть таблица2 со списком возможных жалоб
3. в таб1 поле жалобы должны попадать не 1 жалоба из списка а СРАЗУ НЕСКолько
========
по книгам я разобрался что такие конструкции в аксесе это связь многие-ко-многим, принцип понял, связь в схеме сделал, делаю поле подстановки не работает (обращения к таблицам через запросы и формы)

помогите пожалуйста

с уважением Евгений.

докторам надо помогать при первой же возможности, "уж лучше Вы к нам" (С)
1. итак, несколько жалоб из списка + возможно, жалобы которых нет в списке, так?
тада поле типа МЕМО, в ём подстановку ниасилил, т.е. визуальными средствами.
2. создадим десяток полей жалоба1..жалоба10
3. провяжем их к таблице2
4. по каждому полю (а мож лучше одно создать а потом покопировать?) в конструкторе жмакаем Подстановка, выбираем Поле со списком, Таблица или запрос, ну и выбираем источник строк.
5. типа у меня работает красиво, тока начинаешь набирать жалобу так на букву г вылетает гемморой, жмешь следом р - меняется на грипп (т.е. я догадываюсь что это не жалобы, но я ж не дохтур)
6. осталось наклацать запрос который тупо объединит все жалобные поля из одной записи в одно поле. кажется аксес не любит НУЛЛ строк, надо бы подстраховаться

Algofil
спасибо за внимание к просьбе
но наверное я не так как-то объяснил и получил не совсем то что хотел

Цитата:

1. итак, несколько жалоб из списка + возможно, жалобы которых нет в списке, так?
тада поле типа МЕМО, в ём подстановку ниасилил, т.е. визуальными средствами.

в поле мемо должны попадать несколько жалоб из списка т.е. есть таб 2 которая является перечислением стандартных жалоб и только из этого списка и нужно создать строку:
таб 2 таб1
ID name ID фио искомое поле МЕМО- жалобы
1 температура 1 пупкин температура, жжение, боль.
2 боль
3 жжение
4 зуд
и тд.

у пупкина в форме для заполнения таб 1 (которая изображает его визит ко мне ) нужно парой щелчков мышки обозначить все его текущие жалобы


Цитата:

(т.е. я догадываюсь что это не жалобы, но я ж не дохтур)

ну таким образом в карте больного будут работать не только жалобы


Цитата:

6. осталось наклацать запрос который тупо объединит все жалобные поля из одной записи в одно поле. кажется аксес не любит НУЛЛ строк, надо бы подстраховаться

во-во наклацать запрос то и не получается

с уважением Евгений

счас откроем аксес, смотрим...
1. новая база
2. создание таблицы в реж конструктор. Таб1, Таб2
3. Таб1:
ИД - счетчик, ключ
Ф - текст
И - текст
О - текст
ж1 - текст, подстановка как описано выше без провязки катит, ессно сперва надо слабать Таб2 чтоп было на что тыцять
дальше накопировал ж2..ж4
жалобы - МЕМО

Таб2:
ИД - счетчик, ключ
жалоба - текст

4. заполнил Таб2, потом Таб1 - срачка, пердячка и сушняк достались васе пупкину
5. пишу запрос в конструкторе, добавить таб1, тип запроса ставлю - обновление, поле жалобы буим обновлять - клацаю, от руки вписываю в строку Обновление:
ж1+", "+ж2+", "+ж3+", "+ж4, жму Ф8 - нихрена... упс это не орацл, тыцяю на воскл знак, обещает поновить 2 записи (пупкина и васькина) - ОК
6. сморим результат - фигня, вместо срачки и пердячки "ж1, ж2, ж3, ж4"
7. вносим изменения по вкусу аксеса, т.е. имена в квадратные скобки:
[ж1]+", "+[ж2]+", "+[ж3]+", "+[ж4]
клацаем на воскл знак - опять предупреждение, ок, сморим результат - пусто йопт
8. вспоминаем что аксес не любит нулл полей, в идеале поставить iif - но лень, можно потребовать заполнять все четыре поля ж, ваще тупо, убираю из запроса ж3 и ж4 - работает

пробуйте, доктор!

вы создали 4 поля жалоб я так понял?

но реальный список у меня гораздо больше при одном только кариесе 70% людей с помощью врача не напрягаясь наковыряют 5-7, 2-3 у каждого будут отличаться итого около 10+ если в книгу залезть ещё 4-5 найдём; умножаем на 3 как минимум и это список который нужно заставить работать ((((

уже 3 день колупаю этот раздел знаний

спасибо вам Algofil ну хоть за участие )))

Цитата:

1. вы создали 4 поля жалоб я так понял?

2. но реальный список у меня гораздо больше при одном только кариесе 70% людей с помощью врача не напрягаясь наковыряют 5-7, 2-3 у каждого будут отличаться итого около 10+ если в книгу залезть ещё 4-5 найдём;
3. умножаем на 3 как минимум и это список который нужно заставить работать ((((

4. уже 3 день колупаю этот раздел знаний

5. спасибо вам Algofil ну хоть за участие )))

1. это проба пера, чтоп понятно, копировать было лень, но можно и 44 поля, они одинаковы...
2. реальный список жалоб, т.е. таб2 необходимо пополнять, просто сканируя (запрос на добавление в таб2) поля ж1..ж10 в таб1, на предмет нахождения там жалоб отсуствующих (пока что) в таб2
3. то что у больных жалобы отличаются, эт намано, прямого отношения количество жалоб на лицо больного населения к длинне списка жалоб (таб2) не имеет (ну рази шо запретить больным по два-три раза вкручивать врачу одну и ту же жалобу за визит)следовательно умножать ниче не надо, главное определиться сколько максимум жалоб у одного больного за одно посещение, это и будет количеством полей ж1..жХ в таб1
4. БД, предложенная мной имеет мегакривущую структуру, но мы ж хотели быстро и понятно? сэкономили на проектировании так сказать, но главное работает, а красоту навести - дело житейское, 3 дней малавата будет... почитайте ченить по проектированию БД, и конкретно по аксесу...
нормализованный (т.е. хороший) вариант хранить все заявленные жалобы в отдельной таблице (и не называйте таблицы по умолчанию Таблица1 и т.д., во первых квадратные скобки в латинской раскладке, во вторых... да достаточно и во первых)
например complaint_list со структурой типа:
id - счетчик, обеспечит уникальность записи
visit - уникальный номер записи о посещении, позволит привязаться к таблице visit_list, а уж в ней и ФИО (хотя лучше регистрить всех больных в таблице patient_list, тада в списке визитов будет только уникальный номер пациента и если у него изменятся регистрационные данные, например фамилия, адрес или хз еще что, в списке визитов он легко отыщется), дата визита и мало ли что еще...
complaint - конкретно одна жалоба, точнее ея код из таблицы2 (например complaint_ref) т.е. если у пациента №213 во время визита №1564 было 3 жалобы то будет ровно три записи, ниче лишнего...
5. не за что, Ваш энтузазизьм вызывает наш респект, обычно докторам настолько некогда изучать что либо, что как максимум тиражируют эпикризы в ворде, хорошо если особо продвинутые заводят отдельные папки для доков, а не хранят в документс_энд_сеттингс, где все обычно накрывается епанчой при первом же вмешательстве саппорта.

Попробуйте http://www.firststeps.ru/vba/access/vbaaccess1.html - пошаговая стратегия ))

У меня вопрос вот какой: есть база, есть главная таблица, есть форма. В данной форме происходит расчет, резултат отображается в поле (в свойствах данного поля в строке данные указана математическая операция результат, которой и отображается) и нужно чтобы полученные в этом поле данные добавлялись в главную таблицу. Если это уже где-то было, то не ругайтесь или вопрос тупой, то я пока еще учусь и просьба подсказать и если можно поподробнее.

Цитата:

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

1. базу не Вы делали? если все работает - ничего не трогать! )))
2. Замечательно! Редко встретишь такой грамотный подход к расчетам
3. а вот этого, извините, не нужно, таблицы БД не предназначены для хранения расчетных данных, вполне достаточно если расчеты базирующиеся на фактических данных отражаются на формах и в отчетах. Пример:
я сопровождаю БД металлургического предприятия, в справочнике (таблице) ресурсов около 100 000 записей, если для каждой номенклатурной единицы хранить не только марку сплава и геометрические размеры, но и (допустим) плотность сплава и массу изделия, то при изменении каких либо параметров, зависящие от них значения могут не обновиться в некоторых/во всех записях, таким образом на форме будет одно значение массы, а в таблице другое.
И вообще крайне нежелательно менять структуру таблиц на этапе эксплуатации, ведь на форме результат расчета виден? хотите зафиксировать его? печатайте отчет и прикладывайте мокрую печать, а захотите хранить в таблице - будет геморрой не тока с обновлением (в аксесе ведь нет триггеров) но и с историей значений (типа - а вчера было не так!)
4. см. сцылу "первые шаги" выше

Цитата:

. базу не Вы делали? если все работает - ничего не трогать! )))
2. Замечательно! Редко встретишь такой грамотный подход к расчетам
3. а вот этого, извините, не нужно, таблицы БД не предназначены для хранения расчетных данных, вполне достаточно если расчеты базирующиеся на фактических данных отражаются на формах и в отчетах. Пример:
я сопровождаю БД металлургического предприятия, в справочнике (таблице) ресурсов около 100 000 записей, если для каждой номенклатурной единицы хранить не только марку сплава и геометрические размеры, но и (допустим) плотность сплава и массу изделия, то при изменении каких либо параметров, зависящие от них значения могут не обновиться в некоторых/во всех записях, таким образом на форме будет одно значение массы, а в таблице другое.
И вообще крайне нежелательно менять структуру таблиц на этапе эксплуатации, ведь на форме результат расчета виден? хотите зафиксировать его? печатайте отчет и прикладывайте мокрую печать, а захотите хранить в таблице - будет геморрой не тока с обновлением (в аксесе ведь нет триггеров) но и с историей значений (типа - а вчера было не так!)
4. см. сцылу "первые шаги" выше

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

ценная информация - завести таблицу привязанную к пациентам, типа такой:

Цитата:

например complaint_list со структурой типа:
id - счетчик, обеспечит уникальность записи
visit - уникальный номер записи о посещении, позволит привязаться к таблице visit_list, а уж в ней и ФИО (хотя лучше регистрить всех больных в таблице patient_list, тада в списке визитов будет только уникальный номер пациента и если у него изменятся регистрационные данные, например фамилия, адрес или хз еще что, в списке визитов он легко отыщется), дата визита и мало ли что еще...
complaint - конкретно одна жалоба, точнее ея код из таблицы2 (например complaint_ref) т.е. если у пациента №213 во время визита №1564 было 3 жалобы то будет ровно три записи, ниче лишнего...

но и в этом случае порекомендовал бы хранить в полях этой таблицы, только необходимые для расчетов величины

Цитата:

ценная информация - завести таблицу привязанную к пациентам, типа такой:

Цитата:например complaint_list со структурой типа:
id - счетчик, обеспечит уникальность записи
visit - уникальный номер записи о посещении, позволит привязаться к таблице visit_list, а уж в ней и ФИО (хотя лучше регистрить всех больных в таблице patient_list, тада в списке визитов будет только уникальный номер пациента и если у него изменятся регистрационные данные, например фамилия, адрес или хз еще что, в списке визитов он легко отыщется), дата визита и мало ли что еще...
complaint - конкретно одна жалоба, точнее ея код из таблицы2 (например complaint_ref) т.е. если у пациента №213 во время визита №1564 было 3 жалобы то будет ровно три записи, ниче лишнего...


но и в этом случае порекомендовал бы хранить в полях этой таблицы, только необходимые для расчетов величины

Может я не понимаю, может объяснить не могу. Вообщем пришел пациент ему делают рентген при этом расчет идет по четырем полям: напряжение (она постоянная и указана по умолчанию)*ток (аналогично)*время(должен вводить врач)*коэффициент облучения (выбирается из списка в соответствии с зубом) и произведение выводится в четвертом поле, данные которого необходимо всегда иметь для каждого пациента (для прохождения лицензирования и всяких проверок). Можно конечно все это дело отправить и другую таблицу, но зачем у меня и эта пустая - вы мне скажите как и сделаю, как скажете

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

Цитата:

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

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

а вообще,уважаемый коллега trabelsi,
за нас уже всё сделали )))) и продают есть по 50 б
а есть и дороже не мучайтесь лучше купить

agro - аха, Стоматология - фулл аксесс!
самому разве не интересно?
trabelsi, а почему обновление всех записей проблема? двойная бухгалтерия? шучу, мне все равно, если хотите можем считать что 2х2=7, но только чтоб не было противоречий в БД ))
как избежать обновления всех записей:
1. не хранить расчетные величины а считать и выводить их по факту обращения к записи (:||||: - боянЪ)
2. хранить историю расчетов в отдельной таблице (://///: - тож боянЪ, но кривоватый)
3. в запросе на обновление поюзать сортировку по времени и групповые операции, типа первая, последняя запись и т.п. (свежее решение, но по сути мегакривой костыль)

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

Цитата:

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

1. полях формы данные существуют независимо от полей таблицы?
я не имею в виду процесс редактирования поля. т.е. после снятия фокуса с поля формы в поле таблице ченить появляется?
если в таблице все появляется, запускайте пока запрос на обновление вручную, потом придумаете кнопу на форме, потом макрос, потом модуль на ВБА

2. ну-ну... на крайняк по .мдб файлу погадаем )))

нет, не появляется. делал на форме кнопку вызов запроса (запрос к полям формы в двух из них значение стоит по умолчанию в третьем вручную должны вводить врачи, а в третьем выбираем значение из списка в соответствии с необходимым зубом) в пятом поле все это перемножается, а в таблицу к пациенту данное число не добавляется, хотя пишет, что обновляет одну запись. А если запускать запрос вручную, то необходимо заполнить поочередно все поля и потом он только добавит произведение к пациенту. То есть видимо он может взять значения из полей - я так думаю

Цитата:

1. делал на форме кнопку вызов запроса (запрос к полям формы в двух из них значение стоит по умолчанию в третьем вручную должны вводить врачи, а в третьем выбираем значение из списка в соответствии с необходимым зубом) в пятом поле все это перемножается, а в таблицу к пациенту данное число не добавляется, хотя пишет, что обновляет одну запись.
2. А если запускать запрос вручную, то необходимо заполнить поочередно все поля и потом он только добавит произведение к пациенту.
3. То есть видимо он может взять значения из полей - я так думаю

1. значения по умолчанию (2 штуки) - можно просто пробить в формулу расчета, ввод данных в два поля, пофигу как список/вручную надо делать на форме, а вот с расчетным полем вилы - по ходу аксес показывая расчетное значение на форме "не видит" его запросом потому что данные из всех полей попадают в таблицу только при переходе на след запись, т.е. он её обновляет, но как?
2. запрос работает после заполнения, - гут! чтобы не запускать вручную повесить на кнопу макрос с запросом на обновление предыдущего поля (жуть какие костыли приходится изобретать) там то уже все данные есть
3. может конечно, но из полей в таблице - формы и отчеты ваще фикции имхо, вполне достаточно результатов SQL-запросов )))

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

Algofil
интересно
только база у меня получается "мега кривая" как вы выражаетесь ))))
а ещё всё это работает но только для себя
когда за базу берётся др чел то увы.... там начинаются проблемы (на пример пробовал обьяснить как это заполнять мед.сестре.... ну дальше всё понятно?)

Всем спасибо! наконец-то сделал.

Algofil
а я вот дальше копаюсь..
вопрос а для чего предназначен запрос на авто подстановку??
и не может ли он мне как то помочь?
-------

и так имеем поле "жалобы" которое Memo в таблице которая описывает 1 посещение пациента
задача заключается в том чтобы из набора отдельных текстовых кусочков которые представлены в таблице "источник жалоб" (кусочки типа: боль, жжение, зуд, температура, диарея, и тд не принципиально), составить большую строку мемо
-------------

на сколько я понял Algofil вы предложили сделать просто: предположить что кусочков например в одной жалобе может быть не более 8 и для каждой из 8 отвести 1 поле типа текстовое со списком подстановки. но это слишком громоздко и признано нами мегакривым решением

с уважением Евгений