2 fedd:
Да, и это тоже. Это рассказывается про одесский автобус и с характерным одесским произношением. :^)
2 F4X - как вариант:
1. Пишем функцию:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Function NotNull(n As Integer, ParamArray d())
Dim i As Integer, dd
i = 0
For Each dd In d
If Not dd Is Null Then i = i + 1
If i = n Then
NotNull = dd
Exit Function
End If
Next
End Function
2. ControlSource'ы всех 4 контролов:
=NotNull(1, d1, d2, d3, d4)
=NotNull(2, d1, d2, d3, d4)
=NotNull(3, d1, d2, d3, d4)
=NotNull(4, d1, d2, d3, d4)
3. Label'ы при них:
Соглашение № 1
Соглашение № 2
Соглашение № 3
Соглашение № 4
4. Делаем Visible = True только тем контролам, в которых не Null.
