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


flash takılımı kontrol edilsin - accessman - 12/03/2012

iyi günler

https://accesstr.net/konu-dosyayi-sikistirip-mail-kutunuza-atsin.html

burada eklemiş olduğum programda
sıkıştırılan dosyanın konulacağı hedef klasör flash bellek seçilirse mesela
G:\hts
seçilirse eğer flash bellek takılı değilse hata veriyor
onun için programı hataya düşürmeden
ilgili yerde belirtilen adresin olup oladığına bakıp
ilgili adreste klasör yoksa bunu haber veren bir uyarı mesajı
nasıl verdirebiliriz




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

bu delphi de klasör kontrolu yapıyormuş

If DirectoryExists('C:\Golaks2') Then
ShowMessage('Var')
else
ShowMessage('Yok');

benim istediğim
flash bellek takılı değilse
"lütfen flash belleği taktından sonra tamamı tıklayın diyen bir mesaj çıksın
tamam deyince eğer flash takıldıysa kaldığı yerden devam etsin
takılı değilken tamam tıklandıysa kapanacak mesajı versin kapansın


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

Takılı olmayan belleği nasıl seçeceksiniz bilmiyorum ama aşağıdaki kod kontrol işlemini yapar.

On Error GoTo AccessTR_Hata
ChDir "G:\"
MsgBox "flash takılı"
AccessTR_Hata_Cikis:
Exit Sub
AccessTR_Hata:
If (Err.Number = 76) Then
MsgBox ("lütfen flash belleği taktından sonra tamamı tıklayın")
End If
Resume AccessTR_Hata_Cikis



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

çok teşekkürler
varsayılan bilgilere göre program açılır açılmaz yedeği pressleyen kod yazdım
orada varsayılan "G:\" olabiliyor
bir de bu kodda

*************
MsgRes = MsgBox("Flash belleği varsayılan seçmişsiniz. flash belleği takarak devam etmek için tamamı tıklayınız.bilgileri değiştirmek için hayırı tıklayınız", vbYesNo Or vbQuestion)
If MsgRes = vbNo Then
devam kodları
else
ayarlama formu açılacak
end if
Exit Sub
**************
nasıl yapabiliriz




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

sn. accessman, uygulamanızın son halini ekleyin ve kontrol olayının nerede yapılmasını istediğinizi belirtin, yani form açıldığında mı, yedekleme yolunun güncelleştirme sonrasında mı veya yedek yolu değiştirmek için kullandığınız butona tıklandığında mı çalışmasını istiyorsunuz


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

son hali bu sayılır

Ek Dosyalar
 YEDEK SAKLA.rar(265.55 KB)