iCentar » Racunari i oprema » Programirannje i baze podataka » Access

Gjoreski	08.02.2015 12:50
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?

Gjoreski

08.02.2015 12:50

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?

zxz	08.02.2015 13:56
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 PreuzmiIzvorni kôd (SQL): SELECT T.ID, T.Datum, nz([duguje],0)-nz([Potrazuje],0) AS SaldoQ, (SELECT SUM( nz(Bingo.duguje,0) -nz(Bingo.potrazuje,0)) AS Saldo FROM Bingo WHERE Bingo.ID<=T.ID) AS Total FROM Bingo AS T; 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: PreuzmiIzvorni kôd (SQL): SELECT Bingo.ID, Bingo.Datum, nz([Potrazuje],0) AS PotrazujeQ, nz([duguje],0) AS DugujeQ, Format([dugujeq]-[potrazujeq],"0.00") AS SaldoQ, TotalX([ID]) AS Kumulativno FROM Bingo; a ovaj kod ide u neki modul: PreuzmiIzvorni kôd (Visual Basic): Function TotalX(ID As Long) Dim Db As Database Dim Rs As Recordset Dim SQl As String Dim Nalog As Integer On Error Resume Next Set Db = CurrentDb SQl = "SELECT Sum(SaldoQ) AS T " _ & "FROM Q_Kumulativno " _ & "WHERE ID<=" & ID 'identifikaciono polje ID Set Rs = Db.OpenRecordset(SQl) TotalX = Format(Rs!T, "0.00") Rs.Close End Function 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.

zxz

08.02.2015 13:56

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

PreuzmiIzvorni kôd (SQL):

SELECT T.ID, T.Datum, nz([duguje],0)-nz([Potrazuje],0) AS SaldoQ, (SELECT SUM( nz(Bingo.duguje,0) -nz(Bingo.potrazuje,0)) AS Saldo
FROM Bingo
WHERE Bingo.ID<=T.ID) AS Total
FROM Bingo AS T;

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:

PreuzmiIzvorni kôd (SQL):

SELECT Bingo.ID, Bingo.Datum, nz([Potrazuje],0) AS PotrazujeQ, nz([duguje],0) AS DugujeQ, Format([dugujeq]-[potrazujeq],"0.00") AS SaldoQ, TotalX([ID]) AS Kumulativno
FROM Bingo;

a ovaj kod ide u neki modul:

PreuzmiIzvorni kôd (Visual Basic):

Function TotalX(ID As Long)
Dim Db As Database
Dim Rs As Recordset
Dim SQl As String
Dim Nalog As Integer
On Error Resume Next
Set Db = CurrentDb
SQl = "SELECT Sum(SaldoQ) AS T " _
& "FROM Q_Kumulativno " _
& "WHERE ID<=" & ID
'identifikaciono polje ID
Set Rs = Db.OpenRecordset(SQl)
TotalX = Format(Rs!T, "0.00")
Rs.Close
End Function

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.

pmiroslav	08.02.2015 16:05
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)

pmiroslav

08.02.2015 16:05

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)

Carpenter	08.02.2015 16:07
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: Faktura1.zip (Velicina datoteke:281.78 KB)

Carpenter

08.02.2015 16:07

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:
Faktura1.zip (Velicina datoteke:281.78 KB)

kenan	08.02.2015 16:10
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

kenan

08.02.2015 16:10

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

zxz	08.02.2015 16:14
Predmet:Re: Kumulativni zbir u Access 2007 @pmiroslav Citat: 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) 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.

zxz

08.02.2015 16:14

Predmet:Re: Kumulativni zbir u Access 2007

@pmiroslav

Citat:

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)

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.

Gjoreski	08.02.2015 17:42
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: Primer.txt (Velicina datoteke:1.69 KB)

Gjoreski

08.02.2015 17:42

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:
Primer.txt (Velicina datoteke:1.69 KB)