\\SERVER\ erişimi yoksa, Uyarı alınabilirmi ?

[ybilgin]

Arkadaşlar merhaba,
aşağıdaki kodlarla veritabanı kontrolü yapılarak programın açılması sağlanıyor.
ve bu kod programın kritik noktalarındada yineleniyor.

sormak istediğim şey şöyle.
\\SERVER\ erişiminin olmadığı durumlarda, mesaj almayı sağlayabilirmiyiz.
yardımcı olabilecek arkadaşlara çok teşekkür ederim.

Sub otogaleriyiac()
datayolu = "\\SERVER\DOSYA\VEHICLEDB.mdb"
If Dir(datayolu) = "" Then
MsgBox datayolu & " bulunamadı, programdan çıkılacak !", vbCritical, "VEHICLEDB"
Exit Sub
End If
UserForm1.Show
End Sub

 

[Murat OSMA]

Şöyle bir deneyiniz;

Sub otogaleriyiac()
On Error GoTo hata
datayolu = "\\SERVER\DOSYA\VEHICLEDB.mdb"
If Dir(datayolu) = "" Then
hata: MsgBox datayolu & " bulunamadı, programdan çıkılacak !", vbCritical, "VEHICLEDB"
Exit Sub
End If
UserForm1.Show
End Sub

 

[ybilgin]

teşekkür ederim denicem.