Вопрос по VBA - Microsoft Office Access

Basil8 · 13.12.2009, 19:28

Значит задача такая: в некоторой базе данных в поле SEM заносится "Х" (холост), "Б" (в браке), "Р" (разведен).
В поле FAM заносится фамилия
В поле POL заносится значение "муж" или "жен".
Составить выражение таким образом, чтобы в поле ITOG выводилась фамилия и семейное положение.
Например:

Цитата:

Иванов холост
Смирнова не замужем
Петров женат
Васильева замужем
Сергеев разведен
Антонова разведена

Использовать функцию Iif(), событие "после обновления".
Все это делается в MS Access
Вот что у меня получилось:

Код:

Private Sub ITOG_Afterupdаtе()
IIf([Таблица1]![POL] = "муж", IIf([Таблица1]![SEM] = "Х", [Таблица1]![ITOG] = "& [Таблица1]![FAM] & холост", IIf([Таблица1]![SEM] = "Б", [Таблица1]![ITOG] = "& [Таблица1]![FAM] & женат ", [Таблица1]![ITOG] = "& [Таблица1]![FAM] & разведен")), IIf([Таблица1]![SEM] = "Х", [Таблица1]![ITOG] = "& [Таблица1]![FAM] & не замужем", IIf([Таблица1]![SEM] = "Б", [Таблица1]![ITOG] = "& [Таблица1]![FAM] & замужем ", [Таблица1]![ITOG] = "& [Таблица1]![FAM] & разведена))) 
End Sub

При вводе в VBA выдает ошибку и не запускает:

Цитата:

Compile error:
Expected: list separator or )

Ума не приложу зачем там еще одна запятая или скобка.

Teslenko_EA · 13.12.2009, 20:30

Здравствуйте Basil8.
1. Выражение "в некоторой базе данных в поле SEM заносится..." не верно - у БД нет полей.
2. если речь о форме, логика построения IIf(...) верна, Вы ошиблись с её применением, оно может быть таким

Код:

Sub POL_Afterupdаtе()
   ITOG = IIf(...
End Sub

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

Basil8 · 14.12.2009, 00:54

Спасибо большое за помощь.
Извините за бескультурность, первый раз здесь, теперь буду знать.

Abrakadabra · 14.12.2009, 10:26

ИМХО, слишком длинное выражение.
Если уж у Вас в задании обязательно применение IIf, то лучше использовать конструкцию If..Then.
А еще лучше..

привести все к нормальному виду (структуру бд) и работать с Case. Так быстрее будет

Basil8 · 14.12.2009, 14:38

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

13.12.2009, 20:30	#2
Teslenko_EA Участник клуба Регистрация: 10.08.2009 Сообщений: 1,796	Здравствуйте Basil8. 1. Выражение "в некоторой базе данных в поле SEM заносится..." не верно - у БД нет полей. 2. если речь о форме, логика построения IIf(...) верна, Вы ошиблись с её применением, оно может быть таким Код: `Sub POL_Afterupdаtе() ITOG = IIf(... End Sub` Евгений. P.S. Форум не машина ответов, его участники живые люди, здесь принято задавать вопросы, спрашивать а не ставить задачи. "задача такая" - это Ваша задача в решении которой Вам нужна помощь, и потому выкладывая "такую задачу" не забывайте формулировать вопрос и обращаться к тем кому Вы его адресуете, не знаете как - можно просто поздоровавшись.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
VBA вопрос насчет ComboBox	qert	Microsoft Office Excel	11	09.12.2009 17:20
Вопрос по excel/vba	sergey_wckd	Microsoft Office Excel	15	05.11.2009 16:07
Вопрос по VBA	Maksik	Microsoft Office Excel	9	29.06.2009 12:55
Вопрос VBA	tat-besidovska	Microsoft Office Excel	1	04.02.2008 10:49

14.12.2009, 00:54	#3
Basil8 Регистрация: 13.12.2009 Сообщений: 4	Спасибо большое за помощь. Извините за бескультурность, первый раз здесь, теперь буду знать.

14.12.2009, 10:26	#4
Abrakadabra Форумчанин Регистрация: 26.04.2008 Сообщений: 487	ИМХО, слишком длинное выражение. Если уж у Вас в задании обязательно применение IIf, то лучше использовать конструкцию If..Then. А еще лучше.. привести все к нормальному виду (структуру бд) и работать с Case. Так быстрее будет

14.12.2009, 14:38	#5
Basil8 Регистрация: 13.12.2009 Сообщений: 4	Abrakadabra да я бы с радостью использовал эти функции, их я знаю получше. Но по заданию использовать можно только Iif()