| |
|
|
| | Помогите пожалуйста. В форме есть поле Задание для вставки гиперссылки и кнопка вызывающая диалоговое окно
Private Sub Кнопка1_Click()
Задание.SetFocus
RunCommand acCmdInsertHyperlink
Кнопка1.SetFocus
End Sub
все работает...открывается окно, вставляется гиперссылка в поле ...
Проблема возникает при нажатии кнопки Отмена в диалоговом окне ...происходит прерываение команды вставки...как избежать этой ошибки?
Спасибо | |
| |
| |
| |
|
|
| | А где код отмены??
Покажите пожалуйста.... | |
| |
| |
| |
|
|
| | Кажется разобралась...но мне все равно кажется что что-то напутала
Private Sub Кнопка1_Click()
On Error GoTo Err_Кнопка1_Click
Задание.SetFocus
RunCommand acCmdInsertHyperlink
Кнопка1.SetFocus
Exit_Кнопка1_Click:
Exit Sub
Err_Кнопка1_Click:
Resume Exit_Кнопка1_Click
End Sub | |
| |
| |
| |
|
|
| | В приницпе путь верный, но лучше все же код ошибки обработать
Private Sub Кнопка1_Click()
On Error GoTo Err_Кнопка1_Click
Задание.SetFocus
RunCommand acCmdInsertHyperlink
Кнопка1.SetFocus
Exit_Кнопка1_Click:
Exit Sub
Err_Кнопка1_Click:
Select Case Err.Number
Case 2501
Resume Exit_Кнопка1_Click
Case Else
MsgBox Err.Number & " " & Err.Description
Resume Exit_Кнопка1_Click
End Select
End Sub
|
| |
| |
| |
| |
|
|
| | все поняла! большое спасибо! | |
| |
| |
