Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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)