- Function ImeKompa()
- Dim strImeKompjutera As String
- strImeKompjutera = String(255, Chr(0))
- ImeRacunara strImeKompjutera, 255
- strImeKompjutera = left(strImeKompjutera, InStr(1, strImeKompjutera, Chr(0)) - 1)
- ImeKompa = strImeKompjutera
- End Function
Prikazi cijelu temu
22.05.2013 22:15
22.05.2013 22:15
Predmet:Re: Korisnicko ime iz koristan kod
Ponovo hvala na brzom odgovoru.
sto se tice tabele logovanja u njoj imam ID, korisnicko ime, datum prijave, vrijeme prijave, datum odjave i vrijeme odjave. To sam uvezao da mi na "kljucnim" rekordima upise ko je sta unio ili promijenio (mislim konkretno na korisnicko ime) i to funkcionise super. a sto se tice naziva racunara sa kojeg je izvrsen unos ili izmjena za to koristim sljedeci kod u modulu
a na formi sam napravio unbound polje i u njega unio naziv kolone "Komp" iz tabele "osnovna" gdje se i biljeze ti podaci, takodje uredno.
ali da ne duzim meni bi odgovarala i "jednostavna" kontrola recimo nesto kao broj korisnika koji su trenutno logovani
*********************************************
npr. Trenutno bazu koristi 3 lica
*********************************************
Iskreno, jos uvijek sam pocetnik tako da ne znam bas kako ide to sa pokretanjem koda ali uglavnom nakon svakog koda koji ubacim idem na kompajliranje i ako nesto nije uredu onda mi pogresan kod pozuti i strelicom misa preko tog ocitam vrijednosti
Konkretno u ovom tvom kodu zapne na liniji
Napominjem da radim u MS Accessu 2003 i da osim prvih 5 default-nih referenci nisam ukljucio ni jednu dodatnu
Pozdrav!
Ponovo hvala na brzom odgovoru.
sto se tice tabele logovanja u njoj imam ID, korisnicko ime, datum prijave, vrijeme prijave, datum odjave i vrijeme odjave. To sam uvezao da mi na "kljucnim" rekordima upise ko je sta unio ili promijenio (mislim konkretno na korisnicko ime) i to funkcionise super. a sto se tice naziva racunara sa kojeg je izvrsen unos ili izmjena za to koristim sljedeci kod u modulu
PreuzmiIzvorni kôd (Text):
a na formi sam napravio unbound polje i u njega unio naziv kolone "Komp" iz tabele "osnovna" gdje se i biljeze ti podaci, takodje uredno.
ali da ne duzim meni bi odgovarala i "jednostavna" kontrola recimo nesto kao broj korisnika koji su trenutno logovani
*********************************************
npr. Trenutno bazu koristi 3 lica
*********************************************
Iskreno, jos uvijek sam pocetnik tako da ne znam bas kako ide to sa pokretanjem koda ali uglavnom nakon svakog koda koji ubacim idem na kompajliranje i ako nesto nije uredu onda mi pogresan kod pozuti i strelicom misa preko tog ocitam vrijednosti
Konkretno u ovom tvom kodu zapne na liniji
Set rs = con.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")Napominjem da radim u MS Accessu 2003 i da osim prvih 5 default-nih referenci nisam ukljucio ni jednu dodatnu
Pozdrav!