Prikazi cijelu temu 24.11.2011 18:09
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Pomoć oko procedure
hehe ti prekopirao moj kod a ja direktno kucao na forumu pa napisao err.nuber
Evo ti samo sam ispravio.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Quantity_Exit(Cancel As Integer)
  2. On Error GoTo Err_Quantity
  3.  
  4. Dim stanje_na_skladistu As Integer
  5. Dim Kolicina As String
  6. Dim stanje_na_drugom_skladistu As Integer
  7. stanje_na_drugom_skladistu = 0
  8. stanje_na_skladistu = DLookup("[Stanje]", "[Q_Stanje]", _
  9. "[Skladiste]=forms![frmOtpremnica].[Skladiste] And [sifra] = forms![frmOtpremnica]![frmOtpremnicaSub].form!Sifra")
  10.  
  11. Kolicina = DLookup("[Mjera]", "[Q_Stanje]", "[sifra] = forms![frmOtpremnica]![frmOtpremnicaSub].form!Sifra")
  12.  
  13. On Error Resume Next
  14. stanje_na_drugom_skladistu = DLookup("[Stanje]", "[Q_Stanje]", _
  15. "[Skladiste] Not Like forms![frmOtpremnica].[Skladiste] And [sifra] = forms![frmOtpremnica]![frmOtpremnicaSub].form!Sifra")
  16.  
  17. If Err.Number = 94 Then
  18. Err.Clear
  19. On Error GoTo 0
  20. stanje_na_drugom_skladistu = 0
  21. ElseIf Err.Number > 0 Then
  22. MsgBox "Nekad druga greska" & Err.Number & vbCr '"Ako je sve OK ovo nece nikad proraditi"
  23. End If
  24. If stanje_na_skladistu < Me.Kolicina And stanje_na_drugom_skladistu > 0 Then   'Provjera
  25.  
  26. MsgBox "Upisali ste koli
  27. inu koja je vea od zalihe!" _
  28. & vbCrLf & " " _
  29. & vbCrLf & "Na stanju ima " _
  30. & stanje_na_skladistu _
  31. & vbCrLf & " " _
  32. & vbCrLf & "Ali na drugom skladištu ima " _
  33. & stanje_na_drugom_skladistu _
  34. & " " & Kolicina, , "Prevelika koli
  35. ina!" 'Poruka o gresci
  36. 'Me.Sifra.SetFocus
  37. 'Me.Sifra.Text = "" 'Brisanje vrijednosti
  38. ElseIf stanje_na_skladistu < Me.Kolicina Then
  39. MsgBox "Upisali ste koli
  40. inu koja je vea od zalihe!" _
  41. & vbCrLf & " " _
  42. & vbCrLf & "Na stanju ima " _
  43. & stanje_na_skladistu _
  44. & vbCrLf & " " _
  45. & vbCrLf & "Ni na drugom skladisštu nema"
  46. End If
  47.  
  48. Exit_Quantity_Exit:
  49.     Exit Sub
  50.    
  51. Err_Quantity:
  52. MsgBox "Greška broj " & Err.Number & vbclrf & Err.Description
  53. 'Err_Quantity_Exit:
  54.    'MsgBox Error$
  55.    Resume Exit_Quantity_Exit
  56. End Sub

Nisam gledao kako si stanje napravio ali bi bilo interesantno sta bi bilo kada imas vise od 2 skladista.
Hehe onda ovo bas nebi islo.
Ako je takvo stanje javi.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.