toplam sayı

[atomicf]

arkadaşlar ekteki örnekte istediğim
1-her guruplar tıklandığında o gurupta bulunan toplam kişi sayısı
2-form üzerinde yaşların gözükmesi (sene olarak değil)kaç yaşında olduğu)
3-rapor aldığımda çıkan listede sıralamanın 1 dan başlayarak gitmesi
4-toplamda örneğin 6 yaştan kaç kişi var bunu görmek istiyorum
ben uğraştım ama bu kadar yapabildim yardımlarınızı bekliyorum şimdiden teşekkür edrim.dosya boyutu büyü geldi tekrar azaltarak aktarmaya çalıştım

 

[modalı]

Güzel ama örnek nerede?

 

[gulsum1]

öncelikle tablona bir yas diye yaş alanı ekle
bu yaş modülün
Option Compare Database
Option Explicit

Function Age(varBirthDate As Variant) As Integer
Dim varAge As Variant

If IsNull(varBirthDate) Then Age = 0: Exit Function

varAge = DateDiff("yyyy", varBirthDate, Now)
If Date < DateSerial(Year(Now), Month(varBirthDate), _
Day(varBirthDate)) Then
varAge = varAge - 1
End If
Age = CInt(varAge)
End Function




Function AgeMonths(ByVal StartDate As String) As Integer
Dim tAge As Double
tAge = (DateDiff("m", StartDate, Now))
If (DatePart("d", StartDate) > DatePart("d", Now)) Then
tAge = tAge - 1
End If

If tAge < 0 Then
tAge = tAge + 1
End If

AgeMonths = CInt(tAge Mod 12)

End Function

bu yaş kodun
Private Sub DoğumTarihi_AfterUpdate()
Dim rs As New ADODB.Recordset
rs.Open "tblÖğrenciBilgi", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rs.EOF <> True Then
Do
If rs("ÖğrenciID") = ÖğrenciID.Value Then
rs("yas") = Age(rs("DoğumTarihi"))
rs.Update
End If
rs.MoveNext
Loop Until rs.EOF
End If
Set rs = Nothing

End Sub

bunlarda sayma kodun
=DCount("[yas]";"tblÖğrenciBilgi";"[yas]= '6'")
=DCount("[cinsiyet]";"tblÖğrenciBilgi";"[cinsiyet]= 'kız'") buna and ile hem grubu hemde cinsiyeti tutanları seçebilirsin

 

[atomicf]

teşekkür

yardımcı olan arkadaşlara özellikle sayın gülsüme teşekkürederim.sayın gülsüm diğer sorularımıda forumda arayarak yine sizin örneklerinizden tamamladım aslında dosya boyutum büyük olmasa sizin görmenazi isterdim.yardımlarınız için tekrar sağolun.İleride bende diğer arkadaşlara yardımcı olabilirim belki.