Открытие ссылки в браузереПодробности параметров FollowHyperlink (MSDN): https://msdn.microsoft.com/en-us/library/office/ff822080.aspx Всё просто, формируем поисковую строку и передаём её в браузер. Private Sub cmdKinoPoiskGo_Click() On Error GoTo cmdKinoPoiskGoErr If Len(Me!txtNameRus & "") < 2 Then MsgBox "Данные не введены или недостаточны для поиска!", vbCritical, "Нет обязательных Данных" Me!txtNameRus.SetFocus Exit Sub End If Application.FollowHyperlink "http://www.kinopoisk.ru/index.php?first=no&kp_query=" & Me!txtNameRus Exit Sub cmdKinoPoiskGoErr: MsgBox "Процедура [cmdKinoPoiskGo_Click] привела к ошибке:" & vbCrLf & _ Err.Description & vbCrLf & " Err#" & Err.Number, vbCritical End Sub |
|||
L.E. 04.05.2013 |