Gelen Paralari Harcama Tablosuna Yazmak

kadirdursun · 29 Haziran 2007

ArkadaŞlar
MÜŞterİ Kaydi
BorÇ Ödeme Tablosu
Harcama Tablosu
Adinda 3 Tablom Var.

BorÇ Ödeme Tablosunda MÜŞterİlerİn Alcaklarini Vereceklerİnİ Kaydedİyorum.

İstedİĞİm Şu;
Harcama Tablosuna BorÇ Ödeme Tablosundakİ GÜnlÜk Para GİrİŞlerİnİ Aktarmak.

ÖreĞİn 01.06.2007 Tarİhİnde 10 MÜŞterİden Toplam 1.250 Ytl Para GelmİŞ Olsun Ben Bu DeĞerİn Harcama Tablosundakİ Tarİh Kismina 01.06.2007 Olarak Ve Gelen Para Kisminada 1.250 Ytl Olarak Kaydolmasini İstİyorum. Hangİ GÜn Para GİrŞİ OlmuŞsa Onlari Toplasin Ve Toplu Olarak O Tarİhe (harcama Tablosunda) Kaydetsİn. Bende Harcamalarimi Buraya Yazinca Elİmde Ne Kadar Para KalmiŞ GÖreyİm.

Yardim Olabİlİr Mİsİnİz?....

gulsum1 · 29 Haziran 2007

bu aktarma belli bir saattemi olacak yoksa sen bir düğmeye tıkladığındamı yoksa her kayıt girildiğinde güncellenecekmi gerçekten çok basit bir şey benim daha önceki ado örneklerime bakarsan sen bile yaparsın ne varki falanca tabloya bak falanca tarihlerdeki falanca alandaki kayıtları topla şu tablonun şu alanına bu günün tarihini şu alnınınada topladığın sayıyı ekle eğer daha önce eklenmişse güncelle hepsi bu kadar
bu daha önce yaptığım bir örnek ve senin yapacağında hemen hemen aynı şey
Tablo1 diye bir tablomuz var içinde ADI=metin SIRA=sayı diye iki alan var
formda sıra alanının veri kısmında etkin hayır kilitli evet dedik formun ekleme sonrasına kodu yazdıkki kayıt ekledikten sonra tablodaki bütün alanları kontrol etsin sonrada aynı ise sırayı 1 artırsın değilse 1 den başlasın dedik

Private Sub Form_AfterInsert()
'burda i diye bir sanal alan yaptık
Dim i As Integer
'burda rs diye bir recorset oluşturduk
Dim rs As New ADODB.Recordset
'burda oluşturduğumuz recorsete bir tablo gösterip onu açmasını söyledik
rs.Open "Tablo1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'burda açılan tablonun ilk kaydına gitmesini söyledik
rs.MoveFirst
'burda oluşturduğumuz sanal alana 0 değeri atadık
i = 0
'burda açılan tabloda veri varmı yokmu onu kontrol ediyoruz
If rs.EOF <> True Then
Do
'burda tablodaki ADI alanıyla Formdaki ADI alanını karşılaştırıyoruz benzeyenleri
If Nz(rs("ADI")) = Nz(ADI.Value) Then
'burda saydırıyoruz
i = i + 1
'burda ise o saydırdığımız sayıyı eklediğimizde dahil alana yazdırıyoruz
SIRA.Value = i
End If
'Burda eğer benzersiz bir kayıt yazdıysak ona bakıyor kod
If Nz(rs("ADI")) <> Nz(ADI.Value) Then
'burda ise o benzersiz kaydın sırasına 1 yazıyor
SIRA.Value = 1
End If
'burda bu işlemleri tüm tablodaki kayıtlar bitene kadar sonraki kayıt diyerek döndürüyoruz
rs.MoveNext
Loop Until rs.EOF
End If
'burda ise son kayda geldiğinde açılan tabloyu kapatıyor
Set rs = Nothing
Set conn = Nothing
End Sub

kadirdursun · 29 Haziran 2007

sanırım daha önceki soruma verdiğiniz cevabı yazmışsınız.

