[RAPOR] ETOPLA

evren89 · 11-12-2014, 12:05

Arkadaşlar acces te form 1 de cari leri kayıtlı form 2 de muhasebe kayıtlarım var
form 1 de belirtilen toplam borç alanı cari koduna form 2 deki borç alacağa göre her cariye etopla yapıp karşında belirmesini istiyorum

dsezgin · 11-12-2014, 14:36

Sn evren89;
=dsum("nz([tutar].0)";"TabloAdi";"[CariID]=" & carID & " And [IkinciKosulSutunAdi]='" & [Borclular])

Komutu ile diger tabloda ki veriyi soru veya metin kutusu icine cagirabilirsiniz. Komutu inceleyip deneyin.

Ihtiyac ile ilgili sikinti giderilmis ise son bir olum lu/suz mesaj ile sonlandirabilirsiniz.

evren89 · 11-12-2014, 18:17

Sezgin bey bu formulu neye yazacağımı bilemedim eklentim üzerinde gösterebilirmisiniz.

dsezgin · 11-12-2014, 18:54

(11-12-2014, 18:17)evren89 demiş ki: Sezgin bey bu formulu neye yazacağımı bilemedim eklentim üzerinde gösterebilirmisiniz.

Sn evren bey;
Tablo1 formu gecerli oldugu olay yordamina yaziniz.
Private Sub Form_Current()
Me.top_alacak = DSum("nz([alacak],0)", "Tablo2", "[cari no]='" & Me.[cari no] & "'")
Me.top_borç = DSum("nz([borç],0)", "Tablo2", "[cari no]='" & Me.[cari no] & "'")
End Sub

evren89 · 11-12-2014, 20:54

ALLAH sizden razı olsun yapıldı bir daha ricam olacak hücrelere tıklayınca hesaplama yapıyor ben bunu formu hemen açılınca hesaplamsını istiyorum 2-)form üzerinden filtreleme yapınca sadece filtrelenen yerin hesaplanmasını istiyorum

dsezgin · 11-12-2014, 21:46

Sn evren; ALLAH hepimizden razı olsun. Form acilinca tum kayitlarin toplam alacak ile borclarinin hesaplamasi asagida ki kodlar ile yapilabilir.

Visual Basic
Private Sub Form_Load()
Call Hesaplama
End Sub

Yukarida ki call kodu filitreleme yaptiginiz eylemin sonuna yazabilirsiniz.

Visual Basic
Sub Hesaplama()
Dim Kyt As Recordset, Sw As Long
Set Kyt = Me.RecordsetClone
Kyt.MoveFirst
Do
Kyt.Edit
Kyt![top alacak] = DSum("nz([alacak],0)", "Tablo2", "[cari no]='" & Kyt![cari no] & "'")
Kyt![top borç] = DSum("nz([borç],0)", "Tablo2", "[cari no]='" & Kyt![cari no] & "'")
Kyt.Update
Kyt.MoveNext
Loop Until Kyt.EOF
Kyt.Close: Set Kyt = Nothing
End Sub

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[RAPOR] Rapor etopla	KAZIMS	5	1.590	14-12-2016, 18:01 Son Mesaj: dsezgin
	[FORM] etopla	evren89	2	1.317	25-12-2014, 11:40 Son Mesaj: evren89
	[FORM] Etopla	evren89	1	1.178	14-12-2014, 03:22 Son Mesaj: dsezgin
	Accesste Etopla	cresendo	2	12.433	06-01-2010, 21:01 Son Mesaj: sonerdursun

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL