Prikazi cijelu temu
25.11.2015 17:39
25.11.2015 17:39
Predmet:Re: prikaz stanja
Da.
Nije dobro sem ako ne radis sa bar kodom i sa combo ili list boxom jer tada se mozes limitirati na listu.
U tvom slucaju koliko vidim ti si predvidio da se moze ukucati bilo sta pa nije dobro otvoriti unaprijed rekord ako neznas jeli to valjano.
problem je sto ti u subformi i nemaspolja za sifru ili bar kod odnosno vrijednosti koju ukucavas u polje proizvod pa se poslije i nemoze razaznati koji je taj proizvod u subformi.
evo tio ova procedura za stanje odredjenog artikla. malo je jednostavnija od onoga tvoga i netreba ti niti jedan query.
Da.
Nije dobro sem ako ne radis sa bar kodom i sa combo ili list boxom jer tada se mozes limitirati na listu.
U tvom slucaju koliko vidim ti si predvidio da se moze ukucati bilo sta pa nije dobro otvoriti unaprijed rekord ako neznas jeli to valjano.
problem je sto ti u subformi i nemaspolja za sifru ili bar kod odnosno vrijednosti koju ukucavas u polje proizvod pa se poslije i nemoze razaznati koji je taj proizvod u subformi.
evo tio ova procedura za stanje odredjenog artikla. malo je jednostavnija od onoga tvoga i netreba ti niti jedan query.
PreuzmiIzvorni kôd (Visual Basic):
- Function StanjeP(SifraP As String)
- Dim Db As Database
- Dim Rs As Recordset
- Dim SQL As String
- Dim Ulaz As Single, Izlaz As Single
- Set Db = CurrentDb
- SQL = "SELECT Sum(detalji.kulaz) AS UlazS, Sum(detalji.kizlaz) AS IzlazS " _
- & "FROM detalji " _
- & "WHERE proizvod='" & SifraP & "'"
- Set Rs = Db.OpenRecordset(SQL)
- If Rs.RecordCount > 0 Then
- Ulaz = Nz(Rs.Fields(0), 0)
- Izlaz = Nz(Rs.Fields(1), 0)
- StanjeP = Ulaz - Izlaz
- Else
- StanjeP = 0
- End If
- End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.