Centar za edukaciju-BiH



#21 13.12.2017 12:17
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#22 13.12.2017 17:16
freeman Van mreze
Clan
Registrovan od:29.10.2014
Postovi:144


Predmet:Re: Uređivanje Dodjela nagrada
Evo primjera s dodatkom operatera.

Prilozi:
Informacije o tipu datoteke za:rar  nagradeRe .rar
Preuzimanja:198
Velicina datoteke:198.28 KB

↑  ↓

#23 13.12.2017 23:17
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Uređivanje Dodjela nagrada
Evo primjer.
Nisam nasao tvoga operatera.

Prilozi:
Informacije o tipu datoteke za:zip  nagrade - kopijazxz.zip
Preuzimanja:201
Velicina datoteke:442.49 KB


Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#24 15.12.2017 16:26
freeman Van mreze
Clan
Registrovan od:29.10.2014
Postovi:144


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.
↑  ↓

#25 16.12.2017 14:04
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.


Slicice prilozenih slika:
meni1.gif
Tip datoteke:Informacije o tipu datoteke za:gif gif
Preuzimanja:186
Velicina datoteke:7.03 KB
Velicina slike: 281 x 247 Pikseli
meni2.gif
Tip datoteke:Informacije o tipu datoteke za:gif gif
Preuzimanja:180
Velicina datoteke:13.46 KB
Velicina slike: 387 x 368 Pikseli
meni3.gif
Tip datoteke:Informacije o tipu datoteke za:gif gif
Preuzimanja:199
Velicina datoteke:9.53 KB
Velicina slike: 379 x 260 Pikseli


Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#26 16.12.2017 14:39
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

Slicice prilozenih slika:
meni4.gif
Tip datoteke:Informacije o tipu datoteke za:gif gif
Preuzimanja:193
Velicina datoteke:12.76 KB
Velicina slike: 384 x 367 Pikseli
meni5.gif
Tip datoteke:Informacije o tipu datoteke za:gif gif
Preuzimanja:199
Velicina datoteke:11.01 KB
Velicina slike: 278 x 377 Pikseli


Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#27 16.12.2017 14:48
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#28 17.12.2017 14:21
freeman Van mreze
Clan
Registrovan od:29.10.2014
Postovi:144


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
↑  ↓

#29 04.01.2018 23:54
freeman Van mreze
Clan
Registrovan od:29.10.2014
Postovi:144


Predmet:Re: Uređivanje Dodjela nagrada
Samo Da se javim da sam se zaista trudio oko menija na office-u 2007 i nisam uspio.Sreća pa sam na drugom kompu imao 2003.Jako je teško bez detaljnih uputa postaviti komande na menju.Problem mi je kad dođem da trebam postaviti komande za logiranje i log on/of.To nisam uspio.Ipak hvala administratoru na trudu.Bilo se sve jako korisno.Pozdrav
↑  ↓

#30 06.01.2018 00:48
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (4):1,2,3,4


Sva vremena su GMT +01:00. Trenutno vrijeme: 9: 23 am.