Prikazi cijelu temu 24.11.2011 12:56
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Pomoć oko procedure
Imam formu sa subformom koja služi za ispisivanje otpremnice. Da bih izbjegao mogućnost upisa količine koja je veća od stanja na skladiÅ¡tu u subformi na Text Box Quantity na onExit dodao sam proceduru koja provjerava stanje i upozorava ako je upisano stanje veće od stanja na skladiÅ¡tu.

S obzirom da u mom slučaju artikli sa istom Å¡ifrom mogu fizički biti na dva različita skladiÅ¡ta dodao sam i mogućnost da se provjeri da li ista Å¡ifra postoji i na drugom skladiÅ¡tu te da me obavijesti o tome. Ovo radi ako Å¡ifra postoji, ali ako je nema na drugom skladiÅ¡tu tada se javlja poruka ' INVALID USE OF NULL'

Problem je dio:
stanje_na_drugom_skladistu = DLookup("[Stanje]", "[Q_Stanje]", _
"[Skladiste] Not Like forms![frmOtpremnica].[Skladiste] And [sifra] = forms![frmOtpremnica]![frmOtpremnicaSub].form!Sifra")

Molim pomoć kako da ovo zaobiđem.
Hvala

PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Quantity_Exit(Cancel As Integer)
  2. On Error GoTo Err_Quantity_Exit
  3.  
  4. Dim stanje_na_skladistu As Integer
  5. Dim Kolicina As String
  6. Dim stanje_na_drugom_skladistu As Integer
  7.  
  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. stanje_na_drugom_skladistu = DLookup("[Stanje]", "[Q_Stanje]", _
  14. "[Skladiste] Not Like forms![frmOtpremnica].[Skladiste] And [sifra] = forms![frmOtpremnica]![frmOtpremnicaSub].form!Sifra")
  15.  
  16. If (stanje_na_skladistu < Me.Kolicina) Then    'Provjera
  17.  
  18. MsgBox "Upisali ste koli inu koja je vea od zalihe!" _
  19. & vbCrLf & " " _
  20. & vbCrLf & "Na stanju ima " _
  21. & stanje_na_skladistu _
  22. & vbCrLf & " " _
  23. & vbCrLf & "Ali na drugom skladištu ima " _
  24. & stanje_na_drugom_skladistu _
  25. & " " & Kolicina, , "Prevelika koli ina!" 'Poruka o gresci
  26. 'Me.Sifra.SetFocus
  27. 'Me.Sifra.Text = "" 'Brisanje vrijednosti
  28.  
  29. End If
  30.  
  31. Exit_Quantity_Exit:
  32.     Exit Sub
  33. Err_Quantity_Exit:
  34.     MsgBox Error$
  35.     Resume Exit_Quantity_Exit
  36. End Sub
Pozdrav