Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function Rekord() Dim Db As Database Dim Rs As Recordset Dim Bok As Integer Dim SQL As String On Error Resume Next Set Db = CurrentDb() Set Rs = Me.RecordsetClone Rs.Bookmark = Me.Bookmark Rs.MovePrevious Bok = Rs!BROJ_OP Set Rs = Nothing If Bok = 0 Then Me.Tag = "" Else SQL = "SELECT komada FROM tblRealizacija WHERE broj_op=" & Bok & " AND Broj=" & Forms![frmEvidencija]![broj] Set Rs = Db.OpenReco