her kayıt girdiğimde güncellenirse daha iyi olur sanırım.

kadirdursun · 30 Haziran 2007

sayın gulsum1;
ekleme sorgusu kullanarak yaptım. sorgu oluşturdum sorguyu çalıştırınca bilgileri diğer tabloya ekledi sorguyu ikinci kez çalıştırınca yine ekledi sorguyu içinci kez çalıştırınca yine ekledi

.............................

bir defa eklesin istiyorum. birde yine sorguyla aynı günleri grupladım ama bu seferde tabloya eklerken satıları ekledi ama bilgi yok.....

benim istediğim şöyle;

ÖreĞİn 01.06.2007 Tarİhİnde 10 MÜŞterİden Toplam 1.250 Ytl Para GelmİŞ Olsun Ben Bu DeĞerİn Harcama Tablosundakİ Tarİh Kismina 01.06.2007 Olarak Ve Gelen Para Kisminada 1.250 Ytl Olarak Kaydolmasini İstİyorum. Hangİ GÜn Para GİrŞİ OlmuŞsa Onlari Toplasin Ve Toplu Olarak O Tarİhe (harcama Tablosunda) Kaydetsİn. Bende Harcamalarimi Buraya Yazinca Elİmde Ne Kadar Para KalmiŞ GÖreyİm.

Yardim Olabİlİr Mİsİnİz?....

kadirdursun · 30 Haziran 2007

eki unutmuşum

kadirdursun · 30 Haziran 2007

sayın gulsum1
ben yapamadım nasıl yapabileceğim konusunda fikriniz var mı?

gulsum1 · 30 Haziran 2007

senin istediğin çok basit bir şey ama önce yorum yapan arkadaşlar yorumu bırakıp milletin soruları ile ilgilensinler basit soruları bırakıp senin sorun gibi en az 200 satırlık kod gerektiren soruları cevaplasınlar yapamazlarsa soruyu es geçmesinler bu zormuş ben yapamam diyip sezarın hakkını sezara iade etsinler

senin yapacağın 1 yıllık toplam tablosu 2 aylık toplam tablosu 3 günlük toplam tablosu 4 para giriş tablosu 5 paraçıkış tablosu

1=diyelim para giriş tablosunda bu güne 10 tane para girişi yaptın bu on kaydı toplayıp bir tek kayıt olarak günlüktoplam tablosuna aktaracak eğer sen bu on kayıtttan sonraaynı güne başka bir kayıt eklediysen onuda günlüktoplam tablosunda ilgili tarihi bulacak ve onun üstüne ekleyecek
2=sen diyelim bu güne ait harcama tablosuna 5 kayıt girdin bunu toplayıp günlük toplam tablosunda harcama bölümüne yazacak aynı anda o günün giriş toplamından bunu çıkarıp o günün kalanına yazacak
3=senin bu girdiğin günlük girişler günlük toplam tablosundan sorgulanacak ve toplanıp aylıktoplam tablosunda ilgili aya eklenecek toplamlar kendi aralarında hesaplancak aylık giriş toplamı çıkş toplamı ve kalan
4= senin aylık toplam tablosunda biriken toplamlar ilgili yıla toplanarak ve hesapları yapılarak ilgili yıla aktarılacak

böylece yıllık aylık ve günlük sorgulamaların kolay olacak ve hangi yılın hangi ayında hangi gününde ne kadar girmiş ne kadara çıkmış ne kadar kalmış göreceksin

işte nasıl yapılacağını anlattım yorum yapacak arkadaşlar yorum yapmayın çözüm yapın çözüm bu şekilde olacak gerisi ado kodları hadi kolay gelsin bir hafta sonra görüşürüz yapan çıkmazsa örneği koyarım

"MEYVE VEREN AĞAÇ TAŞLANIR BİR GÜN GELİR DALLARI KIRILMIŞ VE YARALANMIŞTIR ARTIK MEYVE VERMEZ OLUR"

kadirdursun · 3 Temmuz 2007

