<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 />
Dim OutputF As String
Dim SQL As String
Dim QDF As QueryDef
Dim Db As Database
Dim ImeFajla As String

Set Db = CurrentDb
Set QDF = Db.QueryDefs("QExport")
SQL = Me.RecordSource
QDF.SQL = SQL
ImeFajla = Format(Date, "yyyyMMdd") & ".xls"
OutputF = FindDatabase(CurrentProject.Path, ImeFa