zxz 13.12.2017 12:17
Predmet:Re: Uređivanje Dodjela nagrada

AktivniOper je bila procedura.
Kao sto pise u njoj
Upisuje šifru operatora u meni.
Meni se zove glavni meni i zo je bilo u mojoj app. pa sam namjerno ostavio da vidis jer kod tebe se nigdje ne vidi koji se operator logovao.

Za dozvole moram napraviti neki primjer sa menijem a to cu pokusati veceras ako nadjem vremena i ukoliko do tad neko ne uradi.

freeman 13.12.2017 17:16
Predmet:Re: Uređivanje Dodjela nagrada

Evo primjera s dodatkom operatera.
Prilozi:
nagradeRe .rar (Velicina datoteke:198.28 KB)

zxz 13.12.2017 23:17
Predmet:Re: Uređivanje Dodjela nagrada

Evo primjer.
Nisam nasao tvoga operatera.
Prilozi:
nagrade - kopijazxz.zip (Velicina datoteke:442.49 KB)

zxz 16.12.2017 14:48
Predmet:Re: Uređivanje Dodjela nagrada

Procedura OtvoriSaMenija
'Dimenzionisanje variabli
Function OtvoriSaMenija()
Dim ID As Integer
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim SQL As String
Dim Dozvole As Integer
Dim ImeO As String
Dim Tip As Integer

'Ovo treba ukljuciti na kraju kada se procedura zavrsi da bi tok procedure skocio na kraj ukoliko se pojavi neka greska
'On Error GoTo Kraj

'Iscuitavanje vrijednosti taga pritisnutog komandnog tastera
ID = Application.CommandBars.ActionControl.Tag

'Setvanje baze
Set Db = CurrentDb
'SQL tabele L_MeniLista sa uslovom da iscita redak sa id=18 u nasem slucaju gore u primjeru
SQL = "SELECT * FROM L_MeniLista WHERE ID=" & ID
'Podizanje rekordseta
Set Rs = Db.OpenRecordset(SQL)
'Iscitavanje podataka iz rekordseta tabele
Dozvole = Rs!Dozvole
ImeO = Rs!Ime
Tip = Rs!Tip
Rs.Close
Set Db = Nothing
'Ako nema operatora onda nista nece n i podignuti
If M_Oper.PravaO = 0 Then GoTo Kraj
'ako je broj prava operatora manj od dozvola onda ce uci i iraditi odnosno tad ima dozvole
If M_Oper.PravaO <= Dozvole Then
'Selekcija tipa dukmenta dali je forma izvjestaj itd. razlicit je kod za razlicite tipove
' Ovdje se jos moze za svaki tip dokumenta napraviti razlicite nacine podizanja
' To je napr. za forme dobro napraviti jer ih mozemo podizati u razlicitim modovima.
' Postoji je i polje u L_MeniLista ako ga nisam obrisao.
Select Case Tip
Case 1 'Otvori formu
DoCmd.OpenForm ImeO, , , , , acIcon
Set Frm = Forms(ImeO)
Frm.SetFocus
DoCmd.Restore
Case 2 'Otvori izvjestaj
On Error Resume Next
DoCmd.OpenReport ImeO, acViewPreview
If QR <> "" Then
Reports(ImeO).RecordSource = QR
End If
If Err.Number = 0 Then
DoCmd.Maximize
Else
Err.Clear
On Error GoTo 0
End If
GoTo Kraj
Case 3 'PokreniQyery
DoCmd.OpenQuery ImeO, acViewPreview
GoTo Kraj
Case 4 'Podigni tabelu
DoCmd.OpenTable ImeO, acViewPreview
GoTo Kraj
Case 5 'Pokreni funkciju
Run ImeO
GoTo Kraj
Case 6 'Pokreni drugi program
Shell ImeO
Case Else
Beep
MsgBox "Objekat <<" & ImeO & ">> ne postoji " & vbCr & "ili je pogrešno unesen tip", vbExclamation + _
vbOKOnly, vbDefaultButton1
GoTo Kraj
End Select
Else
MsgBox "Nemate dozvole"
End If
Izlaz:
Exit Function
Kraj:
MsgBox "Nije uspjelo"
End Function

freeman 17.12.2017 14:21
Predmet:Re: Uređivanje Dodjela nagrada

Hvala Zxz .Malo ću si dati vrmena da ovo sve proučim.Kod mene je o nešto drugačije jer imam office 2007.Pa dok ja sve to pronađem malo će potrajati.Pozdrav

freeman 15.12.2017 16:26
Predmet:Re: Uređivanje Dodjela nagrada

Malo mi je nejasno kako to radi u praksi.Forma i Meni lista.Ako može na ovom tvom primjeru.Hvala ti za interes.

zxz 16.12.2017 14:04
Predmet:Re: Uređivanje Dodjela nagrada

Trebamo prvo napraviti nas sopstveni Meni bar.
U Meni baru kliknemo:
View-->Toolbars-->Customize

Kada se otovori prozor tada kliknemo na taster customize te napisemo ime naseg meni bara napr. Moj_meni

Sada se pzicionirate na vas meni bar te kliknete na taster propertijes.
Ovdje necu sve objasnjavti nego samo ovo tip odaberite meni bar.
Prilozi:
meni1.gif (Velicina datoteke:7.03 KB)
meni2.gif (Velicina datoteke:13.46 KB)
meni3.gif (Velicina datoteke:9.53 KB)

zxz 16.12.2017 14:39
Predmet:Re: Uređivanje Dodjela nagrada

Sada u nasem meni baru dodamo custom taster ili pak novi meni.
View-->Toolbars-->Customize
Odaberemo tabs commands te u njegovom list boxu kategorije odaberemo file a u lijevom custom.
Opcijom vusi spusti prenesemo ovo custom na nas meni bar.
Isto tako mopzemo napraviti i novi meni.
Ona vam je kategorija New meni na kraju liste.
Sada na preneseni meni kliknemo desnim misem te odaberemo opciju properties.
U caption upisete ime u svreen tip upisete nesto po zelji a u on action upisete ime procedure koju pozivate.
U nasem slucaju je to OtvoriSaMenija
Stil nemorete nista dirati ako necete.
U tag treba upiseti id retka iz tabele L_MeniLista

Sada mozemo ici na obrazlozenje same procedure
Prilozi:
meni4.gif (Velicina datoteke:12.76 KB)
meni5.gif (Velicina datoteke:11.01 KB)

zxz 06.01.2018 00:48
Predmet:Re: Uređivanje Dodjela nagrada

Kad nadje vremena opisat cu i u 2007 postupak.
Startap bi morao raditi bez iakavih prepravki odnosno log.
Pogledat cu pa javim.

freeman 06.01.2018 19:54
Predmet:Re: Uređivanje Dodjela nagrada

Hvala.Bit će korisno .Kao i za sve koji prate ovu temu.