DCount

[tamer42]

Merhabalar,
Form içerisinde ayları temsilen TextG01, TextG02, TextG03,....,TextG11,TextG12 adlarında 12 adet Textbox var.

bu textboxlara aşağıdaki DCount fonksiyonunda çıkan sonuçları yazdırmak istiyorum.

strSAY = DCount("[PLAN]", "tblPlan_1", "[PLAN]=2 and ([IE_2]='KA'or [IE_2]='BT')")
Me.TextG02 = strSAY

...., "[PLAN]=2 and .....

Burada ki "2" değeri 2. ayı (Şubat) temsil ettiğinden çıkan sonucu "Me.TextG02" e atamış olduk.

Bu şekilde Tek tek yazmak yerine; For ---next döngüsü içerinde bütün textbox lara atamaları nasıl yapabiliriz?

For i = 1 To 12
strSAY = DCount("[PLAN]", "tblPlan_1", "[PLAN]=" & i & "and ([IE_2]='KA'or [IE_2]='BT')")

.......(i)= strSAY
Next i

Bütün arkadaşların ve Ulusumuzun Cumhuriyet bayramı kutlu olsun.

 

[modalı]

Sayın tamer42,

Bir de şunu deneyin:

Me("TextG" & i).Value=strSay

Ama tabi 01 veya 02 gibi kullanırsanız sorun çıkabilir. Onları 1 ve 2 olarak değiştirebilirsiniz.

 

[oktaykarauzun]

sayın modalı, bu konuyla ilgili olarak bir deneme yapmak istedim.
örnekteki gibi hata veriyor. ne yapmalıyım.

ikinci örnekte ise içiçe iki for ...next kullanılması gerekiyor galiba ikinci for next nasıl yapılır. tşk

 

[modalı]

Sayın oktaykarauzun,

DCount fonksiyonunda hatanız var.

Me("deneme" & i).Value = DCount("TtblOsayı", "Tablo1", [COLOR=red]"[kod]=" & i[/COLOR])

İyi çalışmalar

 

[oktaykarauzun]

sayın modalı, bu ne hız ben mesajda düzenleme yaparken sen cevabı yazmışsın. tşk. peki ikinci örnekteki problem nasıl çözülür

 

[modalı]

Liste kutusundan hangi verileri almak istiyorsunuz?

Yani tek satır mı alınacak yoksa belirli bir sütun mu?

 

[oktaykarauzun]

Tek bir satırı metin kutularına yerleştirmek istiyorum.

 

[modalı]

Seçilmiş olan satırın taşınması:

Me("Metin" & i) = Me.Liste10.Column(i - 25)

İyi çalışmalar

 

[oktaykarauzun]

Bu kadar basit bir mantığı görememem bu konuda daha çok çalışacağım anlamına geliyor. Sayın modalı tşk.

 

[assenucler]

İstek

Sn. tamer42
Günaydın, sn. Modalı'nın verdiği kodlara göre sorunun çözülmüş halini siteye yükleyebilir misiniz?

Teşekkürler.

 

[tamer42]

Sn Modalı çok teşekkürler,

dediğiniz gibi yaptım, Textbox adlarındaki 01 veya 02 gibi değerleri 1 ve 2 olarak değiştirdim. sorunsuz çalıştı.

Bu arada ben birde aşağıdaki kodla denedim, bunlarda çalıştı.

...........
For Each Ctrl In Me.Controls

    ad = Ctrl.Name
    
    If TypeName(Ctrl) = "TextBox" And ad Like "TextG*" Then
        Ctrl.Value = Empty
          
        h = Len(ad) - 5
        id = Right(ad, h)
       
strSAY = DCount("[PLAN]", "tblPlan_1", "[PLAN]=" & id & "and ([IE_2]='KA'or [IE_2]='BT')")
               
     Ctrl.Value = strSAY
            
 End If
 
 Next

Bu hususta bir yorum yapmak istermisiniz,
Form da faydalı olması dileğiyle...

 

[assenucler]

sn. tamer42

Günayadın. Çalışan halini içerir dosyayı yüklermisiniz? Teşekkürler.

 

[tamer42]

Sn assenucler,

kusura bakmayın geciktim.

örnek dosyayı ekledim , Form1 içerisinden bakabilirsiniz.

İyi Akşmalar.