06/08/2010, 22:35
22/08/2010, 14:42
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?
Bir butona tıklanıldığında il ve ilçe kutularındaki isimlere göre klasör oluşturulsunmu istiyorsunuz?
10/09/2010, 10:59
(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...
10/09/2010, 13:47
(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...
13/09/2010, 12:48
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.
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 Sub17/09/2010, 03:33
Konu cevaplanmış sorular bölümüne taşınmıştır.