Prikazi cijelu temu 29.08.2012 10:59
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Lokacija:Knjazevac


Predmet:Re: Knjiga dnevnog prometa (Knjiga Å¡anka)
Evo i funkcije koja pronalazi stanje artikla na prethodnom popisu, trbace nam

PreuzmiIzvorni kôd (vbnet):
  1. Public Function PrethodniPopis (Art As Integer, Pop As Integer) As Integer
  2. On Error Resume Next
  3.  
  4. Dim SQLString As String
  5. Dim baza As Database
  6. Dim Skup As Recordset
  7.  
  8.  
  9. Set baza = CurrentDb
  10.  
  11. SQLString = "SELECT Kolicina FROM StavkePopisa WHERE PopisID=" & (Pop-1) & " AND ArtiklID=" & Art & ";"
  12. Set Skup = baza.OpenRecordset(SQLString)
  13.  
  14. if isnull(Skup.fields(0)) then
  15.         PrethodniPopis=0
  16. else
  17.         PrethodniPopis=Skup.fields(0)
  18. end if
  19.  
  20. Skup.Close
  21. Set baza = Nothing
  22.  
  23. End Function

mozemo je koristiti na formi, a jos bolje u queriju da bi nasli razliku izmedju dva popisa. Imena polja naravno mozemo promeniti, onako kako ih utanacimo.