Etf hakkında

hegu42 · 7 Ağustos 2007

etf programında yaş aralığını hesaplama kısmı belirli yaş grubuna kadar yapılmıştı ben ilave yapmama rağmen tarih aralığını tıklayınca hata veriyor kodu bir inceleyip yardımcı olurmusunuz.teşekürler.
Private Sub Komut30_Click()
Dim rs As New ADODB.Recordset
rs.Open "KİŞİLER", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rs.EOF <> True Then
Do
rs("YAŞ") = Age(rs("DOĞUM TARİHİ"))
rs.Update
Select Case rs("YAŞ")
Case 0 To 4
rs("YAŞARALIĞI") = "0-4"
rs.Update
Case 5 To 9
rs("YAŞARALIĞI") = "5-9"
rs.Update
Case 10 To 14
rs("YAŞARALIĞI") = "10-14"
rs.Update
Case 15 To 19
rs("YAŞARALIĞI") = "15-19"
rs.Update
Case 20 To 24
rs("YAŞARALIĞI") = "20-24"
rs.Update
Case 25 To 29
rs("YAŞARALIĞI") = "25-29"
rs.Update
Case 30 To 34
rs("YAŞARALIĞI") = "30-34"
rs.Update
Case 35 To 39
rs("YAŞARALIĞI") = "35-39"
rs.Update
Case 40 To 44
rs("YAŞARALIĞI") = "40-44"
rs.Update
Case 45 To 49
rs("YAŞARALIĞI") = "45-49"
rs.Update
Case 50 To 54
rs("YAŞARALIĞI") = "50-54"
rs.Update
Case 55 To 59
rs("YAŞARALIĞI") = "55-59"
rs.Update
Select Case rs("YAŞ")
Case 60 To 69
rs("YAŞARALIĞI") = "60-69"
rs.Update
Case 70 To 74
rs("YAŞARALIĞI") = "70-74"
rs.Update
Case 75 To 79
rs("YAŞARALIĞI") = "75-79"
rs.Update
Case 80 To 84
rs("YAŞARALIĞI") = "80-84"
rs.Update
Case 85 To 150
rs("YAŞARALIĞI") = "85-+"
rs.Update
End Select
rs.MoveNext

Loop Until rs.EOF
End If
Set rs = Nothing
Set conn = Nothing
End Sub

çalıştırdığım zaman Loop Until rs.EOF hata veriyor
kodu nasıl düzeltebilirim.

modalı · 7 Ağustos 2007

Sayın hegu72,

Bir de böyle deneyin:

Kod:

Private Sub Komut30_Click()
Dim rs As New ADODB.Recordset
rs.Open "KİŞİLER", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rs.EOF <> True Then
Do Until rs.EOF 
rs("YAŞ") = Age(rs("DOĞUM TARİHİ"))
rs.Update
Select Case rs("YAŞ")

'...
 
rs.MoveNext
Loop 
End If
rs.Close
Set rs = Nothing

End Sub

İyi çalışmalar

hegu42 · 7 Ağustos 2007

sayın modalı

olmadı hata veriyor ve loop seçiyor

modalı · 7 Ağustos 2007

Uygulamanızı ekleyebilirmisiniz.

İyi çalışmalar

hegu42 · 7 Ağustos 2007

sayın modalı

ilginize çok teşekkür ederim
ekledim

modalı · 7 Ağustos 2007

Sayın hegu42,

Yaş aralığını hesaplayan bir fonksiyon ekledim:

Kod:

Function Aralık(yaş As Integer) As String
Select Case yaş
Case 0 To 4
Aralık = "0-4"
Case 5 To 9
Aralık = "5-9"
Case 10 To 14
Aralık = "10-14"
Case 15 To 19
Aralık = "15-19"
Case 20 To 24
Aralık = "20-24"
Case 25 To 29
Aralık = "25-29"
Case 30 To 34
Aralık = "30-34"
Case 35 To 39
Aralık = "35-39"
Case 40 To 44
Aralık = "40-44"
Case 45 To 49
Aralık = "45-49"
Case 50 To 54
Aralık = "50-54"
Case 55 To 59
Aralık = "55-59"
Case 60 To 69
Aralık = "60-69"
Case 70 To 74
Aralık = "70-74"
Case 75 To 79
Aralık = "75-79"
Case 80 To 84
Aralık = "80-84"
Case 85 To 150
Aralık = "85-+"
End Select

