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 Sub2) 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 Sub3) 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 Sub4) 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'")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.
