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):
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):
a ovaj kod ide u neki modul: PreuzmiIzvorni kôd (Visual Basic):
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) |
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 |
zxz | 08.02.2015 16:14 |
---|---|
Predmet:Re: Kumulativni zbir u Access 2007 @pmiroslav Citat: Hehe dobro si to rekao samo sto ja dosad nisam ni razmisljao tako ja sam imao negdje ovo gotovo a radilo se o kolicinama.Da li možda ovo nije jedan od situacija kada se od šume ne vidi drvo. 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) |
zxz | 08.02.2015 18:09 |
---|---|
Predmet:Re: Kumulativni zbir u Access 2007 Da sad sam razumio. njemu je u stvari saldo kumulativno do tog datuma. Hvala @Gjoreski |
kenan | 08.02.2015 19:35 |
---|---|
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 |
Gjoreski | 08.02.2015 19:55 |
---|---|
Predmet:Re: Kumulativni zbir u Access 2007 Attachment |