*** na polju proizvoda imam slijedeči kod
i tu provjeravam barkod
***problem je sto mi je stanje proizvoda u query QStanje sa kontrolnim poljem SUMA(stanje proizvoda)
***ideja je zaustaviti unos količine koja je po defaultu =1 ako je SUMA<1 tj ne dozvoliti da stanje ode u minus
*** svaka ideja dobrodošla
unaprijed zahvalan
nevsad ramic
Private Sub proizvod_BeforeUpdate(Cancel As Integer)
Dim rstproizvod As Recordset, strproizvod As String
Set rstproizvod = CurrentDb.OpenRecordset("select * from proizvodi", dbOpenSnapshot)
strproizvod = proizvod
rstproizvod.FindFirst ("proizvod = '" & strproizvod & "'")
If rstproizvod.NoMatch Then
If DLookup("NoviP", "KORISNIK") Then
If Pitanje("Nemate artikl sa tom šifrom!!!Želite li unijeti?") = "Da" Then
DoCmd.OpenForm "proizvodi", acNormal, , , , acDialog, Me.proizvod
Else
Me!proizvod.Undo
Cancel = True
SendKeys "{ESC}{ESC}"
End If
Else
MsgBox ("Nemate artikl sa tom šifrom!!!")
Me!proizvod.Undo
Cancel = True
SendKeys "{ESC}{ESC}"
End If
End If
rstproizvod.Close
End Sub
i tu provjeravam barkod
***problem je sto mi je stanje proizvoda u query QStanje sa kontrolnim poljem SUMA(stanje proizvoda)
***ideja je zaustaviti unos količine koja je po defaultu =1 ako je SUMA<1 tj ne dozvoliti da stanje ode u minus
*** svaka ideja dobrodošla
unaprijed zahvalan
nevsad ramic
Private Sub proizvod_BeforeUpdate(Cancel As Integer)
Dim rstproizvod As Recordset, strproizvod As String
Set rstproizvod = CurrentDb.OpenRecordset("select * from proizvodi", dbOpenSnapshot)
strproizvod = proizvod
rstproizvod.FindFirst ("proizvod = '" & strproizvod & "'")
If rstproizvod.NoMatch Then
If DLookup("NoviP", "KORISNIK") Then
If Pitanje("Nemate artikl sa tom šifrom!!!Želite li unijeti?") = "Da" Then
DoCmd.OpenForm "proizvodi", acNormal, , , , acDialog, Me.proizvod
Else
Me!proizvod.Undo
Cancel = True
SendKeys "{ESC}{ESC}"
End If
Else
MsgBox ("Nemate artikl sa tom šifrom!!!")
Me!proizvod.Undo
Cancel = True
SendKeys "{ESC}{ESC}"
End If
End If
rstproizvod.Close
End Sub