[es] - kako da očitam user name?

odvijač
odvijač
severna Srbija

Član broj: 112903
Poruke: 75
*.172.eunet.yu.

Profil

^{06.11.2006. u 12:21 - pre 212 meseci}

Imam računar koji koriste 4 korisnika. Na njemu se nalazi program u Access-u
koji koriste sva 4 korisnika, ali ne trebaju da imaju mogućnost ulaska u sve
opcije (forme). Pošto već na ulasku u Windows ukucavaju lozinku hteo bih da
program sam očita ime Windows user-a (i shodno tome (ne)dozvoli korišćenje
opcija).

Da li postoji naredba za ovako nešto?
(opcija da svaki put ukucavaju lozinku za ulaz u program otpada)

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com.

+79 Profil

Re: kako da očitam user name?

^{06.11.2006. u 17:42 - pre 212 meseci}

Option Compare Database
Option Explicit

'******************** Code Start **************************
' API: Get Login name
' Author (s)
'Dev Ashish
'
'
'(Q) How do I retrieve the UserName with which the user is logged into the network?
'
'(A) Paste the following code in a new module and call the function fOSUserName.
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If (lngX > 0) Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = vbNullString
End If
End Function
'******************** Code End **************************

Odgovor na temu

odvijač
odvijač
severna Srbija

Član broj: 112903
Poruke: 75
*.173.eunet.yu.

Profil

Re: kako da očitam user name?

^{07.11.2006. u 12:53 - pre 212 meseci}

Isprobao sam i RADI! Probao sam sa različitim dužinama korisničkog
imena i funkcioniše. Problem mi je što umesto user name-a dobijem
kockice. Da li postoji mogućnost da se umesto kockica ispisuje user
name sa slovima?

BTW, možda ja radim nešto pogrešno (primer je zakačen uz poruku)

Prikačeni fajlovi

username.zip - 11.33k

Odgovor na temu

Kiro
Akir Žalić
BiH

Član broj: 19085
Poruke: 114
*.PPPoE-896.sa.bih.net.ba.

Sajt: www.icentar.ba

Profil

Re: kako da očitam user name?

^{07.11.2006. u 14:26 - pre 212 meseci}

Pozivaš funkciju fOSUserName koje nigdje nema jer si joj promijenio ime
i trebala je biti u modulu
Citiram: (A) Paste the following code in a new module..........
sad da li se može ovako da je prepraviš nisam probao
mislim da nemaš ni potrebe da koristi ovu svoju funkciju proba()

Kiro

Prikačeni fajlovi

USER_NAME.zip - 11.16k

Odgovor na temu

odvijač
odvijač
severna Srbija

Član broj: 112903
Poruke: 75
*.165.eunet.yu.

Profil

Re: kako da očitam user name?

^{08.11.2006. u 07:28 - pre 212 meseci}

OK, funkcioniše. Hvala na pomoći ...

Odgovor na temu