Predmet:Re: Provjera podatka kod upisa u tablicu

---

E sad da prepravimo tvoj kod:
Dim Baza As Database

Dim Sl_Zavrsna As Recordset
Dim R
Dim ID As String
Dim CKmat As Double
Dim VTPZ As Double
Dim VTI As Double
Dim Cijena As Double

Set Baza = CurrentDb()
ID = Me.IDStroja
CKmat = Me.MatIznos
VTPZ = Me.TPZ
VTI = Me.TI
Set Sl_Zavrsna = Baza.OpenRecordset("SELECT * FROM tblCijenaKostanja WHERE IdStroja='"& ID & "'", dbOpenDynaset)
If sl_Zavrsna.recordcount=0 then
'znaci nema ga u bazi sa ovim id
'Provjeri u SQL-u iznad ime polja id stroja
R = MsgBox("Upisat u vrijednost pozicije", vbYesNo + vbExclamation + vbApplicationModal + vbDefaultButton2)
'Pod uslovom da se msg pojavljuje samo ako nema id u bazi
endif
If vbOK Then
With Sl_Zavrsna
.AddNew
![ID] = ID
![Materijal] = CKmat
![TI] = VTI
![TPZ] = VTPZ
.Update
End With
Kraj:
Set Baza = Nothing
End If

---