End Function

Düğüme altındaki koduda şöyle değiştirdim:

Kod:

Dim rs As New ADODB.Recordset
Dim yaş As Integer
rs.Open "KİŞİLER", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rs.EOF <> True Then
    Do Until rs.EOF
        rs("YAŞ") = Age(rs("DOĞUM TARİHİ"))
        yaş = rs("YAŞ")
        rs("YAŞARALIĞI") = Aralık(yaş)
        rs.Update
        rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing
End Sub

Arada bir detabloda YAŞ alanını metinden tamsayıya çevirdim, ama gerekmeyebilir de.

İyi çalışmalar:hey:

hegu42 · 7 Ağustos 2007

sayın modalı

çok çok teşekkür ederim.
emeğinize sağlık
iyi çalışmalar

Taruz · 7 Ağustos 2007

Sayın hegu42;

hegu42' Alıntı:
ekledim

Merak ettim...

Dosyanızı neden geri çektiniz?

simendifer · 7 Ağustos 2007

Alışalım arkadaşlar

sayın Taruz işimiz bittiginde dosyamızı çekeriz benim işim görüldü birbaşkasının işine yaramasın esinlenerek faydalanmasın halbuki burası paylaşım yeri o kadar arkadaş yazıyor söylüyorlar eklenen programlar birebir başkası tarafından kullanılmaz mutlaka degişiklik ister ne kadar güzel hoş aklıma gelen (başka arkadaşlar da var alınmasın) sayın modalı özveri ile yardımcı olmuş zamanını bir karşılık beklemeden harcamış gerçi teşekkür etmiş sagolsun arkadaş yardımcı olmuş sorunu çözmüş ne kadar güzel hoş bir davranış ama ne olur programlarımızı çekmeyelim başka arkadaşlarda faydalansın bilgi dagarcıgımız genişlesin birde sorunlarımıza cevap ararken lütfen örnek dosyalarımızı ekleyelim cevap verir arkadaşlar hiç cevapsız kalmamıştır sorunlar sagolsun modalı,akd,karaayhan yeni54 su an aklıma gelmeyen arkadaşların ellerine saglık

hegu42 · 8 Ağustos 2007

arkadaşlar bende zaten buradan aldım kendi dosyam değil
yapan arkadaşa saygısızlık olmasın diye aldım. sanki kendim yapmış gibi oluyor. o kısmı eksikti sağolasın sayın modalı yardımcı oldu.
bundan dolayı çok çok özür dilerim. hatta hala sorunum var grafik çizdireceğim ama bazı yaş gruplarını 04 eylül çeviriyor. bir türlü halledemedim. bir de nasıl nüfus piramidi yapacam hala uğraşıyorum.
yapan arkadaşa saygısızlık olmazsa tekrar koyabilirim.

simendifer · 8 Ağustos 2007

sayın hegu42 hepimiz bu formdan faydalanıyoruz her programın içinde alıntılar var seni anlıyor ve saygı duyuyorum haklısın aşamadıgın yerleri beraber aşalım yardımcı olmak güzeldir herkes burda karşılıksız birbirine tanımadan yardıma hazır ve ediyorlar onlara teşekkür edelim yeter onları heveslendirelim onurlandıralım yaptıgımız eserleri birileri kullanması onur verici bir olay ekle sen örnegi aşalım sorunları bilgimizi ilerletelim yeni şeyler ögrenelim kolay gelsin

modalı · 8 Ağustos 2007

Arkadaşlar,

