<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Private Sub Form_Current()
Dim Db As Database
Dim Rs As Recordset
Dim Sql As String
Dim IDstr As String * 8
Dim IDBroj As Single

Sql = "SELECT Last(PROCES.ID_String) AS LastOfID_String " _
     & "FROM PROCES"

Set Db = CurrentDb
Set Rs = Db.OpenRecordset(Sql)
If Rs.Fields(0) <> "" Then
IDBroj = Val(Rs.Fields(0))
End If
IDBr