Sayin Gulsum1
ÇaliŞtiĞim Program Ekte. Kopyasi ÜstÜnde Bİraz Anlattiklariniz DoĞrultusunda BİŞeyler Yaptim Ama YanliŞlikla Sİlİndİ

Zaten Çok BİŞİde Yapamadim.

gulsum1 · 5 Temmuz 2007

aslında formdan ayrılıyorum ama sana söz verdiğimden yarın örneğini ekleyeceğim

gulsum1 · 5 Temmuz 2007

yaparım diye söz vermiştim sözümü tutmuş olayım

yarın demiştim ama uğraşıp son olarak senin kodunu yazdım
program şu mantıkla çalışıyor
bir adet günlük para girişlerinin yapıldığı bir TOPLANAN diye bir tablo ve yine aynı ismde formu var bu tablodan girilen paralar tarihleri GÜNLÜK tablosundaki tarihlerle karşılaştırılıyor ve tutanlar o tarihe girdi olarak ekleniyor diğer taraftan yılı ve ayıda ayırarak aynı tabloya ekliyorki biz yıllık ve aylık toplamlara bakabilelim şimdi HARCAMA tablosu ve aynı isimli forma bu forma girdiğimiz harcamalar GÜNLÜK tablosunda tarihler karşılaştırılıyor ve eşleşenlere harcamalar ekleniyor aynı zamanda günlük toplamdan çıkarılıyor ve kalanı yazıyor
sıra geldi sorgulara aylık toplam diye bir sorgu hazırladım toplanan harcanan kalan toplamlarını aldım eğer yılını belirtmediysem bütün yılların aylarını gruplayıp topluyor yok yıl belirtirsem o yılın aylarını gruplayıp topluyor
yıllık toplam ise sadece yılların toplanan harcanan ve kalanını topluyor

şimdi siz programı nasıl kullanacaksınız TOPLANAN formunu açacaksınız ve para girişlerini tarihleri ile beraber yapacaksınız sonra harcama formunu açıp harcama varsa onları gireceksiniz aynı güne isterseniz 10 larca kayıt girebilirsiniz

kodlar
TOPLANAN formunun
'formun eklemesine
Private Sub Form_AfterInsert()
'recorset açıyoruruz
Dim rs1 As New ADODB.Recordset
'recorsete tabloyu atıyoruz
rs1.Open "GÜNLÜK", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'tabloda kayıt varmı ona bakıyoruz
Do Until rs1.EOF
'kayıt ile forma girdiğimiz tarihi karşılaştırıyoruz
If rs1("TARİH") = TARİH.Value Then
'bu bölümde tabloyu güncelleiyoruz
With rs1
.Update
!YIL = Year(Me.TARİH)
!AY = Month(Me.TARİH)
!TARİH = Me.TARİH
!TOPLANAN = !TOPLANAN + Me.TOPLANAN
.Update
End With
End If
güncelleme işlemi bitene kadar sorgudaki kayıtları tek tek kontrol ediyoruz
rs1.MoveNext
Loop
Set rs1 = Nothing
Set conn = Nothing
Call yoksa
End Sub
'burda ise eğer forma girdiğimiz tarih tablodaki hiçi bir kayıtla eşleşmezse tabloya yeni bir gün olarak kaydediyoruz
Function yoksa()
Dim rs1 As New ADODB.Recordset
rs1.Open "gun1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs1.MoveLast
If rs1("TARİH") < TARİH.Value Then
With rs1
.AddNew
!YIL = Year(Me.TARİH)'burdda yıl alanına tarihe yazdığımız tarihin yılını alaıyoruz
!AY = Month(Me.TARİH) burda ay alanıana tarihin ayını alıyoruz
!TARİH = Me.TARİH
!TOPLANAN = Me.TOPLANAN
.Update
End With
End If
Set rs1 = Nothing
Set conn = Nothing
End Function

gulsum1 · 5 Temmuz 2007

yaparım diye söz vermiştim sözümü tutmuş olayım

