Gjoreski 04.12.2012 13:15
Predmet:Reden broj vo Queri

Zdravo
imam edno queri vo koe mi treba da se dodade reden broj za sekoja data se obidov so count funkcijata no ne uspeav.

SELECT Format([DataDok],"Short Date") AS Data, Sum(qryPromena_Cena_Kasa.Razlika) AS VkSoDDV
FROM qryPromena_Cena_Kasa
GROUP BY Format([DataDok],"Short Date");

roko 04.12.2012 15:05
Predmet:Re: Reden broj vo Queri

ja koristim ovu funkciju

Public Function RowNum(frm As Form) As Variant
On Error GoTo Err_RowNum
With frm.RecordsetClone
.Bookmark = frm.Bookmark
RowNum = .AbsolutePosition + 1
End With
Exit_RowNum:
Exit Function

Err_RowNum:
If err.Number <> 3021& Then 'Ignore "No bookmark" at new row.
Debug.Print "RowNum() error " & err.Number & " - " & err.Description
End If
RowNum = Null
Resume Exit_RowNum
End Function

a pozovem je kao unbound row
=RowNum([Form])

pmiroslav 04.12.2012 15:39
Predmet:Re: Reden broj vo Queri

Ako se ovaj tvoj Query zove recimo Query1
napravi drugi Query
SELECT DCount("VkSoDDV","Query1","VkSoDDV<=" & [VkSoDDV]) AS RB, Query1.Data, Query1.VkSoDDV
FROM Query1
ORDER BY DCount("VkSoDDV","Query1","VkSoDDV<=" & [VkSoDDV]);

Gjoreski 04.12.2012 15:43
Predmet:Re: Reden broj vo Queri

Redniot broj mi treba za da generiram reden broj vo query koe posle ke ke bide iskoristeno vo drugo query.
Odnosno mi treba za sekoj datum da mi generira reden broj pocnuvajki od najmaliot datum.
na primer:
Rb Data SumaSoDDV
--------------------------------------------
1 01.01.2012 525.50
2 02.01.2012 100.00
3 09.02.2012 234.00
4 01.10.2012 1234.11

dex 04.12.2012 16:24
Predmet:Re: Reden broj vo Queri

Mozda ovako
Prilozi:
db1.zip (Velicina datoteke:9.14 KB)

Gjoreski 04.12.2012 16:53
Predmet:Re: Reden broj vo Queri

Ova e prvo query
SELECT Format([Data],"Short Date") AS DataDok, tblSmetki_Stavki.Stavka, tblSmetki_Stavki.Kolicina, tblSmetki_Stavki.Ed_Cena, tblSmetki_Stavki.DDV, tblSmetki_Stavki.Posledna_Prod_Cena, [Ed_Cena]-[Posledna_Prod_Cena] AS Razlika, tblSmetki.Magacin
FROM tblSmetki INNER JOIN tblSmetki_Stavki ON tblSmetki.ID_Smetka = tblSmetki_Stavki.Smetka_Br
WHERE ((([Ed_Cena]-[Posledna_Prod_Cena])<>0) AND ((tblSmetki.Magacin)=[Forms]![frmPreglediB]![cboMagacin]) AND ((tblSmetki.Fiskalna)=True) AND ((tblSmetki.Storna)=False) AND ((tblSmetki.Veresija)=False))
ORDER BY Format([Data],"Short Date");

Vtoro

SELECT qryET_Promena_Cena_Kasa.DataDok AS Data, Sum(qryET_Promena_Cena_Kasa.Razlika) AS VkSoDDV
FROM qryET_Promena_Cena_Kasa
GROUP BY qryET_Promena_Cena_Kasa.DataDok
ORDER BY qryET_Promena_Cena_Kasa.DataDok;

i tretoto od promislav

SELECT DCount("VkSoDDV","qryET_Promena_Cena_Kasa_Sum","VkSoDDV<=" & [VkSoDDV]) AS RB, qryET_Promena_Cena_Kasa_Sum.Data, qryET_Promena_Cena_Kasa_Sum.VkSoDDV
FROM qryET_Promena_Cena_Kasa_Sum
ORDER BY DCount("VkSoDDV","qryET_Promena_Cena_Kasa_Sum","VkSoDDV<=" & [VkSoDDV]), qryET_Promena_Cena_Kasa_Sum.Data;

ova vaka funkcionira no de dodeluna broevi po redosled

na primer
1 02.03.2012
10 03.04.2012
2 12.01.1012

kako i da gi sortiram ne ide po redosled
pomagajte luge ova ispadna pokomplicirano od sto mislev

roko 04.12.2012 16:55
Predmet:Re: Reden broj vo Queri

eto s dcount ali ako slažeš na izvještaju ili formi ona funkcija ti je OK
Prilozi:
dbRedniBroj.rar (Velicina datoteke:12.17 KB)

Gjoreski 04.12.2012 17:20
Predmet:Re: Reden broj vo Queri

eve primer
Prilozi:
New Microsoft Office Access Application.rar (Velicina datoteke:819.03 KB)

roko 04.12.2012 18:55
Predmet:Re: Reden broj vo Queri

provaj ovako

SELECT DCount("VkSoDDV","qryET_Promena_Cena_Kasa_Sum","Data<='" & [counter] & "'") AS RB, qryET_Promena_Cena_Kasa_Sum.Data, qryET_Promena_Cena_Kasa_Sum.VkSoDDV, qryET_Promena_Cena_Kasa_Sum.Data AS [counter]
FROM qryET_Promena_Cena_Kasa_Sum
ORDER BY qryET_Promena_Cena_Kasa_Sum.Data;

Gjoreski 04.12.2012 18:59
Predmet:Re: Reden broj vo Queri

Ova mislam deka ke funkcionira aj da vidime sto ke bide