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