Centar za edukaciju-BiH

Predmet:Re: Kumulativni zbir u Access 2007

---

Sega go vidov postov a jas veke ti napraviv kako treba toa vo Access bidejki imase napisano deka se raboti za Access 2007.
Ako e VB6 togas e druga prikazna.
Kolku sto te razbrav ti sakas saldoto da go cuvas vo tabelata bingo , no moja sugestija ti e da ne pravis taka bidejki Saldo e izvedena brojka od dolzi i pobaruva i sekogas ke imas problemi ako nekoj vnesi nekoj podatok so postar datum i togas ti ke moras sve od toj datum pa nataka da menuvas.
Najdobro e da se napravi funkcija koja ke ti go presmetuva saldoto.
E sega mora uste malku da objasnis :
Dali ova go prikazuvas vo grid ili na nekoj izvestaj datareport ili cristal report?

Predmet:Re: Kumulativni zbir u Access 2007

---

@Gjoreski ti je dobro rekao polje saldo ti netreba jer to polje je rezultat polja duguje i potrazuje i to mozes rijesiti sa sql-om kao i minus odnosno negativno u polju potrazuje.
Dovoljno je samo u sql-u polje potrazuje pomnoziti sa -1 ali u ovom slucaju ni to netreba.

Evo rjesenje sa SQL-om
Samo ovaj SQL kopiraj u neki Query.
Ovo ti moze stojati i u bazi

Ako ti ovo bude sporo radilo onda ces morati raditi sve na strani Vb6 jer ima kod.
Znaci ne u bazi i morat ces prepraviti db konekciju odnosno setovanje u ovom kodu.

SQL:

a ovaj kod ide u neki modul:

Ako budes moraom raditi na ovaj drugi nacin najvjerovatnije ces morati opet doci po pomoc ali tada postavi pitanje u vb6.
Mozes ovo sve staviti i u tvoju bazu i ono ce raditi na racunarima gdje ima access ali ako ga nema nece.
Zato bi sve trebalo da ide u vb6.
Baza je onda samo baza.

---

Predmet:Re: Kumulativni zbir u Access 2007

---

Da li možda ovo nije jedan od situacija kada se od šume ne vidi drvo.
Ovo bi trebalo bit jednostavno
Saldo = Sum (Ulaz)-Sum(izlaz)

---

Predmet:Re: Kumulativni zbir u Access 2007

---

Hvala na odgovoru.

Ja sam planirao da to ide u raport koji bi pozivao iz VB 6:

Set appAccess = CreateObject("Access.application")
appAccess.OpenCurrentDatabase ("C:\Bio Pool\Faktura1.mdb")
appAccess.DoCmd.OpenReport "RptBingo", acViewPreview
appAccess.Visible = True

i onda ga printao
evo ponovo baza sa query i raportom
mozda bi bilo bolje kodom iz VB jer imam i jedno pitanje za VB pa cu ga postaviti ub VB

Prilozi:

Predmet:Re: Kumulativni zbir u Access 2007

---

vidili ko gdje je ovdje greška

zapne na komandi IF

Private Sub Command6_Click()
Dim ag, ag1, ng, ng1, ng2, NG3, OP As String
Dim P, K, K1, PD, KD As Date

P = "01.01." & Me.Text4.Column(1) & "."
K = "30.06." & Me.Text4.Column(1) & "."
K1 = "31.12." & Me.Text4.Column(1) & "."
ng = "aktiv.godina = '" & Me.Text4.Column(1) & "'"
ng1 = "period.godina = " & Me.Text4.Column(1) & ""
ng2 = "aktiv.firma = '" & Me.Text4.Column(2) & "'"
NG3 = "period.firmaID = '" & Me.Text4.Column(2) & "'"
OP = "period.ObracinskiPeriod = '" & Me.Text4.Column(4) & "'"
PD = "period.Pdatum = " & P
If Me.Text4.Column(4) = "periodicni" Then
KD = "period.Kdatum = " & K
ElseIf Me.Text4.Column(4) = "GODISNJI" Then
KD = "period.Kdatum = " & K
End If