yarın demiştim ama uğraşıp son olarak senin kodunu yazdım
program şu mantıkla çalışıyor
bir adet günlük para girişlerinin yapıldığı bir TOPLANAN diye bir tablo ve yine aynı ismde formu var bu tablodan girilen paralar tarihleri GÜNLÜK tablosundaki tarihlerle karşılaştırılıyor ve tutanlar o tarihe girdi olarak ekleniyor diğer taraftan yılı ve ayıda ayırarak aynı tabloya ekliyorki biz yıllık ve aylık toplamlara bakabilelim şimdi HARCAMA tablosu ve aynı isimli forma bu forma girdiğimiz harcamalar GÜNLÜK tablosunda tarihler karşılaştırılıyor ve eşleşenlere harcamalar ekleniyor aynı zamanda günlük toplamdan çıkarılıyor ve kalanı yazıyor
sıra geldi sorgulara aylık toplam diye bir sorgu hazırladım toplanan harcanan kalan toplamlarını aldım eğer yılını belirtmediysem bütün yılların aylarını gruplayıp topluyor yok yıl belirtirsem o yılın aylarını gruplayıp topluyor
yıllık toplam ise sadece yılların toplanan harcanan ve kalanını topluyor

şimdi siz programı nasıl kullanacaksınız açılan formda TOPLANAN kısmına para girişlerini tarihleri ile beraber yapacaksınız sonra harcama HARCAMA kısmına harcama varsa onları gireceksiniz aynı güne isterseniz 10 larca kayıt girebilirsiniz alt formlarda günlük aylık ve yıllık toplamlar otomotik gelecektir

kodlar
TOPLANAN formunun
'formun eklemesine
Private Sub Form_AfterInsert()
'recorset açıyoruruz
Dim rs1 As New ADODB.Recordset
'recorsete tabloyu atıyoruz
rs1.Open "GÜNLÜK", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'tabloda kayıt varmı ona bakıyoruz
Do Until rs1.EOF
'kayıt ile forma girdiğimiz tarihi karşılaştırıyoruz
If rs1("TARİH") = TARİH.Value Then
'bu bölümde tabloyu güncelleiyoruz
With rs1
.Update
!YIL = Year(Me.TARİH)
!AY = Month(Me.TARİH)
!TARİH = Me.TARİH
!TOPLANAN = !TOPLANAN + Me.TOPLANAN
.Update
End With
End If
güncelleme işlemi bitene kadar sorgudaki kayıtları tek tek kontrol ediyoruz
rs1.MoveNext
Loop
Set rs1 = Nothing
Set conn = Nothing
Call yoksa
End Sub
'burda ise eğer forma girdiğimiz tarih tablodaki hiçi bir kayıtla eşleşmezse tabloya yeni bir gün olarak kaydediyoruz
Function yoksa()
Dim rs1 As New ADODB.Recordset
rs1.Open "gun1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs1.MoveLast
If rs1("TARİH") < TARİH.Value Then
With rs1
.AddNew
!YIL = Year(Me.TARİH)'burdda yıl alanına tarihe yazdığımız tarihin yılını alaıyoruz
!AY = Month(Me.TARİH) burda ay alanıana tarihin ayını alıyoruz
!TARİH = Me.TARİH
!TOPLANAN = Me.TOPLANAN
.Update
End With
End If
Set rs1 = Nothing
Set conn = Nothing
End Function

assenucler · 5 Temmuz 2007

Sn. Gulsum

Sitemize büyük emek veren ve renk katan konusunda uzman bir birey olarak kararınıza üzülmekle birlikte saygı duyuyorum.

Hepimizin yazın bu sıcak günlerinde biraz dinlenmeye ve serinliğe ihtiyacımız var. Bize verdiğiniz katkı için kendi adıma hakkınızı helal ediniz. Sizi arayacağımızı bilmenizi isterim. Her şey gönlünüzce olsun. Sevgiyle ve sağlıcakla hoşçakalın.

kadirdursun · 6 Temmuz 2007

sayın gulsum1
forumdan ayrılmanıza üzüldüğümü bilmenizi isterim.
bu foruma çok emeğiniz geçti.
yaptığınız herşey için çok teşekkür ederim....