Örnek dosyanıza göre aşağıdaki kodu denermisiniz.
Kod:
Private Sub CommandButton1_Click()
On Error GoTo Hata
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & [A6] & [F6] & [H6], vbMaximizedFocus
Exit Sub
Hata:
MsgBox "İnternet bağlantısı şu anda kurulamıyor." _
& Chr(10) & "Lütfen daha sonra tekrar deneyiniz.", vbCritical, "Dikkat !"
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.