| |
|
|
| | На форме ПолеСоСписком1 и ПолеСоСписком2. В зависимости от значений в ПолеСоСписком1 должны меняться значения в ПолеСоСписком2, причем никаких таблиц в базе нет.
If Me.ПолеСоСписком1 = "Список1" Then
Me.ПолеСоСписком2.RowSource = "1"
Else
Me.ПолеСоСписком2.RowSource = ""
End If
Это работает. Но вопрос. Как в данном случае заставить в ПолеСоСписком2 показать несколько значений?
If Me.ПолеСоСписком1 = "Список1" Then
Me.ПолеСоСписком2.RowSource = "1","2","3" (типа должно быть 3 строки)
Else
Me.ПолеСоСписком2.RowSource = ""
End If
Просто идти методом подмены ПоляСоСписком2 на какие-либо другие с нужными значениями не очень хотелось бы. Тут где-то в синтаксисе проблема. | |
| |
| |
| |
|
|
| | Блин. Сам нашел.
If Me.ПолеСоСписком0 = "Список1" Then
Me.ПолеСоСписком2.RowSource = "1" & ";" & "2"
Else
If Me.ПолеСоСписком0 = "Список2" Then
Me.ПолеСоСписком2.RowSource = "1" & ";" & "3" & ";" & "5"
Else
Me.ПолеСоСписком2.RowSource = ""
End If
End If | |
| |
| |
| |
|
|
| | RowSource="1;2"
RowSource="1;3;5" | |
| |
| |
| |
|
|
| | Во блин! Так еще проще. А у меня как-то получалось все в одну строку. Потом нашел синтаксис. А так более рационально. Спасибо. | |
| |
| |
| |
|
|
| | Еще вариант
Select Case Me!ПолеСоСписком0
Case "Список1": Me!ПолеСоСписком2.RowSource = "1;2"
Case "Список2": Me!ПолеСоСписком2.RowSource = "1;3;5"
Case Else: Me!ПолеСоСписком2.RowSource = ""
End Select | |
| |
| |
|
|
