yaş grubu hesaplatma

[ahmet114]

merhaba
formumda doğum tarihi kısmım yaşı ve yaş grubu kısmım var
doğum tarihini girdiğimde yaşını kendisi hesaplıyor yaş grupları kısmında 0,1-4,5-9,10-14,15-19...diye gidiyor..yapmak istediğim yaşını hesapladığında yaş grubunu kendisinin yazmasını istiyorum nasıl bir kod yazmam lazım ..teşekkür ediyorum

 

[ALPEN]

Private Sub Text0_LostFocus()
If IsDate(Text0) Then
    Text2 = DateDiff("yyyy", Text0, Now)
    Select Case CInt(Text2)
        Case 0 To 1
            Text4 = "0"
        Case 5 To 9
            Text4 = "1"
        Case 10 To 14
            Text4 = "2"
        Case 15 To 19
            Text4 = "3"
    End Select

End If
End Sub

 

[ahmet114]

doğum tarihi girdiğim bir metin kutusu adı doğumtarihi,ve yaşı yazan bir metin kutusu ve yaş grubları diye açılan kutum var ben bu açılan kutudan silip metin kutusu yapıcam ........doğum tarihini girdiğimde yaşı yazan yere kendisi yaşını yazıyor...benim istediğim yaşı hesapladıktan sonra o yaş aralığına göre yaş grubu yazan yere kendisi otomatik olarak yaş grubunu yazmasını istiyorum ....anlatabilmiştirim umarım teşekkür ederim

 

[ALPEN]

inceleyin.

 

[ahmet114]

alpen çok teşekkürler tam istediğim gibi arkadaşım kolay gelsin işlerinde başarılar..

 

[ahmet114]

alpen uyarladım benim formuma göre çaıltıramadım başka bir yöntemi varmı benim formumda çalşmıyor ne yapmam lazım benim formumda doğum tarihi metin kutusu adı: DOÐUM TARİHİ arada boşlukvar.Yaşı metin kutusu: Yaşı, Yaş grubu metin kutusu:Yaş Grubu nasıl yapmam lazım ...sağol

 

[ALPEN]

dosyanızı gönderin, sorunun hangi formda olduğunuda belirtin.

 

[ahmet114]

dosya ekte

dostum dosya ekte form2 de doğum tarihi yaşı ve yaş grubu var tablo 2 den alıyor bilgileri

 

[ahmet114]

birde bu dosya üzerine ana form üzerinde yani tablo2 formunda burada ölenler yada ayrılanları sildiğimda bu bilgilerin tablolar kısmına bir arşiv tablosuna nasıl aktartabilirm yalnız tablo2 formundan silinecek.