Skip to main content

AccessTr.neT


Formda toplam aldırma

Formda toplam aldırma

Çözüldü #1
Arkadaşlar merhaba,
Ekteki örnekte Form1'de Açılan Kutu0 değerini 2 ayrı metin kutusunda toplatmak istiyorum, ama yapamadım.
Tabloya kaydedilen tüm kayıtlar içinde Açılan Kutu0 değeri "Ulusal" olan kaç tane,
aynı şekilde "Uluslararası" olan kaç tane kayıt olduğunu 2 farklı metin kutusunda nasıl gösterebilirim?
Yardımcı olabilirseniz çok sevinirim.
Şimdiden çok teşekkür ederim.
.rar TOPLAM.rar (Dosya Boyutu: 20,9 KB | İndirme Sayısı: 20)
abahceci, 12-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
İncelermisiniz...


Dsum değil DCount kullanmanız gerekir...

Lütfen olumlu veya olumsuz geri dönüş yapınız...
.zip TOPLAM.zip (Dosya Boyutu: 37,33 KB | İndirme Sayısı: 36)
Please return your positive or negative ...
Cevapla
Çözüldü #3
Sayın Power Hocam, sanırım örneği eklemeyi unutmuşsunuz.
abahceci, 12-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
Sonradan ekledim...
Please return your positive or negative ...
Cevapla
Çözüldü #5
Sayın Power Hocam, çok teşekkür ederim...
abahceci, 12-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #6
Sayın abahceci,

Sayın power(ufuk bey)’in hoşgörüsüne ve iznine sığınarak küçük bir katkı olması için,
EK’te,talebinize yönelik olarak oluşturulmuş örnek bir uygulama mevcuttur.inceleyebilirsiniz.

1) TALEP 1;sadece ilgili metin kutularında tablodaki ulusal alanında kaç adet ulusal ve uluslar arası kaydının olduğunu görmek ise,bunun için açılan kutu denetimini dahil etmeye gerek kalmaksızın;
Kod:
Private Sub Form_Current()
Me.Metin2 = DCount("ULUSAL", "Tablo1", "ULUSAL='ULUSAL'")
Me.Metin4 = DCount("ULUSAL", "Tablo1", "ULUSAL='ULUSLARARASI'")
End Sub

kodlamasını kullanarak elde edebilirsiniz. (ekteki örnek:FORM2’yi inceleyebilirsiniz).


2) TALEP2;açılan kutu denetiminden seçilen değere göre,ilgili metin kutularına o değer ile ilgili tablodaki toplamı almak ise,bunun için de
Kod:
Private Sub Açılan_Kutu0_Change()
If Me.Açılan_Kutu0 = "ULUSAL" Then
  Me.Metin2 = DCount("ULUSAL", "Tablo1", "ULUSAL='" & Me.Açılan_Kutu0 & "'")
Else
  Me.Metin4 = DCount("ULUSAL", "Tablo1", "ULUSAL='" & Me.Açılan_Kutu0 & "'")
End If
End Sub

kodlamasını kullanarak elde edebilirsiniz. (ekteki örnek: FORM1’i inceleyebilirsiniz).


3) TALEP3; eğer sadece örnekte olduğu gibi 2 ya da az seçenekli olabilecek seçim durumları söz konusu ise, select…case ifadesi de kullanılabilir. (ekteki örnek: FORM3’ü inceleyebilirsiniz).

Kod:
Private Sub Açılan_Kutu0_Change()
Select Case Açılan_Kutu0
Case "ULUSAL"
Me.Metin2 = DCount("ULUSAL", "Tablo1", "ULUSAL='" & Me.Açılan_Kutu0 & "'")
Case "ULUSLARARASI"
Me.Metin4 = DCount("ULUSAL", "Tablo1", "ULUSAL='" & Me.Açılan_Kutu0 & "'")
End Select
End Sub



4) TALEP4;son olarak da,bir sorgu oluşturup bu sorgudaki kriter satırlarına karşılık gelecek değerler  yazıldığı ve bu sorgu değerlerini de formda kodlama veya kaynak göstermeler ile belirtildiği takdirde de istenilen sonuçlar elde edilebilir.

Her bir İlgili metin kutusunun denetim kaynağı satırlarına
Kod:
=DLookUp("[Sonuc]";"Sorgu1";"ULUSAL='ULUSAL'")
=DLookUp("[Sonuc]";"Sorgu1";"ULUSAL='ULUSLARARASI'")

Yukarıdaki kod ifadelerini yazmak gibi. (ekteki örnek: FORM4’ü inceleyebilirsiniz).

Dolayısı ile,bu konudaki talebe yönelik olarak çeşitli alternatif yöntemler uygulanabilir.bütün bunlar tercihe bağlı.bilgilerinize.

İyi çalışmalar,
Saygılar.
.rar TOPLAM-ATOZ.rar (Dosya Boyutu: 26,17 KB | İndirme Sayısı: 21)
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task