kenan | 24.05.2015 18:39 |
---|---|
Predmet:Petlja problem ako neko može da mi pomogne nikako da sredim petlju probao sam i sa for next petljom ali mi nikako ne ide poenta je da podatke koje dobijem u recordsetu SDUpis pojedinačno upiÅ¡em u drugu tabelu, kako god probam napravi dovoljan broj redova ali iskopira prvi red a ostale zanemari. namjerno neču da koristim INSERT INTO iz razloga sto određena polje u SDUpis hoču da umećem kako ja hoču namjerno sam skratio petlju jer sam se pogubio koliko sam kombinovo usput ovo bi trebala biti knjiženje prema knjigovodstvenim Å emama Ako neko ima već gotovo rjeÅ¡enje neču odbiti If zxzBox("Da li želite prebaciti podatke u finansisko knjigovodstvo prema zadanim modelima knjiženja?", vbYesNo, "FinPos") = 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 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',[ZFSemaD]![Polje],0) AS Dug, IIf([ZFSemaD]![DP]='P',[ZFSemaD]![Polje],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',[ZFSemaD]![Polje],0), IIf([ZFSemaD]![DP]='P',[ZFSemaD]![Polje],0), OpIzvorSredstava.Opis, OpIzvorSredstava.IDIzvoraSredstava;" sd = sd & sd1 i = 0 Set sdupis = CurrentDb().OpenRecordset(sd) Set rs = CurrentDb().OpenRecordset("FINGKS", dbOpenDynaset, dbSeeChanges) With rs .AddNew i = i + 1 Forms!f!T = sd !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 .Update End With End If End If End Sub |
Gjoreski | 25.05.2015 13:11 |
---|---|
Predmet:Re: Petlja problem evo tvoja petlja bi trebalo nesto ovako izgledati mada mislim da si puno komplikovao u ovo bolje da nam opises sat treba se uraditi iz koj recordset sta se uzima i gde treba se to staviti pa da se odradi cela procedura. Koliko ja vidim ti oces podatke iz dva recordseta da ih stavis u jedu petlju, a to nije lako odraditi zbog to sta mi moramo imati vise kriterija. Ovako kako si ti postavio mozes upisati samo jedan recird odnosno jedan red. Ako nije ti tesko zakaci primer pa resicemo to. PreuzmiIzvorni kôd (Visual Basic):
|
Gjoreski | 26.05.2015 19:20 |
---|---|
Predmet:Re: Petlja problem Citiraj kenan: GREÅ KA Moze da zakacis primer pa da vidime ili da opisis podetalno sto sve treba da raboti ovaj cod pa da go sredime. |
kenan | 26.05.2015 21:08 |
---|---|
Predmet:Re: Petlja problem pogrešno sam se izrazio tvoj dio koda sto si mi posla radi perfektno i brzo ali ja sam se krenuo igrati na djelu qurija 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 opet isti problem uzima mi prvi zapis a trebao bi da mjenja polja e sad ide tvoja bojazan ukonponovat dvije petlje |
kenan | 26.05.2015 21:29 |
---|---|
Predmet:Re: Petlja problem evo i primjer ima mnogo funkcija koje nerade generalno IzvorSredstavaPregled forma je u kojoj se izvršava funkcija |
|
Prilozi: primjer.rar (Velicina datoteke:202.68 KB) |
Gjoreski | 26.05.2015 21:52 |
---|---|
Predmet:Re: Petlja problem Kenan ja ne mogu ovako da pomognem . Koliko vidim ova e program za knigovodze ali ja se od ovome nista ne razumem ( za mene ovo je Spansko selo) Reci mi koi del tebe ovde ne radi i sta treba toj del da radi? |
kenan | 27.05.2015 18:22 |
---|---|
Predmet:Re: Petlja problem zna li ko može li ovo raditi select IIf([ZFSemaD]![DP]='P';(SELECT stvarninazivpolja from zfpolja);0) as pot from ZFSemaD na netu nepostoji ništa na ovu temu |
Gjoreski | 27.05.2015 18:55 |
---|---|
Predmet:Re: Petlja problem Ova vo nikoj slucaj ne moze da funkcionira ova nema nikakva logika. |
Gjoreski | 27.05.2015 19:05 |
---|---|
Predmet:Re: Petlja problem Koliko vidim ja ti oces da napravis da korisnik moze sam pisti queryja ali to nije lako napraviti. Ako vec oces da to napravis onda prvo sta treba ispitati koi sve kombinacije ulaze u igri i onda na osnovu to napraviti sablon za SQL koj bi popunio korisnik i taj SQL zapisti u neku tablicu. Ali treba da znas da korisnici programa ni su programeri. |
kenan | 27.05.2015 19:24 |
---|---|
Predmet:Re: Petlja problem ovo je jedino sto sam našao 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) ) |