На AfterUpdate рамки Select Case по ее же Value.

Я группу и имел в виду.

select case optiongroup1.value
case 1:msgbox "Privet"
case 2:msgbox "Hello"
case 3:msgbox "Shalom"
end select

Case 1: response = msgbox("Для быстрой работы в поиске можно установить курсор в поле, по которому будет вестись поиск (например: решение) , после этого выбрать 'тип совпадения' и нажать 'Найти далее' . ", , "Cправка")
Case 2: response = msgbox("Для быстрого ввода даты используйте кнопку рядом с полем даты. В результате вывед е тся календарь, в котором при нажатии даты в поле даты вывед е тся выбранная в календаре дата . ", , "Справка")
Case 3: response = msgbox("Для перемещения можно использовать стрелки перехода к следующей/предыдущей записи, либо использовать поиск по каким - либо критериям. При прокручивании скро л линга также происходит перемещение.", , " С правка")

А вообще, прокручивание и скроллинг - это одно и то же.

DenDYУ меня кнопка есть как ее привязать? Ведь нажать ее надо после того как выбран переключатель ! Что тут не правильно??
Видимо, я не так прочитал вопрос. Там сказано: "при выборе переключателей... при нажатии на кнопку". Поскольку и то, и то быть не может, то я отвечал про "при выборе переключателей". Если надо "при нажатии на кнопку", то все это будет не в AfterUpdate группы, а в Click кнопки.

1. response = msgbox("Для быстрой работы в поиске можно установить курсор в поле, по которому будет вестись поиск (например: решение), после этого выбрать 'тип совпадения' и нажать 'Найти далее '. ", , "Cправка")

2. Я не понял, что такое checkbox1.Value и т.д. и чем они лучше, чем Группа34.Value.

3. Вот этот кусок:

If response = vbYes Then
MyString = "Yes"
End If

не нужно повторять каждый раз, его можно поставить один раз в конце.

DenDYВыдается сообщение об ошибке "введеное выражение не содержит значение"
На какой строке оно выдается, мне самому придумать?

На какой строке выдается ошибка?

DenDYIf Группа34.Value Then
ElseIf Группа34.Value Then
ElseIf Группа34.Value Then
End If
Это я так советовал???

А вот этот кусок:

If response = vbYes Then
MyString = "Yes"
End If

должен быть не внутри последнего ифа, а после всего.

Повторяю:

DenDYIf Группа34.Value Then
ElseIf Группа34.Value Then
ElseIf Группа34.Value Then
End If
Это я так советовал???

DenDYА что не правильно:)??
1. If Группа34.Value всегда выдаст True, если только это не 0 и не Null.
2. Зачем трижды проверять одно и то же?

DenDYЧто там изменить?
Есть готовая программа в посте от 13:09. Осталось только перенести ее в другое событие. Собственно, в 13:15 все и написано.