<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 />
'------------------------------------Nain otvaranja forme-----------------------------------------------
    Select Case Grupa
        Case 1 'Forma samo za upis Nevidi heder forme
                Set Frm = Forms(ImeO)
                Frm.FormHeader.Visible = False
                With Frm
                 .RecordSelectors = False
                 .NavigationButtons = True
                 .VrstaPID.Visible = False
                 .DataEntry = True
                End With
                Frm.Picture = "(none)"
                Frm.InsideHeight = Frm.Detail.Height
                Frm.FormFooter.Height = 10
                Frm.FormHeader.Height = 0
                Frm.Detail.BackColor = 14737890
                Frm.ScrollBars = 0
                DoCmd.MoveSize 2880, 0
       Case 2 'Ispravke
                Set Frm = Forms(ImeO)
                Frm.Picture = "(none)"
                Frm.InsideHeight = Frm.Detail.Height + Frm.FormFooter.Height + Frm.FormHeader.Height + 10
                Frm.FormHeader.BackColor = 12632256
                Frm.Detail.BackColor = 11916754 '14737890
                Frm.FormHeader.Visible = True
                Frm.FormFooter.BackColor = 12632256
                With Frm
                 .DataEntry = False
                 .AllowDeletions = False
                 .AllowEdits = True
                 .AllowAdditions = False
                 .RecordSelectors = False
                 .NavigationButtons = True
                End With
        Case 3 'Pregledi
               Set Frm = Forms(ImeO)
                Frm.Picture = "(none)"
                Frm.FormHeader.Visible = True
                Frm.FormHeader.BackColor = 12632256
                Frm.Detail.BackColor = 11916754
                Frm.InsideHeight = Frm.InsideHeight + 500
                With Frm
                 .DataEntry = False
                 .AllowDeletions = False
                 .AllowEdits = False
                 .RecordSelectors = False
                 .NavigationButtons = True
                End With
            Case 4 'Ništa

                
            Case 5 'Ništa

            Case 6 '
               Set Frm = Forms(ImeO)
                Frm.FormHeader.BackColor = 11978164
                Frm.Detail.BackColor = 11916754
                Frm.FormFooter.BackColor = 11978164
                DoCmd.OpenForm ImeO, , , , , acDialog
                DoCmd.MoveSize 3100, 0
                Set Frm = Nothing
            Case Else