KOL = DLookup("ArtKolIzlaz", "tblArtikli", "ArtSif='" & Me.SIFART & "'") If IsNull(KOL) Then KOL = 0 End If KOLNOV = KOL - Me.KOLICINA DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE tblArtikli SET ArtKolIzlaz='" & KOLNOV & "' WHERE ArtSif='" & Me.SIFART & "'" DoCmd.SetWarnings True