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): ElseIf PRMT = 2 Then
Status = DLookup("[Status]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID)
Prefix = DLookup("[Prefix]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID)
Naziv = DLookup("[Dokument]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID)
BrojD = BrojDokumenta(Prefix)
Frm.IDdokumenta.DefaultValue = ID
Frm.BrojDok.DefaultValue = "'" & BrojD & "'"
Frm.Caption = UCase(Naziv)
DoCmd.Restore
End If
Prilozi:
Proba MenuMP2.rar
Preuzimanja:212
Velicina datoteke:94.60 KB
Pozdrav