kenan | 27.05.2015 19:34 |
---|---|
Predmet:Re: Petlja problem uglavnom ako neko ima nešto gotovo ili slično dobro jest ako ne ja svakako trenutno odusto od ovoga i ostavljam za kasnije svakako hvala na trudu |
zxz | 27.05.2015 20:40 |
---|---|
Predmet:Re: Petlja problem Citat: iif( isnull((select sum(QteEntree) from Stock where IdArt = a.IdArt group by IdArt)) ,0, (select sum(QteEntree) from Stock where IdArt = a.IdArt group by IdArt) ) Dobro ti kaze @Gjoreski. Tesko se snaci u ovom tvome. Ne postoje niti relacijske veze izmedju tabela niti opisi polja. E sad da ti bar napises sta zelis napraviti i to detaljno. Primjer: tabela ta i ta polje na formi to i to kao uslov da izvuces podatke iz te i te tabele. Ti si stavio Query u kojemse pominju tabele a koje ne postoje u tvojoj bazi. Nemoras odustajati ali ono sto napravis mora biti tebi bar sve jasno sta si napravio kao i daljni cilj sta zelis napraviti i naravno to sve opisano jer do kraja ces i ti sam zaboraviti sta si htio. Ja sam pratio temu ali se nisam ubacivao jer mi je dosta stvari bilo nelogicno pa reko da ne zakomplikujem jos vise. |
kenan | 26.05.2015 16:05 |
---|---|
Predmet:Re: Petlja problem HVALA ovo radi perfektno ono što sam zamislio, e sad i ide novo komplikovanje moja finalna zamisio oko ove funkcije je da operater sam izabira polja koja će mu ići u šemu tj. da sa njima sam upravlja, uglavnom spaja određena polja ili čak da sam formuliše IIF funkciju koja će se odraditi u kodu. E sad ja sam se tu malo igrao i ranije i imao fiksne šeme u kojima operater buklalno nije mogao ništa uvjek je morao tražiti izmjenu i onda se svi zajedno pogubimo u u uslovima. ovo bi trebala biti procedura koja bi to sve objedinjavala i davala slobodu operateru da se igra sa podatcima ili ćak sebi komplikuje na prikazima na prvi recorsdet netreba obraćati pažnju on je nebitan ali neka komplet kod opet je isti bitan SDUpis i sve se vrti oko njega ovaj kod nekom može biti od koristi i radi If zxzBox("Da li želite prebaciti podatke u finansisko knjigovodstvo prema zadanim modelima knjiženja?", vbYesNo, "eFinPos") = vbYes Then 'provjera ima li sta za prenos Dim sql As String uslov = "PrebFin = 0" sql = "SELECT * " & _ "FROM OPIzvorSredstava WHERE " & uslov & " ;" Set rbizv = CurrentDb().OpenRecordset(sql) If rbizv.RecordCount = 0 Then zxzBox "Neme ništa za PRENOS." & vbCrLf & "Svi dokumenti su več prebačeni!", vbInformation, "eFinPro" rbizv.Close Else ng = "SELECT OpIzvorSredstava.IDVrstaNaloga, AKTIV.IDOrgJed, OpIzvorSredstava.IDFirma, OpIzvorSredstava.IDPeriod, [BrNalogaZadnji]+1 AS BrNaloga, Now() AS datum, 0 AS Prok, Last([IDNalog]+1) AS nalog " & _ "FROM FinGKG INNER JOIN ((AKTIV INNER JOIN OpIzvorSredstava ON AKTIV.firma = OpIzvorSredstava.IDFirma) INNER JOIN ZFVrstaNaloga ON OpIzvorSredstava.IDVrstaNaloga = ZFVrstaNaloga.IDVrNaloga) ON FinGKG.IDFirma = AKTIV.firma " & _ "GROUP BY OpIzvorSredstava.IDVrstaNaloga, AKTIV.IDOrgJed, OpIzvorSredstava.IDFirma, OpIzvorSredstava.IDPeriod, [BrNalogaZadnji]+1, Now(), 0;" Set ngu = CurrentDb().OpenRecordset(ng) Set NGUpis = CurrentDb().OpenRecordset("FinGKG") With NGUpis .AddNew !IDNalog = ngu!nalog !IDVrstaNaloga = ngu!IDVrstaNaloga !IDOrg = ngu!IDOrgJed !IDFirma = ngu!IDFirma !IDPeriod = ngu!IDPeriod !BrNaloga = ngu!BrNaloga !Datum = ngu!Datum DoCmd.RunSQL "UPDATE ZFVrstaNaloga SET ZFVrstaNaloga.BrNalogaZadnji = " & ngu!BrNaloga & " WHERE ZFVrstaNaloga.IDFirma=" & ngu!IDFirma & " AND ZFVrstaNaloga.IDVrNaloga=" & ngu!IDVrstaNaloga & " AND ZFVrstaNaloga.IDPeriod=" & ngu!IDPeriod & ";" .Update .Close End With 'KOLIKO CE REDOVA BITI UPISANO PRILIKOM KNJIZENJA RBC = "SELECT Count(ZFSemaD.ID) AS BROJ FROM OpIzvorSredstava INNER JOIN ZFSemaD ON OpIzvorSredstava.sema = ZFSemaD.IDSema;" Set RbCount = CurrentDb().OpenRecordset(RBC) 'Nazive polja treba ovdje uzimati i upisiviti u SD 'ZAMJENA POLJA U QUERIJU Polja = "SELECT ZFSemaD.ID, ZFSemaD.IDKonto, OpIzvorSredstava.IDVrstaNaloga, OpIzvorSredstava.IDIzvoraSredstava, ZFSemaD.Polje FROM OpIzvorSredstava INNER JOIN ZFSemaD ON OpIzvorSredstava.sema = ZFSemaD.IDSema GROUP BY ZFSemaD.ID, ZFSemaD.IDKonto, OpIzvorSredstava.IDVrstaNaloga, OpIzvorSredstava.IDIzvoraSredstava, ZFSemaD.Polje;" Set PUPIS = CurrentDb().OpenRecordset(Polja) 'SD1 JE DIO CODA KOJI CE SE KORISTITI U PETLJI UPISA I VEZE SE SA SD MA POCETKU sd = "SELECT OpIzvorSredstava.IDOrgJedIzvor, ZFSemaD.IDKonto, OpIzvorSredstava.IDValuta, OpIzvorSredstava.kurs, IIf([ZFSemaD]![PrenosSubAnal]=True,[OpIzvorSredstava]![IDkom]) AS Komit, OpIzvorSredstava.Datum, IIf([ZFSemaD]![DP]='D'," & PUPIS!Polja & ",0) AS Dug, IIf([ZFSemaD]![DP]='P'," & PUPIS!Polja & ",0) AS Pot, OpIzvorSredstava.Opis, OpIzvorSredstava.IDIzvoraSredstava " sd1 = "FROM OpIzvorSredstava INNER JOIN ZFSemaD ON OpIzvorSredstava.sema = ZFSemaD.IDSema " sd1 = sd1 & "GROUP BY OpIzvorSredstava.IDOrgJedIzvor, ZFSemaD.IDKonto, OpIzvorSredstava.IDValuta, OpIzvorSredstava.kurs, IIf([ZFSemaD]![PrenosSubAnal]=True,[OpIzvorSredstava]![IDkom]), OpIzvorSredstava.Datum, IIf([ZFSemaD]![DP]='D'," & PUPIS!Polja & ",0), IIf([ZFSemaD]![DP]='P'," & PUPIS!Polja & ",0), OpIzvorSredstava.Opis, OpIzvorSredstava.IDIzvoraSredstava;" sd = sd & sd1 i = 0 Set SDUpis = CurrentDb().OpenRecordset(sd) Set rs = CurrentDb().OpenRecordset("FINGKS", dbOpenDynaset, dbSeeChanges) With rs SDUpis.MoveFirst Do While Not SDUpis.EOF .AddNew i = i + 1 Forms!f!T = SDUpis !Knjizenje = i !IDNalog = ngu!nalog !IDVrstaNaloga = ngu!IDVrstaNaloga !IDOrg = SDUpis!IDOrgJedIzvor !IDKonto = SDUpis!IDKonto !IDValuta = SDUpis!IDValuta !IDKom = SDUpis!KOMit !IDFirma = ngu!IDFirma !Datum = SDUpis!Datum !IDPeriod = ngu!IDPeriod !Dug = SDUpis!Dug !Pot = SDUpis!Pot .Update SDUpis.MoveNext Loop End With End If End If |
kenan | 26.05.2015 16:30 |
---|---|
Predmet:Re: Petlja problem GREŠKA IPAK NE RADI DIO ZA PROMJENU POLJA IMAL KO KAKVU IDEJU UVJEK UZIMA ISTO |
Gjoreski | 27.05.2015 23:12 |
---|---|
Predmet:Re: Petlja problem Ma znam ja sto oce on da uradi. Kod nas u gradu ima jedna firma koja ima jedan DOS program za knigovodstvo u kome sami korisnici su mogli kreirati neke izvestae ,e sad u cemu je bila fora. Ja poznajem taj programer koj sve to uradio i pitao sam ga kako je toj to uradio a on mi rekao. To je samo opticka varka za korisnici.Kaze ja sam uradio jednu tabelu koja na podizajne te forme se puni sa podatke od razlicite finkcije i u ta tabela se nalaze sve podatke sa koi moze raditi korisnik. Uradio e isto i nekoliko funkcije u koi korisnik moze sabirati grupirati,deliti podatke i funkcije za raspored izvestaja. Isto je uradio i tabela u koja se sve te parametre se upise u funkcija sa koja moze prikazivati izvestaj na osnovu parametri koi e zadao korisnik u parametarske tabele. Bilo e super resenie za taj period (95-98 godine ) kada jos nisu bili sa zakonom doneti pravila za kompjuterske obrasci. Ova firma sad jos ima taj program ali su uradiri i novi program u C# i Sql server koi e kopija na ovaj dosovski i u novi su stavili nesto slicno samo sto u novi koriste funkcije koi mogu kreirati stored procedure na serveru ,i ovde to su uradili na isti nacin da podatke se vuku od jednom tabelu. Zato ti kazem prvo moras uraditi plan sta oces da uradis, koi sve rezultate mozes dobiti i onda mozes se baciti na poslu. Kad sve ovo pripremis bice ti lakse da to uradis a i za nama je lakse da ti pomognemo u realizacije proekta. Nemozes to uraditi sa jedan if then uslov.ako resis da radis to mi smo tu za pomos.srecno |
Gjoreski | 04.06.2015 19:11 |
---|---|
Predmet:Re: Petlja problem Sto bidna so ova ili operacijata e odlozena? |
zxz | 04.06.2015 21:05 |
---|---|
Predmet:Re: Petlja problem Izgleda odustao a nije trebao. |
Avko | 04.06.2015 21:46 |
---|---|
Predmet:Re: Petlja problem post za postom pitanje za pitanjem, kao da je ovo teach support in real time, pa treba sacekati mozda dan dva i mogao bar staviti u skript vb kod pa da to necemu slici doci ce sutra kad se malo odmori |
Gjoreski | 05.06.2015 10:08 |
---|---|
Predmet:Re: Petlja problem Kaj nas vikaat: TOA STO MOZES DA GO NAPRAVIS DENES NE OSTAVAJ GO ZA UTRE. |
kenan | 08.06.2015 13:23 |
---|---|
Predmet:Re: Petlja problem hvala svima na trudu nisam odustao nego sam rješio jednostavnije, ono što sam zamislio je bilo kompikovano mada ideja i dalje živi za nekad kasnije |