Skip to main content

AccessTr.neT


satırdaki isimlerde otomatik klasör açma

satırdaki isimlerde otomatik klasör açma

#19
(13/09/2010, 12:48)ogulcan92 yazdı: Sn:manyetix
Butona çift işlem yaptırmak için aşağıdaki kodları kullanabilirsiniz.
Not:Formun Geçerli Olduğunda çalışan kodları siliniz.

Private Sub Form_Load()
Komut13.Caption = "Klasör Oluştur"
End Sub

Private Sub Komut13_Click()
On Error Resume Next
If Komut13.Caption = "Klasör Oluştur" Then
MkDir CurrentProject.Path & "\" & Me.il
MkDir CurrentProject.Path & "\" & Me.il & "\" & Me.ilçe
Komut13.Caption = "Klasör Aç veya Resim Ekle"
End If
If Komut13.Caption = "Klasör Aç veya Resim Ekle" Then
OpenFile CurrentProject.Path & "\" & Me.il & "\" & Me.ilçe
Komut13.Caption = "Klasör Oluştur"
End If
End Sub

Sn ogulcan92 kodunuzu ben ekledim butona. Hatta bayiler için de klasör açmasını ekledim Img-grin
Konu sahibi bir daha cevap vermemiş ama son mesajdan 6 yıl sonra ben bişeyler yazayım ve konu üste çıksın. Halay

Gezinirken gördüm ve oldukça faydalı bir konu olmuş. Özellikle resimlerle ilgili arşiv tutmak isteyenlerin çok işine yarayabilir. Hele bunu yine forumda bulunan klasöre resim getirip kaydeden örneklerle birleştirirsek tadından yenmez Biggrin Onu da başka zaman yaparız inşallah.

.rar sledX_donepezil.rar (Dosya Boyutu: 22,15 KB | İndirme Sayısı: 9)
Cevapla
#20
Sanıyorum yine en son ben yazmışım Img-grin))

Bir önceki mesajda bahsettiğim örneği sn. mehmetdemiral hocamızın bir uygulamasında düzenleyerek şurada paylaştım. Hem formdaki veriye göre klasör açıyor, hem de o klasöre fotoyu getirip yapıştırıyor.

Belki birisinin işine yarar.

İyi forumlar...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da