'------------------------------------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
                MsgBox "Greška poziva" & vbCr & "Br:" & Err.Number, vbExclamation + vbOKOnly + _
                vbDefaultButton1, "Greska!!!"