AccessTr.neT
flash takılımı kontrol edilsin - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: flash takılımı kontrol edilsin (/konu-flash-takilimi-kontrol-edilsin.html)

Sayfalar: 1 2


Cvp: flash takılımı kontrol edilsin - ozanakkaya - 13/03/2012

yedekle_sabit formunun yüklendiğinde olayına aşağıdaki kodu ekle.
G sürücüsü yok ise msg box çıkar ve bilgi verir. msg box 3 sn sonra kapanıp form işleme devam eder.

If FileExists("G:\") = True Then
Else
Dim mesaj As Object
On Error Resume Next
Err.Clear
Set mesaj = CreateObject("WScript.Shell")
If Err <> 0 Then
MsgBox "Error:" & Err
Else
mesaj.PopUp " G sürücüsü bulunamadı.", 3, "Sürücü bulunamadı ...", vbOKOnly + vbExclamation
End If
End If



Cvp: flash takılımı kontrol edilsin - accessman - 13/03/2012

teşekkürler