Выражение Like в VBA

[raytek]

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

Последний вопрос:

Me!РПН_Тип.Visible = InStr(1, Me!Тип & "", "Н", vbTextCompare)

при этом коде я управляю логическим свойством "РПН_Тип", как при этих же условиях увеличить высоту элемента "Прямоугольник"

Заранее огромное спасибо!!!!!

[Teslenko_EA]

Здравствуйте raytek.
синтаксис необходимой Вам конструкции может быть таким:

Dim b As Boolean
b = InStr(1, Тип & "", "Н", vbTextCompare)
Прямоугольник.Height = IIf(b, 100, 1000)

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

Успехов Вам.
Евгений.

[raytek]

Евгений, огромное спасибо! Все работает. После ваших советов получился такой код:

Private Sub ТипСписок_AfterUpdate()
Me!ПроизводительСписок.RowSource = Me!ПроизводительСписок.RowSource
Me!ТипРПН_Надпись.Visible = InStr(1, Me!ТипСписок & "", "Н", vbTextCompare)
Me!ТипРПН_Кнопка.Visible = InStr(1, Me!ТипСписок & "", "Н", vbTextCompare)
Me!ТипРПН_Список.Visible = InStr(1, Me!ТипСписок & "", "Н", vbTextCompare)
Me!ПроизводительРПН_Надпись.Visible = InStr(1, Me!ТипСписок & "", "Н", vbTextCompare)
Me!ПроизводительРПН_Кнопка.Visible = InStr(1, Me!ТипСписок & "", "Н", vbTextCompare)
Me!ПроизводительРПН_Список.Visible = InStr(1, Me!ТипСписок & "", "Н", vbTextCompare)
Dim b As Boolean
b = InStr(1, ТипСписок & "", "Н", vbTextCompare)
Прямоугольник.Height = IIf(b, 3174, 2500)
Проверено.Top = IIf(b, 3572, 2900)
ПровереноНадпись.Top = IIf(b, 3572, 2900)
End Sub

но мне почему-то кажется, что его можно облегчить....
в чем я перебераю?

[Teslenko_EA]

Здравствуйте raytek.
"..можно облегчить.." - думаю да, например так:

Private Sub ТипСписок_AfterUpdate()
Dim s$, b As Boolean
s = Me!ТипСписок & ""
b = InStr(1, s, "Н", vbTextCompare)
s = Me!ТипСписок & ""
'Me!ПроизводительСписок.RowSource = Me!ПроизводительСписок.RowSource
'назначение не понятно, если для обновления,
'то эффективнее - ПроизводительСписок.Requery
    ТипРПН_Надпись.Visible = b
    ТипРПН_Кнопка.Visible = b
    ТипРПН_Список.Visible = b
    ПроизводительРПН_Надпись.Visible = b
    ПроизводительРПН_Кнопка.Visible = b
    ПроизводительРПН_Список.Visible = b
    Прямоугольник.Height = IIf(b, 3174, 2500)
    Проверено.Top = IIf(b, 3572, 2900)
    ПровереноНадпись.Top = IIf(b, 3572, 2900)
End Sub

это не только уменьшение объема кода, но и "облегчение" за счёт однократного обращения
к объекту "Me!ТипСписок" (не семь раз, как это было в Вашем варианте)

Успехов Вам.
Евгений.

P.S. напоминаю: для удобочитаемости выкладываемый код заключайте в тэги [соde] ... [/соde].
для этого на панели инструментов расположена кнопка - #

[raytek]

Евгений, огромное спасибо! Все работает. Вы правы, этот код:

Me!ПроизводительСписок.RowSource = Me!ПроизводительСписок.RowSource

использовал для обновления, теперь буду пользоватся Вашим

Еще раз спасибо!!!