Skip to main content

AccessTr.neT


İlişkisiz Metin kutularında toplama

İlişkisiz Metin kutularında toplama

Çözüldü #19
Örnek ektedir incelerseniz.
.rar BİLGİSAYAR TOPLAMA.rar (Dosya Boyutu: 38,01 KB | İndirme Sayısı: 13)
Herkes aynı şeyi düşünüyorsa, kimse yeterince düşünmüyor demektir
Son Düzenleme: 20/10/2013, 15:44, Düzenleyen: KJS.
Cevapla
Çözüldü #20
Benim örneği ekleyeyim inceleyin.
.rar BİLGİSAYAR TOPLAMA_accesstrnet.rar (Dosya Boyutu: 37,66 KB | İndirme Sayısı: 10)
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #21
Benim daha farklı bir önerim var. Bu hem de öğretmek açısından ve zekanın çok yönlü kullanımı konusunda da bir örnektir.

Tüm metin kutularının bir im (tag) özelliği vardır. Buna özellikler penceresinde "tümü" veya "diğer"sekmesinin en altından ulaşabilirsiniz. Bu im değerini sadece fiyat* olan kutularda kullanın. Bu metin kutularının tümünün im değeri 1 olsun. Diğer açılan kutu ve metin kutularına dokunmayın.

Şimdi bir alt yordam yazalım:
Kod:
Sub sifirla()
On Error Resume Next
For Each fıyat In Me

With fıyat
If .Tag = 1 Then .Value = 0

End With
Next
End Sub

Böylece sadece im değeri 1 olan metin kutuları "0" olacaktır. Şimdi bu kodu mesela seçenek44'ün güncelleme sonrasında olayına (case select komutlarının en üstüne) ekleyelim. Bunun için sadece

sifirla

yazacağız. Çalıştırın ve seçenekten intel veya amd seçin. Tüm "fiyat" diye başlayan ve im değerleri "1" olan kutular "0" değerini alacaktır.

Diğer iki arkadaş da çözüme ulaşmış ama kabul edin ki yüzlerce metin kutusunu sıfırlamak gerektiğinde benim önerim daha kullanışlı olacak. Bu durumda şöyle yapmalıyız:,
Kod:
Sub sifirla()
On Error Resume Next
For Each fıyat In Me

With fıyat
If .Tag <>1 Then .Value = 0

End With
Next
End Sub

Sanırım anladık. Tek tek bütün kutuların im değerlerini 1 yapmak yerine, boş bırakmak ve diğerlerini 1 yapmak daha kolaydır. Ancak bu örnek için tüm açılan kutuları ve toplam değerlerin olduğu alanları sayarsak fıyat* alanları daha az sayıdadır. Bu nedenle onların im değerlerini 1 yaptım.
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #22
Emeği geçen herkese sonsuz şükranlarımı sunarım,sorun çözülmüştür sağolun varolun.
Cevapla
Çözüldü #23
hocam kodları uyguladım açılan kutulara da 0 yazdırdı.
Herkes aynı şeyi düşünüyorsa, kimse yeterince düşünmüyor demektir
Cevapla
Çözüldü #24
Açılan kodların im alanlarına değer atamadınız umarım. Eğer değerin =1 olmasına göre value=0 demişseniz o zaman sadece 0 olmasını istediğiniz kutuların imine 1 yazmalısınız. Eğer <>1 olmasını kullanırsanız o zaman da sadece 0 olmasını istemediklerinize 1 yazacaksınız. Örneğe bakın.
.rar BİLGİSAYAR TOPLAMA.rar (Dosya Boyutu: 147,48 KB | İndirme Sayısı: 10)
İnadına, ille de Accesstr.net...
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task