pmiroslav | 18.05.2019 14:59 |
---|---|
Predmet:Re: Custom Menu dozvole PokuÅ¡avam slijedeće: Ako je osoba prijavljena kao Administrator (PravaPristupa = 1)sa svim pravima da mu se otvori frmPristup sa prikazom svih slogova it tblOperatori, sa mogućnosču izmjene i dodavanja novog sloga. Ako je osoka prijavljena kao operator (PravaPristupa = 2) da mu se otvori frmPristup sa prikazom samo sloga prijavljene osobe. PokuÅ¡avam to sa If ID = 1 Then Set Rs = Db.OpenRecordset("SELECT * FROM tblOperatori ") Else Set Rs = Db.OpenRecordset("SELECT * FROM Qry_Pristup ") End If ... Select Case Tip Case 1 'Otvori formu DoCmd.OpenForm ImeForme, , , , , acIcon Set Frm = Forms(ImeForme) Frm.RecordSource = Rs <--- Ovdje bi želio promjenjivi record source ovino o korisniku Frm.SetFocus DoCmd.Restore |
|
Prilozi: Proba Menu.rar (Velicina datoteke:90.92 KB) |
zxz | 20.05.2019 13:06 |
---|---|
Predmet:Re: Custom Menu dozvole U Tabel L_Meni lista imas polje pristup. Tu pisujes ko sve smije pristupiti odnosno PravaPriostupa iz tabele tblOperatori. Ostalo ces se valčjda snaci. Imas i klasu M_Oper i ja sam je iskoristio. Pri logovanju u nju se upisu podaci. |
|
Prilozi: Proba Menuzxz.zip (Velicina datoteke:207.78 KB) |
pmiroslav | 21.05.2019 08:20 |
---|---|
Predmet:Re: Custom Menu dozvole Hvala na odgovoru ali taj dio mi je jasan. Ja bih zapravo želio da forma koju otvaram ima promjenjivi RecordSource i to mi Å¡teka. Napravio sam kod: PreuzmiIzvorni kôd (vbnet):
Forms!frmPristup.Form.RecordSource = ("SELECT * FROM tblOperatori WHERE KorisnikID=" _ & M_Oper.OperID) Ovaj dio mi ne odradi kako treba. |
zxz | 22.05.2019 00:11 |
---|---|
Predmet:Re: Custom Menu dozvole Case 1 'Otvori formu DoCmd.OpenForm ImeForme, , , , , acIcon Set Frm = Forms(ImeForme) Frm.SetFocus Forms!frmPristup.Form.RecordSource = ("SELECT * FROM tblOperatori WHERE KorisnikID=" _ & M_Oper.OperID) DoCmd.Restore |
zxz | 24.05.2019 10:15 |
---|---|
Predmet:Re: Custom Menu dozvole Sta bi. Mozda nisam bio dovoljno jasan. Ti si stavio upis u recordsource prije otvaranja forma. |
pmiroslav | 24.05.2019 11:56 |
---|---|
Predmet:Re: Custom Menu dozvole Radim to sada ali samo amo direktno imenujem formu Forms!frmPristup.Form.RecordSource = (StrSQL) a u obliku Dim ImeObjekta As String ImeObjekta = "frmPristup" Forms!imeObjekta.Form.RecordSource = (StrSQL) ili frm.RecordSource = (StrSQL) ne radi |
zxz | 24.05.2019 21:14 |
---|---|
Predmet:Re: Custom Menu dozvole Citat: Case 1 'Otvori formu Ovo treba da radi |
pmiroslav | 26.05.2019 10:35 |
---|---|
Predmet:Re: Custom Menu dozvole JoÅ¡ se mučim sa ovim. Ovakva je stvar Imam menu Administracija i Knjiženje Kod administracije Tag = 1 ; Parameter = 1 Kod Knjiženje Tag = 1; Parametar = 2 Tag = 1 određuje da je objekt koji otvara formu Parametar = 1 određuje da se otvara forma frmPristup Parametar = 2 određuje da se otvara forma frmDokumenti Kod frmPristup je svu redu ali kod frmDokumenti ne radi mi kako treba. Imama tri subMenia -MeđuskladiÅ¡na -Povratnica -Revers Otvaranje formi je u redu, međutim brojeve dokumenta ne odradi kako treba MeđuskladiÅ¡na treba biti MS/0001/19 itd Povratnica PO/0001/19 itd Revers RV/0001/19 itd Primjer sa macroima je uredu ali sa procedurom nije. Ovaj dio coda je problem. Gdje ga staviti? PreuzmiIzvorni kôd (vbnet):
|
|
Prilozi: Proba MenuMP2.rar (Velicina datoteke:94.60 KB) |
zxz | 28.05.2019 00:27 |
---|---|
Predmet:Re: Custom Menu dozvole Citat: Nemas ovdje nista upisano i ne treba po meni.JoÅ¡ se mučim sa ovim. To je samo naziv menija i kad kliknes da se otvori meni. U stavkanma menija trebas napisati nazive sta je sta. U property tog menija U tag samo id iz tabele Lmeni lista a u polje on action upises funkciju koju pozivas a to je OtvoriM() Tu vise niosta ne treba pisati Sda se na osnovu id pokrece sql: SELECT * FROM L_MeniLista " _ & " WHERE ID=" & ID Znaci uslov je ID i to je jedan red podataka: Sve podatke mozes iscitati iz tog reda kada koristis tabelu. Ako ne koristis tabelu onda bi ,orao pisati jos stosta u Property, Trebao si uzeti moj primjer ali nema veze sad. Ovako cemo: Napisi ti u ova 2 menija sve sta treba da bude i ostalo sta treba za nuju. Primjer: Meni1: Administracija Satvke: Logovanje--> Forma ime forme i caption i sql ako treba neki Meni2: Knjizenje Stavke: Medjuskladista ime forme je: Capion je: Sql: Povratnica Ime forme je Caption je sql je. Kad to napises ja cu ti odraditi primjer a ostalo sto ne treba pobrisati da te ne zbunjuje Pokusat cu to uraditi sutra navecer Ima tu jos nedostataka. napr. modul operatori Funkcija: Function SifraID() If M_Oper.OperID = 0 Then UcitajOper End If Sif=M_Oper.OperIDraID End Function Nije ti potrebna nijedna od ovih pri logovanju sve se to upise i poslije samo citas iz klase M_oper. Sif=M_Oper.OperIDraID a tamo gdje imas msgbox Niste logovani treba i da podize popup formu za logovanje tako da nemoze nista raditi. Ok popravit cemo to. alo bolje je jedno po jedno da bi razumio. Idemo meni rijesiti i to sa tabelom LMeni lista. Ako ovo dobro proucis dat cu ti kod koji pravi sam meni na osnovu ove tabele. |
pmiroslav | 28.05.2019 12:23 |
---|---|
Predmet:Re: Custom Menu dozvole Ja sam u međuvremenu uspio srediti funkciju i ona mi sada radi točno ono Å¡to sam želio. Jedino sada ako ti želiÅ¡ da je eventualno dotjeraÅ¡ i pojednostaviÅ¡. PreuzmiIzvorni kôd (vbnet):
Bio mi je problem kako otvoriti frmDokumenti na tri načina u formi se mijenja podatak u Combu IDdokumenta SELECT tblTransakcijeVrsta.IDdokumenta, tblTransakcijeVrsta.Dokument, tblTransakcijeVrsta.Status FROM tblTransakcijeVrsta ORDER BY tblTransakcijeVrsta.Dokument; Upisuje se brojDok (MS/0001/19; PO/0001/19 ili RV/0001/19) To određuje Function BrojDokumenta I joÅ¡ je promjenjivo dali se videili ne pojedini textBox-ovi, te se kod svake varijante mijenja boja pozadine radi lakÅ¡ek snalaženja. |
|
Prilozi: Proba MenuMP3.rar (Velicina datoteke:129.93 KB) |