zxz | 13.12.2017 13: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 18:16 |
---|---|
Predmet:Re: Uređivanje Dodjela nagrada Evo primjera s dodatkom operatera. |
|
Prilozi: nagradeRe .rar (Velicina datoteke:198.28 KB) |
zxz | 14.12.2017 00: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 15: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 15: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 17: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 15: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 15: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 01: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 20:54 |
---|---|
Predmet:Re: Uređivanje Dodjela nagrada Hvala.Bit će korisno .Kao i za sve koji prate ovu temu. |