Birbirimizi kırmaya gerek yok. Uygulamayı ben ekliyorum. Sorumluluk benim.

İyi çalışmalar

hegu42 · 8 Ağustos 2007

arkadaşlar hepinizden özür dilerim

inanın benim yaptığım bir program değildi.bende bir şeyler ekledim.elimden gelen sadece bu kadar tekrar özür dilerim

simendifer · 8 Ağustos 2007

beni yanlış anladınız

sayın hegu42 kardeşim yanlış anlaşıldım kimseyi eleştirmek kırmak amacım degil sakın üzerine alınma şahsına bir dediğim yok soru sorarken dosya eklemiyorlar işleri bitince yapmış oldukları programları eklemiyorlar bunları yapsak sorunu çözmek isteyen arkadaş daha çabuk olayı çözer ben bunu demek istedim başka kişiler sizin sorunuza girdiği zaman okusun diye yazdım sakın üzerinize alınmayın özür dilerim öyle anlaşıldı ise
programınızı gördüm benimde böyle bir çalışmam olmuştu bakın inceleyin elinizin altında bulunsun

hegu42 · 9 Ağustos 2007

emeğine sağlık çok güzel olmuş

hegu42 · 13 Ağustos 2007

Etf formunu açtığımız zaman eğer şiftle açmazsak eğer ki muhtarlık bölümünde muhtarlık yoksa oraya muhtarlık ekliyemiyorum. Kodları incelemenizi rica ediyorum. Bununla ilgili örneğide gönderiyorum tekrar. Aynı konuyla ilgili olarak ta yaş gruplarına göre nüfus piramidi grafiği çizebilirmiyiz. Eğerki çizebilirsek bu konuda da yardımcı olursanız çok sevinirim. excelde yaptığım grafiği accesste yapmak istiyorum. Kadını veya erkeği birini eksi almazsam bu grafiği oluşturamıyorum.
Not: mesala garfik yapmak istediğimde de 5-9 yaş grubunu 5 eylül olarak değiştiriyor. Bununla çok uğraşmama rağmen yapamadım.Excel de daha basit yapabiliyordum.
Yardımlarınıza teşekkür ederim.

canavar_55 · 13 Ağustos 2007

merhabalar, nüfus pramidi ile ilgili aşağıdaki sayfada bir örnek bulabilirsiniz.

http://www.excel.web.tr/showthread.php?t=28321&highlight=RENKL%DD+GRAF%DDK

hegu42 · 13 Ağustos 2007

sayın canavar 55
ben bunu excel de değil accesste istiyorum
benim ekimde zaten excel de yaptığımı eklemiştim
ilginize ayrıca teşekkür ederim.

simendifer · 13 Ağustos 2007

sayın hegu42 aslında siz raporu yapmışsınızdır ama taplonuzda veri olmadıgı için grafik resmini göremiyorsunuz formdan veya direk taploya verilerinizi girin raporda girfiklerinizi görürsünüz ben denedim görünüyor ekteki çalışmanızda

hegu42 · 13 Ağustos 2007

Sayin Sİmendİfer Çok TeŞekkÜr Ederİm İlgİnİze
Şu An BulunduĞum Bİlgİsayarda Eskİ SÜrÜm Access OlduĞu İÇİn Bakamiyorum Fakat Sİzden Bİr Rİcam Daha Olacak Ben Bİle Bİle BoŞ Biraktim ÇÜnkÜ BoŞ Olunca Muhtarlik Eklİyemİyorum.bu Nedenle BoŞ Biraktim. Bu Konuda Da Yardimci Olursaniz Sevİnİrİm.kod İnceleyİp Bİlgİ Verİrsenİz Sevİnİrİm.BEN GRAFİĞİ EXCELDE YAPIORUM AMA AYNI GARFİĞİ ACCESTE YAPAMADIM ÖRNEK KOYMUŞTUM. Yardimlariniza Çok Çok TeŞekkÜr Ederİm.

Etf hakk&#305;nda

Etf hakkında