ekteki formda şu an için doğum tarihi 23,05,2007 olan bir bebek 0 yaşta ve 0 yaş aralığında bulunuyor. bugünkü tarih teki tarih 23,05,2008 olunca bebeğin 1 yaşına ve 1-4 yaş aralığına geçmesini istiyorum bu konudaki yardımalrınızı bekliyorum..
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
veri aralığındaki değerin güncelleşmesi
- Konbuyu başlatan hgunay
- Başlangıç tarihi
etf kayıt güncelleme
az önce bir arkadaşa bu konuyla ilgili ayarladığım örnek ekte aynı işlem bir gözatınız. iyi çalışmalararkadaşlar fikri gelen yokmu::::::::
güncelle diye bir komut düğmesi yok
güncelle olayı sadece formun üstündeki alanları kendi içinde hesaplayan bir döngü ve bu tür döngüler
call komutu ile çağrılır
orada da call güncelle şeklinde işlem gördüğünü görürsünüz aslında forda şöyle bir buton var (GüncellemeBaşlat) onuda call güncellemebaşlat_Click() şeklinde çağrıldığını da görürsünüz fakat pek ona gerek kalmadı olayı formtimer ile çözülmüş oldu çünkü bu döngüyü son satıra kadar taradıktan sonra durması gerektiğinden yoksa süregelen bir döngü içinde dolaysıyla hata verdirir formu dahi kapatamazsınız.
güncelle olayı sadece formun üstündeki alanları kendi içinde hesaplayan bir döngü ve bu tür döngüler
call komutu ile çağrılır
orada da call güncelle şeklinde işlem gördüğünü görürsünüz aslında forda şöyle bir buton var (GüncellemeBaşlat) onuda call güncellemebaşlat_Click() şeklinde çağrıldığını da görürsünüz fakat pek ona gerek kalmadı olayı formtimer ile çözülmüş oldu çünkü bu döngüyü son satıra kadar taradıktan sonra durması gerektiğinden yoksa süregelen bir döngü içinde dolaysıyla hata verdirir formu dahi kapatamazsınız.
atilla bey kendi formuma uyarladım ancak o an formda hangi kişinin bilgileri varsa sadece onu güncelleştiriyo diğerlerinde yaş ve yaş aralığı çıkmıyo?
Son düzenleme:
cevap
öncelikle bir mdül oluşturacan ve bu kodu oraya yapıştıracan
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 senin sorguda yaşları hesaplamana yardım edecek topluca arada bir çalıştırırsın yada senede bir gün çalışacak şekilde ayarlarsın
ikinci olarak bir güncelleme sorgusu yapacanki doğum tarihlerine göre yaşlarını bulsun kişilerin
sorgu bu şekilde
UPDATE ETF SET ETF.YAŞ = Age([DOĞUM TARİHİ]);
sanırım senin etf tablonda YAS şeklinde olanı ben YAŞ diye değiştirdim yanılmışda olabilirim
üçüncü olarak bir formun açılışına yada bir düğmeye bu kod senin tablondaki bütün yaşaralığı alanlarını otomotik olarak yaşına göre güncelleyecek
bu kodu yapıştıracan
Private Sub Komut0_Click()
Dim rs As New ADODB.Recordset
rs.Open "ETF", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rs.EOF <> True Then
Do
Select Case rs("YAŞ")
Case 1 To 4
rs("YAŞARALIĞI") = "1-4"
rs.Update
Case 5 To 10
rs("YAŞARALIĞI") = "5-10"
rs.Update
Case 11 To 24
rs("YAŞARALIĞI") = "11-24"
rs.Update
End Select
rs.MoveNext
Loop Until rs.EOF
End If
Set rs = Nothing
Set conn = Nothing
End Sub
unutmadan kodun arıza kodunu ekleyemedim o yüzden 11 To diye eklenen döngülerden birini bile bulamazsa arıza verir yani siz bu koda 25 To 35 eklerseniz ve tabloda yaşı 25 ile 35 arasında kayıt bulamzsa problem çıkarır o yüzden arıza kodunuda ustalara bırakıyorum
unutmadan ekleyeyim bu kodda access kod deposunda vardı hemde hepsi
öncelikle bir mdül oluşturacan ve bu kodu oraya yapıştıracan
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 senin sorguda yaşları hesaplamana yardım edecek topluca arada bir çalıştırırsın yada senede bir gün çalışacak şekilde ayarlarsın
ikinci olarak bir güncelleme sorgusu yapacanki doğum tarihlerine göre yaşlarını bulsun kişilerin
sorgu bu şekilde
UPDATE ETF SET ETF.YAŞ = Age([DOĞUM TARİHİ]);
sanırım senin etf tablonda YAS şeklinde olanı ben YAŞ diye değiştirdim yanılmışda olabilirim
üçüncü olarak bir formun açılışına yada bir düğmeye bu kod senin tablondaki bütün yaşaralığı alanlarını otomotik olarak yaşına göre güncelleyecek
bu kodu yapıştıracan
Private Sub Komut0_Click()
Dim rs As New ADODB.Recordset
rs.Open "ETF", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rs.EOF <> True Then
Do
Select Case rs("YAŞ")
Case 1 To 4
rs("YAŞARALIĞI") = "1-4"
rs.Update
Case 5 To 10
rs("YAŞARALIĞI") = "5-10"
rs.Update
Case 11 To 24
rs("YAŞARALIĞI") = "11-24"
rs.Update
End Select
rs.MoveNext
Loop Until rs.EOF
End If
Set rs = Nothing
Set conn = Nothing
End Sub
unutmadan kodun arıza kodunu ekleyemedim o yüzden 11 To diye eklenen döngülerden birini bile bulamazsa arıza verir yani siz bu koda 25 To 35 eklerseniz ve tabloda yaşı 25 ile 35 arasında kayıt bulamzsa problem çıkarır o yüzden arıza kodunuda ustalara bırakıyorum
unutmadan ekleyeyim bu kodda access kod deposunda vardı hemde hepsi
Son düzenleme:
Cevap
örneği koyuyorum hiç bir şey yapmıyorsun sadece etf formunda doğum tarihi kısmını girdikten sonra enter tuşuna bas o yaşıda kendi hesaplar aralığıda sen her yıl yaşıda değişecekmi diye sormuştun onuda yapacak koda bakarsan zaten form ile bir ilgisi yok kod bağımsız olarak tablonun verileri ile çaılşıyor yani sen yeni bir kişi eklediğinde yada birinin doğum tarihine girip çıktığında tüm tablodaki yaş ve yaş aralıklarını yeniden hesaplıyor yani forma bir timer koymene gerek yok zaten timer da formu kasar düşünsene 5000 tane kayfın var ve her 50 saniyede bir tablo bilgilerini güncelliyor olmaz öyle şey en iyisi benim yaptığım bu kodu formun açılışınada koyarsan formu her açtığında tablodaki yaş ve yaş aralığını kontrol eder değişecekleri değiştirir ve sana değişmiş verileri getirir unutmadan ben 11-24 de kadar case yaptım sen onları kendine göre düzenlersin
bu arada benim kodlarımda sub güncelle diye bir şey yok
örneği koyuyorum hiç bir şey yapmıyorsun sadece etf formunda doğum tarihi kısmını girdikten sonra enter tuşuna bas o yaşıda kendi hesaplar aralığıda sen her yıl yaşıda değişecekmi diye sormuştun onuda yapacak koda bakarsan zaten form ile bir ilgisi yok kod bağımsız olarak tablonun verileri ile çaılşıyor yani sen yeni bir kişi eklediğinde yada birinin doğum tarihine girip çıktığında tüm tablodaki yaş ve yaş aralıklarını yeniden hesaplıyor yani forma bir timer koymene gerek yok zaten timer da formu kasar düşünsene 5000 tane kayfın var ve her 50 saniyede bir tablo bilgilerini güncelliyor olmaz öyle şey en iyisi benim yaptığım bu kodu formun açılışınada koyarsan formu her açtığında tablodaki yaş ve yaş aralığını kontrol eder değişecekleri değiştirir ve sana değişmiş verileri getirir unutmadan ben 11-24 de kadar case yaptım sen onları kendine göre düzenlersin
bu arada benim kodlarımda sub güncelle diye bir şey yok
Son düzenleme:
cevap
sorgu olayını kaldırdım onun yapacağı işi de koda yükledim dikkat et yaş kodu hala var modül3 te o olmasa Age diye başlayan yaş hesaplama çalışmaz güncelleme de o kod zaten
modül3 teki yaş hesaplama kodundaki AgeMonths kafanı karıştırmasın o doğum tarihini ay olarak hesaplamak için yani adam 321 aylık gibi bir şey kimbilir belki bir gün işine yarar kişinin kaç aylık olduğunu merak edersen
sorgu olayını kaldırdım onun yapacağı işi de koda yükledim dikkat et yaş kodu hala var modül3 te o olmasa Age diye başlayan yaş hesaplama çalışmaz güncelleme de o kod zaten
modül3 teki yaş hesaplama kodundaki AgeMonths kafanı karıştırmasın o doğum tarihini ay olarak hesaplamak için yani adam 321 aylık gibi bir şey kimbilir belki bir gün işine yarar kişinin kaç aylık olduğunu merak edersen
Son düzenleme: