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

[raytek]

Доброго времени суток! Помогите пожайлуста впихнуть выражение Like в VBA. Необходимо реагировать на записи содержащие букву "Н"

Попробовал так:

If Me!Тип = "*Н*" Then
Me!РПН_Тип.Visible = "True"
Else
Me!РПН_Тип.Visible = "False"
End If


не работает

[gluk_fm]

Добрый день.
Правильно так:

If Me!Тип = '*Н*' Then
Me!РПН_Тип.Visible = True
Else
Me!РПН_Тип.Visible = False
End If

[shanemac51]

If Me!Тип.value  like  '*Н*' Then
Me!РПН_Тип.Visible = True
Else
Me!РПН_Тип.Visible = False
End If

[Teslenko_EA]

Здравствуйте raytek.
действительно и кавычки в Вашем коде лишние, и равенство не проверяется с символами подстановки,
а строка может быть одна:

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

Евгений.

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

[raytek]

Всем огромное спасибо, но заработал только код от Teslenko_EA

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

при наличии в тексте буквы Н элемент управления РПН_Тип становится невидимым, что нужно поменять в коде чтобы все было наоборот?

[Teslenko_EA]

raytek, свойство Visible понимает логические значения (0/1)
ноль - Ложь, единица (и всё что отличается от нуля) - Истина
Об этом и многом другом написано во всех учебниках по VB(A)

Но если Вам необходимо решить только эту задачу,
то инвертировать Вы сможете подобной конструкцией:

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

Евгений.
P.S. все свои сообщения я подписываю в надежде, что обращаться ко мне будут по имени.

[raytek]

Огромное спасибо Евгений, к сажелению я не силен в VBA и книги мне не помогли, поэтому создаю базу по методу проб и ошибок. Благодаря этому форуму неплохо продвинулся в перед, так что извените за тупые вопросы, все делаю не по знаниям а по аналогии.

С логическим оператором все заработало, а какой код например для свойства Width

[raytek]

Чувствую лигбез закончился....

[Woodlin]

Сообщение от raytek

Чувствую лигбез закончился....

Одна тема - один вопрос.
А вообще в редакторе VBA есть полезная штука, в меню Veiw->Object Browser (в моей версии офиса F2), думаю с ней разберетесь. Или вот хороший ресурс: http://office.microsoft.com/ru-ru/access-help/?CTT=97

[Teslenko_EA]

Здравствуйте raytek.
к сожалению говорить о полном окончании ЛикБез (ликвидация безграмотности) в Вашем случае - ещё рано.
"..а какой код .. для свойства.." описание всех объектов есть в учебниках
"..книги мне не помогли.." - выхода может быть два, смените книги и попытайтесь ещё раз, или осваивайте другой вид деятельности - не программирование.

Евгений.