"problem je što mi se podaci u reportu ne sortiraju u zadanom kriteriju ,nego su uvijek sortirani po rednom broju".
Imam dvije tablice.Jedna je sifrarnik a druga baza!Napravio sam query koji ih objedinjuje i dobiva podatkee za izvještaj.
quyery izgleda ovako:
naziv"qdf_obracun"
SELECT Amortizacija.*, komitenti.Oznaka_konta, Amortizacija.upotreba, komitenti.Akumulacija
FROM komitenti LEFT JOIN Amortizacija ON komitenti.rb = Amortizacija.Konto
WHERE ((Amortizacija.upotreba)=[Yes] OR (Amortizacija.upotreba)=[no])
ORDER BY amortizacija.rb DESC;
u formi imam click button kojim pozivam proceduru da izvrši query i otvori report
Function SetReportSQl()
Dim DB As DAO.Database 'ovo ne moze sa ADO, samo sa DAO
Dim qdef As QueryDef
.......
Set qdef = DB.QueryDefs("qdf_obracun")
qdef.sQL = "SELECT Amortizacija.*, komitenti.Oznaka_konta, Amortizacija.upotreba, komitenti.Akumulacija " 'onako kako
qdef.sQL = qdef.sQL & " FROM komitenti LEFT JOIN Amortizacija ON komitenti.rb = Amortizacija.Konto "
qdef.sQL = qdef.sQL & " WHERE ((Amortizacija.upotreba)=" & [tko] & " OR (Amortizacija.upotreba)=" & [odo] & ")"
qdef.sQL = qdef.sQL & " ORDER BY " & gdje & " DESC;"
MsgBox qdef.sQL
DoCmd.OpenReport stDocName, acPreview
......
end function
izbjegao sam na ovaj način global varijable
naziv reporta "stranaA"
Control source za taj report je query "qdf_obracun"
Putem gore navedene procedure to jest upita određujem koja ću sredstva prikazat (koja su u upotrebi ,koja nisu ili sva)-to mi uredno izvršava.
Ali Imam još jedan parametar a to je po čemu ih sortirat
U zadnjoj liniji
qdef.sQL = qdef.sQL & " ORDER BY " & gdje & " DESC;"
određujem po čemu ću sortirat i kako.
Međutim uvijek mi izvrši postavljeni query ali podatke uvijek sortira po rb i to u opadajućem redu
Kako i što napravit da mi taj upit može prikazat podatke na reportu upo redosljedu kojui ću izabrati u formi?????
Da report reagira i na promijenu kriterija sortiranja.