MyTetra Share
Делитесь знаниями!
Открытие ссылки в браузере
19.07.2018
19:43
Раздел: VBA - Access - msa.polarcom.ru - 15 Приложения Внешние


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

Подробности параметров 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



Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования