| |
 17 Кб. |
|
| | Здравствуйте.
помогите плиз решить такую вот проблему:
Создал доп. таблицу и ввёл в неё значения , при выборе значения из списка должна открываться таблица но выдаёт ошибку Else without if при выборе значения
Private Sub ПолеСоСписком0_AfterUpdate()
If ПолеСоСписком0 = 1 Then DoCmd.OpenTable "Белая офисная бумага", acViewNormal, acEdit
Else
If ПолеСоСписком0 = 2 Then DoCmd.OpenTable "Цветная офисная бумага", acViewNormal, acEdit
End If
End If
End Sub
|
хотя если удалить
Else
If ПолеСоСписком0 = 2 Then DoCmd.OpenTable "Цветная офисная бумага", acViewNormal, acEdit
End If
End If
|
то при выборе значения 1 всё раб таблица открывается
2. как организовать выбор выбор текстового варианта например место
If ПолеСоСписком0 = 2
допустим
If ПолеСоСписком0 = бумага
бд прикреплена | |
| |
| |
| |
|
|
| | Из штатной справки:
If...Then...Else Statement
Conditionally executes a group of statements, depending on the value of an expression.
Syntax
If condition Then [statements] [Else elsestatements]
Or, you can use the block form syntax:
If condition Then
[statements]
[ElseIf condition-n Then
[elseifstatements] ...
[Else
[elsestatements]]
End If
|
| |
| |
| |
| |
|
|
| | что то не совсем понял свою ошибку  можете указать её на моём примере
пжаласта  | |
| |
| |
| |
|
|
| |
Private Sub ПолеСоСписком0_AfterUpdate()
If ПолеСоСписком0 = 1 Then
DoCmd.OpenTable "Белая офисная бумага", acViewNormal, acEdit
Else
If ПолеСоСписком0 = 2 Then
DoCmd.OpenTable "Цветная офисная бумага", acViewNormal, acEdit
End If
End If
End Sub
|
| |
| |
| |
| |
|
|
| | спасибо osmor
сори за настойчивость а как место цифр поставить буквенные выражения
что то вроде
If ПолеСоСписком0 = "белая бумага" Then
DoCmd.OpenTable "Белая офисная бумага", acViewNormal, acEdit
|
пробовал так не выходит | |
| |
| |
|
|
| |
|
|
| | ПолеСоСписком0 - как правило равно какому либо коду (цифра), а пользователь видит столбец(ы) которые к нему присоединены.
поэтому
ПолеСоСписком0 = "белая бумага"
|
может выдавать ошибку о несовместимости или че то подобное, а вот
ПолеСоСписком0.Column(1) = "белая бумага"
- имеет место быть.
Explorer прав зачем делать формы на каждую бумагу - если форма от формы отличается цветом (соответствующий бумаге) то при загрузке формы в параметрах это легко задать | |
| |
| |
| |
|
|
| | пасибки взвешу всё выше сказанное  | |
| |
| |
