Function Otvori()

Dim ID As Integer
Dim PRMT As Integer
Dim Db As Database
Dim Rs As Recordset
Dim StrSQL As String
Dim Frm As Form
Dim Uslov As Integer
Dim ImeObjekta As String
Dim Tip As Integer
Dim Prava As Integer
Dim Status As Integer
Dim BrojD As String
Dim Prefix As String * 3
Dim Naziv As String

On Error Resume Next

ID = Application.CommandBars.ActionControl.Tag 'Menu properties Tag
PRMT = Application.CommandBars.ActionControl.Parameter 'Menu properties Parametar

On Error GoTo Kraj

Set Db = CurrentDb()
If ID < 1 Then: GoTo Kraj
If PRMT = 1 Then
    StrSQL = "SELECT * FROM tblOperatori WHERE KorisnikID=" _
            & M_Oper.OperID
    Set Rs = Db.OpenRecordset(StrSQL)

        ImeObjekta = "frmPristup"
        Tip = Rs!Sifra
        Prava = Rs!PravaPristupa '1,2,3
        
            If Prava = 1 Then
                StrSQL = "SELECT * FROM tblOperatori"
            ElseIf Prava = 2 Then
                StrSQL = "SELECT * FROM tblOperatori WHERE KorisnikID=" _
                    & M_Oper.OperID
            ElseIf Prava = 3 Then
                 MsgBox "Kao gost" & vbCr & "nemate pravo koristiti ovu formu", vbOKOnly, "Upozorenje!"
                GoTo Kraj
            End If
            
ElseIf PRMT = 2 Then
    StrSQL = "SELECT *  FROM A_MenuLista " _
            & "  WHERE ID=" & ID
    Set Rs = Db.OpenRecordset(StrSQL)
            
        ImeObjekta = Format$(Rs!Ime)
        Tip = Rs!Tip
        Prava = Rs!Grupa '1,2,3
        
            Status = DLookup("[Status]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID)
            Prefix = DLookup("[Prefix]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID)
            Naziv = DLookup("[Dokument]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID)
            BrojD = BrojDokumenta(Prefix)
End If
                        '------- OTVARANJE FORME -------
  Select Case Tip
  
  Case 1
            DoCmd.OpenForm ImeObjekta, , , , , acIcon
            Set Frm = Forms(ImeObjekta)
        
    If PRMT = 1 Then
        With Frm
            .RecordSource = (StrSQL)
            .Caption = "Korisni
ki podaci: " & UCase(tkoRadiIme) & " " & UCase(tkoRadiPrezime)
        End With
            DoCmd.Restore
            
    ElseIf PRMT = 2 Then
        With Frm
            .DataEntry = True
            .IDdokumenta.DefaultValue = ID
            .BrojDok.DefaultValue = "'" & BrojD & "'"
            .Caption = UCase(Naziv)
        End With
            DoCmd.Restore
        End If
Case Else
          Beep
            MsgBox "Objekt  <<" & ImeObjekta & ">> ne postoji " & vbCr & "ili je pogrešno unesen tip", vbExclamation + _
            vbOKOnly, vbDefaultButton1
           GoTo Kraj
    End Select
    

                            '------ NAIN OTVARANJA FORME ------
Select Case Prava
    
    Case 1 'Ispravke
            With Frm
                .FirstName.Enabled = True
                .LastName.Enabled = True
                .FormHeader.BackColor = 12632256
                .Detail.BackColor = 11916754
                .FormFooter.BackColor = 12632256
                .ScrollBars = False
                .RecordSelectors = False
                .NavigationButtons = True
                .DataEntry = False
                .AllowDeletions = True
                .AllowEdits = True
                .AllowAdditions = True
            End With

    Case 2 'Pregled
           With Frm
                .FirstName.Enabled = False
                .LastName.Enabled = False
                .Combo_Prava.Enabled = False
                .InsideHeight = Frm.Detail.Height
                .Detail.BackColor = 5950882
                .ScrollBars = False
                .RecordSelectors = False
                .NavigationButtons = False
                .DataEntry = False
                .AllowDeletions = False
                .AllowEdits = False
                .AllowAdditions = False
            End With
            
    Case 3
        
    Case 4 'Meuskladišna
            With Frm
                .Detail.BackColor = 7044491
                .Label_Partner.Caption = "Konsignator:"
                .IDdokumenta.Enabled = False
                .BrojDok = "'" & BrojD & "'"
            End With
                DoCmd.Restore
                
    Case 5 'Povratnica
            With Frm
                .Detail.BackColor = 9961471
                .Label_Partner.Caption = "Robu vratio:"
                .Skladiste_Label.Caption = "Ulaz u skladište:"
                .Skladiste_2.Visible = False
                .StovaristeID.Visible = False
                .IDdokumenta.Enabled = False
            End With
                DoCmd.Restore
                
        Case 6 'Revers
            With Frm
                .Detail.BackColor = 12177407
                .Skladiste_2.Visible = False
                .Label_Partner.Caption = "Robu preuzeo:"
                .StovaristeID.Visible = False
                .IDdokumenta.Enabled = False
            End With
                DoCmd.Restore
            
        Case 7

 MsgBox "Greška poziva" & vbCr & "Br:" & Err.Number, vbExclamation + vbOKOnly + _
    vbDefaultButton1, "Greska!!!"
    
End Select

Otvori = True
Izlaz:
Exit Function
Kraj:
Otvori = False
End Function