VBA, MS Access MS Access в примерах

Открытие ссылки в браузере

Подробности параметров FollowHyperlink (MSDN): https://msdn.microsoft.com/en-us/library/office/ff822080.aspx

Всё просто, формируем поисковую строку и передаём её в браузер.

В данном случае берём русское название фильма из поля Me!txtNameRus и ищем данные по нему на: http://www.kinopoisk.ru

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
Назад ToTop
L.E. 04.05.2013
Рейтинг@Mail.ru