teşekkürler üstadım...

---

sorunum hakkında müsait olduğunuzda bir omuz verirmisiniz

Sayın manyetix demek istediğinizi tam anlayamamış olmalıyız ki bugüne kadar çözüm üretilmemiş.

Bir butona tıklanıldığında il ve ilçe kutularındaki isimlere göre klasör oluşturulsunmu istiyorsunuz?

(22/08/2010, 14:42)alpeki99 yazdı: Sayın manyetix demek istediğinizi tam anlayamamış olmalıyız ki bugüne kadar çözüm üretilmemiş.

Bir butona tıklanıldığında il ve ilçe kutularındaki isimlere göre klasör oluşturulsunmu istiyorsunuz?

Sn manyetix sorunuzu biraz daha açıklayıcı yazabilirmisiniz?
Saygılar...

(06/08/2010, 12:08)manyetix yazdı: özür dilerim sorunuzun cevabını yazmayı atlamışım. ekli örnekte üstad benim istediğim modülü kurmuş çok teşekkürler tekrar ancak küçük bir sorunum var , form geçerli olduğunda çalışan kod ile başım belada , klasörü açmaya yarayan buton ile aynı zaman da klasörü oluşturabilir miyiz. çünkü resmi olmayan satır içinde klasörü otomatik oluşturuyor. bu bir sürü boş klasör yapıyor..

o kodda aynı butona hem açmayı , hemde klasör oluşturmayı denediğimde hata veriyor. bu kodun çalışan bir örneğini yapbilir misiniz.

saygı ve sevgilerimle

Anladığım kadarıyla resim olmaması durumunda kodun çalışmaması isteniyor. Bu durumda basit bir if...then veya IIF olayıyla sorun halledilebilir. Kendi örneğinizin son halini eklerseniz daha kolay yardım alabilirsiniz. Benzer bir resimli uygulamada ben komutu "eğer resim varsa" şartına bağlamıştım. Sorunun çözümü basit...

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

Konu cevaplanmış sorular bölümüne taşınmıştır.