DoCmd.RunSQL "UPDATE period SET period.aktiv = false;" 'poništi aktivni period
DoCmd.RunSQL "UPDATE aktiv SET " & ng & " WHERE (((aktiv.aktivan)=True));" 'NOVI UPIS PERIODA U AKTIV
DoCmd.RunSQL "UPDATE period SET period.aktiv = True, " & NG3 & " WHERE " & ng1 & ";" 'upis aktivne firme u period
DoCmd.RunSQL "UPDATE aktiv SET " & ng2 & " WHERE (((aktiv.aktivan)=True));" 'u aktiv upisi aktivnu firmu
DoCmd.RunSQL "UPDATE period SET period.aktiv = True, " & OP & " WHERE " & ng1 & ";" 'upis aktivne firme u period
DoCmd.RunSQL "UPDATE period SET period.aktiv = True, " & PD & " WHERE " & ng1 & ";" 'upis aktivne firme u period
DoCmd.RunSQL "UPDATE period SET period.aktiv = True, " & KD & " WHERE " & ng1 & ";" 'upis aktivne firme u period

Set ag1 = CurrentDb().OpenRecordset("SELECT m.[Puni naziv firme] AS P, a.godina AS G FROM aktiv AS a INNER JOIN [maticni podatci] AS m ON a.firma = m.[Firma id] WHERE (((a.NivoFirma)=True));")
Refresh
Me.Caption = "Aktivna firma " & ag1!P & " i aktivna godina " & ag1!g
Me.Text4.Requery
MsgBox "Obračunski period uspjeÅ¡no promjenjen." & vbCrLf & vbCrLf & "Aktivna firma je " & ag1!P & "." & vbCrLf & "Aktivna godina je " & ag1!g & vbCrLf & "Obračunski period ostaje aktivan do sljedeče promjene", vbOKOnly, "P L A T E"
If vbOK Then
DoCmd.Close
End If
End Sub

Predmet:Re: Kumulativni zbir u Access 2007

---

@pmiroslav
Hehe dobro si to rekao samo sto ja dosad nisam ni razmisljao tako ja sam imao negdje ovo gotovo a radilo se o kolicinama.
Sad kako ovo napisati u Query-u ni to nisam razmisljao.
Nesto mi drugo pade na pamet kad ovo tvoje gledam.
Sta je u stvari ovdje saldo a sta kumulativni iznos ako kazemo oboje od neke stavke do neke.

---

Predmet:Re: Kumulativni zbir u Access 2007

---

Jas mislam deka Carpenter saka da go postigne tocno ona sto jas go napraviv vo gorniot post
--------------------------------------------------
--------------------------------------------------
-------
Data Dokument Broj Dolzi Pobaruva Saldo
--------------------------------------------------
--------------------------------------------------
-------
od Predhoden period: 31.01.2015 1000.00 500.00 500.00
--------------------------------------------------
--------------------------------------------------
--------
01.02.2015 5/2015 100.00 0.00 600.00
02.02.2015 6/2015 0.00 200.00 400.00
03.02.2015 7/2015 2000.00 0.00 2400.00
04.02.2015 8/2015 1500.00 0.00 3900.00
05.02.2015 9/2015 0.00 154.00 3746.00
--------------------------------------------------
--------------------------------------------------
---------
vkupno od predhoden period 1000.00 500.00 500.00
vkupno vo tekoven period 3600.00 354.00 3246.00
--------------------------------------------------
--------------------------------------------------
---------
Vkupno 4600.00 854.00 3746.00
--------------------------------------------------
--------------------------------------------------
---------

Ova e toa sto mu treba

Prilozi:

Predmet:Re: Kumulativni zbir u Access 2007

---

Da sad sam razumio. njemu je u stvari saldo kumulativno do tog datuma.
Hvala @Gjoreski

---

Predmet:Re: Kumulativni zbir u Access 2007

---

evo vam rješenje za kumulativnu karticu
fol je da to možeÅ¡ jednostavno dobiti na reportu na formi moguče ali mnogo komplikovano a i nepotrebno
uglavnom izmjeni polja i radit će ti

kako da vam zakačim primjer

Predmet:Re: Kumulativni zbir u Access 2007

---

Attachment