Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function BrojRac(Prefix As String) Dim db As Database Dim SQL As String Dim rs As Recordset Dim i As Integer Set db = CurrentDb SQL = "SELECT Max(Left([OrderID],1)) FROM tblProdaja WHERE Mid(OrderID,3,4)= '" & Prefix & "'" Set rs = db.OpenRecordset(SQL) If F