Prikazi cijelu temu 26.05.2019 10:35
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


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):
  1.         ElseIf PRMT = 2 Then
  2.            
  3.             Status = DLookup("[Status]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID)
  4.             Prefix = DLookup("[Prefix]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID)
  5.             Naziv = DLookup("[Dokument]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID)
  6.             BrojD = BrojDokumenta(Prefix)
  7.             Frm.IDdokumenta.DefaultValue = ID
  8.             Frm.BrojDok.DefaultValue = "'" & BrojD & "'"
  9.             Frm.Caption = UCase(Naziv)
  10.             DoCmd.Restore
  11.         End If


Prilozi:
Proba MenuMP2.rar
Preuzimanja:212
Velicina datoteke:94.60 KB

Pozdrav