Pišem iz glave,pa ako pogrešim u sintaksi,ne zameri. Prvo napraviš novi modul i nazoveš ga recimo ModPromenljive. U njemu ukucaš
Code:
public ulogovani as string
. U tvom delu koda
Code:
If Me.Text15.Value = DLookup("Password", "tblKorisnika", "[username]='" & Me.Text13.Value & "'") Then
Me.Visible = False
dodaš
Code:
ulogovani = DLookup("Id_korisnika", "tblKorisnika", "[Password]='" & Me.Text15.Value & "'")
,gde ti je Id_korisnika u stvari id u tabeli tblKorisnici (recimo redni broj korisnika).
Javna promenljiva Ulogovani će imati vrednost dokle god ne zatvoriš bazu i ne uloguješ se sa novim passwordom. Znači uvek je prisutna.
Na izveštaju samo staviš da to neko polje ima vrednost :
Code:
dlookup("Ime","tblKorisnika","Id_korisnika='" & ulogovani & "'") & " " & dlookup("Prezime","tblKorisnika","Id_korisnika='" & ulogovani & "'")
[Ovu poruku je menjao SLOJ.1973 dana 24.04.2013. u 22:28 GMT+1.Dodate zagrade]
[Ovu poruku je menjao SLOJ.1973 dana 24.04.2013. u 22:28 GMT+1]
Jednog dana...