Private Sub C_Upisi_Click()
Dim Db As Database
Dim Rs As Recordset
Dim Podatak As Currency
Dim SQL As String
Dim Ident As String
Dim Kom As Integer
Ident = Me.ID
Kom = Quantity()
Set Db = CurrentDb()
Podatak = Me.CK
SQL = "SELECT * FROM tblNalog WHERE ID ='" & ID & "'AND Komada =" & Kom
Set Rs = Db.OpenRecordset(SQL, dbOpenDynaset)
With Rs
If .RecordCount > 0 Then
.MoveFirst
.Edit
!Vrijednost = Podatak
.Update
.MoveNext
End If
End With