Gjoreski 07.12.2012 17:35
Predmet:Re: Reden broj vo Queri

probav i vaka i so ova ne uspeav
PreuzmiIzvorni kôd (Visual Basic):
  1. Function RedenBroj(Baraj As String) As Integer
  2. On Error Resume Next
  3. Dim db As dao.Database, rs As dao.Recordset
  4.  
  5. Set db = CurrentDb
  6. Set rs = db.OpenRecordset("tblET_Promena_Cena_Kasa_Rb", dbOpenDynaset, dbReadOnly)
  7.  
  8. With rs
  9.  
  10. .FindFirst ("[Data] = " & CStr(DLookup("[Data]", "tblET_Promena_Cena_Kasa_Rb", "[Data] = " & "' & Baraj &'")))
  11.   RedenBroj = .AbsolutePosition + 1
  12.  
  13. End With
  14.  
  15. rs.Close
  16.   Set rs = Nothing
  17.   Set db = Nothing
  18.  
  19. End Function

zxz 07.12.2012 20:05
Predmet:Re: Reden broj vo Queri

Tesko mogu da te razumijem sta zelis da izvedes jer je poprilicno komplikovano i mislim da moze prostije.
Koliko sam razumio ti hoces redne projeve po datumima.
Opet mozes iskoristiti onaj moj Query samo imjesto polja id_Smetka uzmes datum.
Ali po mome netreba ti nikako jer pravis izvjestaj od toga a u izvjestaju mozes grupirati po datumu i napraviti redni broj.

dali sam ta dobro razumio.
Nisam ja pratio temu od pocetka pa neko ko jeste mozda da mi jos pojasni.

Gjoreski 07.12.2012 20:30
Predmet:Re: Reden broj vo Queri

eve go prepraviv tvoeto query sega da go testiram malku da vidam sto ke bide
PreuzmiIzvorni kôd (Visual Basic):
  1. SELECT 1+(SELECT Count(Data)  FROM qryET_Promena_Cena_Kasa_Sum AS R WHERE qryET_Promena_Cena_Kasa_Sum.Data>R.Data ) AS RedniB, qryET_Promena_Cena_Kasa_Sum.Data, qryET_Promena_Cena_Kasa_Sum.VkSoDDV
  2. FROM tblSmetki RIGHT JOIN qryET_Promena_Cena_Kasa_Sum ON tblSmetki.Data = qryET_Promena_Cena_Kasa_Sum.Data;

Gjoreski 07.12.2012 22:20
Predmet:Re: Reden broj vo Queri

ova vaka sega zasega dobro funkcionira no nesto ne mi e jasno ovde
imam uste edno slicno queri na ova prethodnovo e sega :
PreuzmiIzvorni kôd (Visual Basic):
  1. SELECT 1+(SELECT Count(Data)  FROM qryET_Promena_Cena_Izlez_Sum AS R WHERE qryET_Promena_Cena_Izlez_Sum.Data>R.Data ) AS Broj_Dokument, qryET_Promena_Cena_Izlez_Sum.Data, qryET_Promena_Cena_Izlez_Sum.VkSoDDV
  2. FROM qryET_Promena_Cena_Izlez_Sum LEFT JOIN tblDati ON qryET_Promena_Cena_Izlez_Sum.Data = tblDati.DataPocetok;
za da funkcioniraat kako sto sakam jas ovie querija treba da imaat
1to query
[color=#FF0033]RIGHT JOIN qryET_Promena_Cena_Kasa_Sum ON tblSmetki.Data = qryET_Promena_Cena_Kasa_Sum.Data[/color];
2to query
[color=#FF0033]LEFT JOIN tblDati ON qryET_Promena_Cena_Izlez_Sum.Data = tblDati.DataPocetok;[/color]
neznam koja e ulogata i dali ova moze da se odstrani da ne se vo relacija so drugi tabeli

dex 08.12.2012 23:30
Predmet:Re: Reden broj vo Queri

Ovo funkcionise ali veoma sporo.
Ako ti je redni broj potreban samo za izvestaj jednostavnije ti je da na izvestaju postavis textbox.
U control source postavi =1
i postavi Running sum na over all (ili over group, kako ti vec treba)
Prilozi:
Access Application Dex.zip (Velicina datoteke:1.39 MB)

Gjoreski 14.11.2016 16:27
Predmet:Re: Reden broj vo Queri

Povtorno jas so moive redni broevi.
Sega pak zapnav na isto mesto.
Imam union queri koe sobira podatoci od poveke querija e sega mi treba da napravam novo queru koe ke cita podatoci od unuon queryto i ke stavi reden broj vo novoto query.
PreuzmiIzvorni kôd (Visual Basic):
  1. SELECT Data,Broj_Dokument, Dokument,VkNabSoDDV,VkSoDDV,DnFisIz
  2. FROM  qryET_PLT
  3. UNION SELECT
  4.              Data,Broj_Dokument, Dokument,VkNabSoDDV,VkSoDDV,DnFisIz
  5. FROM qryET_DFI
  6. UNION SELECT
  7.              Data,Broj_Dokument, Dokument,VkNabSoDDV,VkSoDDV,Vkupno
  8. FROM qryET_Fakturi
  9. UNION SELECT
  10.              Data,Broj_Dokument, Dokument,VkNabSoDDV,VkSoDDV,DnFisIz
  11. FROM qryET_Promena_Cena
  12. UNION SELECT
  13.              Data,Broj_Dokument, Dokument,VkNabSoDDV,VkSoDDV,DnFisIz
  14. FROM qryET_Promena_Cena_Izlez_Prikaz
  15. UNION SELECT
  16.              Data,Broj_Dokument, Dokument,VkNabSoDDV,VkSoDDV,DnFisIz
  17. FROM qryET_Promena_Cena_Kasa_Prikaz;

novoto query ET_Prikaz treba da bide
RB,Data,Broj_Dokument,VkNabSoDDV,VkSoDDV,DnFisIz

dex 14.11.2016 18:37
Predmet:Re: Reden broj vo Queri

Pogledaj

http://www.elitesecurity.org/t477014-0#3455695

Gjoreski 14.11.2016 21:19
Predmet:Re: Reden broj vo Queri

Fala @Dexxxl no ovi primeri ne rade kod mene.
Problem je u to sto koristim podatke od vise tabela koi pre spajajne u UNI query obrade se na osnovu neki kriteium.
Problem e i to sto nema nikakav ID a podatke Data,Broj_Dokumen i Dokument mogu sadrzati jedna vrednost vise puta.
Da bi bilo ovo SQLServer lako bi resio ali kod accesa je malo teze.

Neznam malo razmisljam oko pravlejne neka funkcija koja bi prikupila sve podatke iz ovih tabela i bi stavio u neka temp tabala ,podredio bi podatke kako meni trebaju i prbacio u druga tabela tako podredeni i sa redan broj . Izvestaj bi pravio na osnovu ova tabela.

Ako bi nasao neko resejne da resim ovo ovako kako sta je da ne mejnem puno stvari bi mi zastedio vreme i posla.

zxz 14.11.2016 22:24
Predmet:Re: Reden broj vo Queri

Ja to radim tako sto napravim temp.mdb u njoj kodom kreiram potrebnu tabelu te prebacim podatke napravim link (link i nemoras kodom praviti) i onda pravim izvjestaj na osnovu ovih podataka.
Mogu ti reci da radi veoma brzo.
Mnogo brze od union Query.
Imam negdje i primjer toga pa ako treba mogu nakaciti.