Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (3):1,2,3

#11 25.11.2015 17:39
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function StanjeP(SifraP As String)
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim SQL As String
  5. Dim Ulaz As Single, Izlaz As Single
  6.  
  7. Set Db = CurrentDb
  8.  
  9. SQL = "SELECT Sum(detalji.kulaz) AS UlazS, Sum(detalji.kizlaz) AS IzlazS " _
  10.     & "FROM detalji " _
  11.     & "WHERE proizvod='" & SifraP & "'"
  12. Set Rs = Db.OpenRecordset(SQL)
  13. If Rs.RecordCount > 0 Then
  14. Ulaz = Nz(Rs.Fields(0), 0)
  15. Izlaz = Nz(Rs.Fields(1), 0)
  16. StanjeP = Ulaz - Izlaz
  17. Else
  18. StanjeP = 0
  19. End If
  20. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#12 25.11.2015 20:14
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:228


Predmet:Re: prikaz stanja
meni je polje proizvod zapravo sifra artikla i barcode
sa F5 imam pretragu,a barcodom unosim direktno na polje proizvoda i to mi dobro funkcionira
↑  ↓

#13 25.11.2015 20:34
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:228


Predmet:Re: prikaz stanja
funkciju StanjeP odakle pozivas
↑  ↓

#14 25.11.2015 20:54
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: prikaz stanja
Poziv na after update polja proizvod.
Tu je najbolje.
Ako stavis na control source kako je bilo nece se izvrsiti.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#15 25.11.2015 21:54
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:228


Predmet:Re: prikaz stanja
kako god da pozovem ovu funkciju sa polja proizvod imam poruku kod kompajliranja invalid use in property
↑  ↓

#16 25.11.2015 22:42
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: prikaz stanja
evo ja sam je isprobao ovdje i sa polje.
Mora biti u nekom modulu procedura.
Private Sub proizvod_AfterUpdate()
Pproizvod = Me.proizvod
Dim Stanje As Single
' Dim st As Integer
'st = Nz(DLookup("SUMA", "QSUMA", "proizvod = '" & Me.proizvod & "'"), 0)
' Me.txtZalihe = st
' Me.txtZalihe.BackColor = 16777215
'If st < Me.kizlaz Then
' Me.txtZalihe.BackColor = 8454143
' MsgBox "Žao nam je ali na stanju imate samo: " & st, vbCritical, "Izaberite drugu količinu"
'
' DoCmd.RunCommand acCmdUndo

' Else
Stanje = StanjeP(proizvod)
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#17 25.11.2015 23:15
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:228


Predmet:Re: prikaz stanja
poslije unosa prvog proizvoda na polju stanje uvijel je error
pokusaj sa F5 unijeti nesto i potvrdi to sa enterom pa IDI NA SLIJEDECI UNOS
↑  ↓

#18 25.11.2015 23:42
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: prikaz stanja
Mislim da se radi o polju sma i da ti je ostalo na control source =StanjeP([Proizvod]).
Control source treba biti prazno na polju u koje se unosi.
Stanje = StanjeP(proizvod)
e sad
me.imepoljazaprikaz stanja=Stanje
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#19 25.11.2015 23:43
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: prikaz stanja
Ako hoces mogu zakaciti tvoj primjer.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#20 25.11.2015 23:55
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:228


Predmet:Re: prikaz stanja
ZAKACI DA VIDIM GDJE LUTAM
HVALA
↑  ↓

Stranice (3):1,2,3

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 2: 27 pm.