on error resume next

[zulfuernek]

labele tıklayınca internet sitesini açıyor.

Fakat açılan internet sitesi sadece kuruma ait işletim sisteminde açılabiliyor. dışardan herhangi bir bağlantı ile açılması imkansız.

bu yüzden labele atanan komut gereği hata veriyor. bende hatayı yoksayması için satırın başına on error resume next döngüsünü ekledim.

fakat bu uyarı devreye girdiği zaman bana mesaj kutusuyla uyarı vermesini istiyorum ve uyarı kutusunda ise "sadece kuruma ait sistem üzerinden giriş yapabilirsiniz" diye uyarı vermesini istiyorum.

eğer giriş sağlanırda error döngüsü devreye girmese bu mesaj çıkmasın

 

[Orion1]

Buyurun.

Sub hata59()
On Error GoTo hata
'kodlarınız
'--------
'-----------
Exit Sub
hata:
MsgBox "sadece kuruma ait sistem üzerinden giriş yapabilirsiniz!", vbCritical, "UYARI"
End Sub

 

[zulfuernek]

Orion hocam emeğine sağlık. :: teşekkür ederim. saygılarımla

 

[Orion1]

Orion hocam emeğine sağlık. :: teşekkür ederim. saygılarımla

Rica ederim.
İyi çalışmalar.