BiH



#16 12.01.2016-21:19
kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 190


Subject: Re: Problem sa DMAX
Ustvari radim na jednom izvještaju od tridesetak strana kucanog materijala gdje se podatci uzimaju buklano za svako polje iz funcije zato pitam

primjer jednog polja

="1.1. Ostvareni ukupan prihod u obračunskom periodu " & [godina] & ". godini, iznosi: " & AnalizaBU1() & ", što je u odnosu na isti period prethodne godine, " & AnalizaBU3() & " za " & Format(IIf(AnalizaBU1()-AnalizaBU2()>0;AnalizaBU1()-AnalizaBU2();AnalizaBU2()-Analiz
aBU1());'#.#00,00" KM"') & " ili " & FormatPercent(IIf(AnalizaBU1()/AnalizaBU2()-1>0;AnalizaBU1()/AnalizaBU2()-1;-(AnalizaBU1()/AnalizaBU2()-1));2) & "."
↑  ↓

#17 12.01.2016-21:39
kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 190


Subject: Re: Problem sa DMAX
AKO SAM DOBRO SKONTAO PROCEDURU AKO BIH OVO STAVIO FIKSNO Optional Red As Integer = 2 ONDA BIH MOGAO POZIVATI IZ POLJA =iznos() i olaksao bih i vama da se nemucite samnom
↑  ↓

#18 12.01.2016-21:55
kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 190


Subject: Re: Problem sa DMAX
ja ipak odradio po svom i radi mi super

Function AnalizaBU11(Optional Red As Integer = 2, Optional Konto As String = "6%")
'---------------------------------------------
-------------
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim SQL As String
Dim I As Integer

SQL = "SELECT top " & Red & " Sum([duguje]-[potrazuje]) AS Iznos, Left([stavgk]![konto],3) AS Sink " _
& "FROM AKTIV INNER JOIN stavgk ON (AKTIV.ObracinskiPeriod = stavgk.ObracinskiPeriod) AND (AKTIV.godina = stavgk.period) AND (AKTIV.firma = stavgk.firmaID) " _
& "WHERE Left([stavgk]![konto],3) ALike '" & Konto & "'" _
& " GROUP BY Left(konto,3) " _
& "HAVING Sum([duguje]-[potrazuje])<0 " _
& "ORDER BY Sum([duguje]-[potrazuje])"

Set Db = CurrentDb()
Set Rs = Db.OpenRecordset(SQL)
For I = 1 To Red
Konto = Rs!sink
Rs.MoveNext
Next I
SQL = "SELECT top " & Red & " Sum([duguje]-[potrazuje]) AS Iznos, Left([stavgk]![konto],3) AS Sink " _
& "FROM AKTIV INNER JOIN stavgk ON (AKTIV.ObracinskiPeriod = stavgk.ObracinskiPeriod) AND (AKTIV.godina = stavgk.period) AND (AKTIV.firma = stavgk.firmaID) " _
& "WHERE Left([stavgk]![konto],3) ALike '" & Konto & "'" _
& " GROUP BY Left(konto,3) " _
& "HAVING Sum([duguje]-[potrazuje])<0"
Set BU11 = Db.OpenRecordset(SQL)
AnalizaBU11 = BU11!Iznos
End Function
↑  ↓

#19 12.01.2016-21:56
kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 190


Subject: Re: Problem sa DMAX
hvala na angažmanu rješenje možda izgleda glomazno ali je ustvari vrlo jednostavno
↑  ↓

#20 12.01.2016-22:02
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 10,011


Subject: Re: Problem sa DMAX
Ako hoces samo iznos onda mozes skratiti proceduru.
Function AnalizaBU11(Optional Red As Integer = 2, Optional Konto As String = "6%")
'---------------------------------------------

-------------
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim SQL As String
Dim I As Intege
Dim Iznos as Currency

SQL = "SELECT top " & Red & " Sum([duguje]-[potrazuje]) AS Iznos, Left([stavgk]![konto],3) AS Sink " _
& "FROM AKTIV INNER JOIN stavgk ON (AKTIV.ObracinskiPeriod = stavgk.ObracinskiPeriod) AND (AKTIV.godina = stavgk.period) AND (AKTIV.firma = stavgk.firmaID) " _
& "WHERE Left([stavgk]![konto],3) ALike '" & Konto & "'" _
& " GROUP BY Left(konto,3) " _
& "HAVING Sum([duguje]-[potrazuje])<0 " _
& "ORDER BY Sum([duguje]-[potrazuje])"

Set Db = CurrentDb()
Set Rs = Db.OpenRecordset(SQL)
For I = 1 To Red
Iznos = Rs!Iznos
Rs.MoveNext
Next I
AnalizaBU11 =Iznos
End Function
Pozdrav
↑  ↓

Stranice (2): 1, 2


All times are GMT +01:00. Current time: 24.01.2020-02:29.