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
'------ NAIN 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