<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
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()
Set Sl_Zavrsna = Baza.OpenRecordset("tblCijenaKostanja", dbOpenDynaset)

Set Baza = CurrentDb

ID = Me.IDStroja
CKmat = Me.MatIznos
VTPZ = Me.TPZ
VTI = Me.TI

R = MsgBox("Upisat u vrijednost pozicije", vbYesNo + vbExclamation + vbApplicationModal + vbDefaultButton2)
If vbOK Then
           With Sl_Zavrsna
                .AddNew
            ![ID] = ID
            ![Materija