Velkommen 'brugerId'

På dette link finder du kode, der kan hente brugerens net-login. Det kan du så i en tabel oversætte til brugerens egget navn:

http://www.mvps.org/access/api/api0008.htm

Alle disse forskellige funktioner til at skaffe brugeren Windows-login er ofte helt overflødige, da der ligger en langt mere velegnet kommando i Access, som kan bruges direkte i formularer, forespørgsler m.m.
Den ser således ud:

Environ("Username")

Hvis du vil have en velkomsthilsen på dit switchboard, så laver du en tekstboks, med denne kontrolelementkilde:
="Velkommen " & Environ("Username")

Hvis brugerens Windows-login ikke er 'brugervenligt' nik, så er du ganske rigtigt nødt til at lave en tabel, som konvertere navnet til det rigtige. Herefer laver du en funktion, som slår op og returnere det fulde navn.
Skal du have hjælpe til det?

="Velkommen " & DlookUp("TheUserName", "TheTable", "UserID = '" Environ("Username") & "'")

or something like that :o)

="Velkommen " & DlookUp("TheUserName", "TheTable", "UserID = '"  & Environ("Username") & "'")

Jeg vil til hver en tid foretrække at lave en funktion, som returnere brugernavnet i stedet for at skulle bruge Dlookup alle steder. Især da DLookup er utrolig langsom, når den bindes direkte til en tekstboks.

Public Function GetBrugernavn as String
    GetBrugernavn = DlookUp("TheUserName", "TheTable", "UserID = '"  & Environ("Username") & "'")
End Function

Herefter skriver du i din tekstboks:

=Velkommen " & GetBrugernavn()

PS: Funktionen skal anbringes i et Modul for at virke alle steder

But Thomas you are using Dlookup yourself!

Make a global varibale (in a module)

Public gUserName as String

Then in your startup form

gUserName = DlookUp("TheUserName", "TheTable", "UserID = '"  & Environ("Username") & "'")


Then EVERYWHERE you need to use the user name you have it in gUserName

Terry-> c'mon...Du ved da, at DLookup er særlig langsom, når man bruger den direkte i en tekstboks. Mens når man bruger den i VBA, så er den hurtig nok.

Mht at bruge en public variabel, så kan de jo ikke bruges direkte i tekstbokse og slet ikke i f.eks. forespørgsler!!!

Your right about Dlookup being slow in some situaitions Thomas. But if you an call GetBrugernavn from a "kontrolelementkilde" then

This must be faster

Public Function GetBrugernavn as String
    GetBrugernavn = gUserName
End Function


Which can also be used from a query

Det er selvølgelig rigtigt. Man kan altid optimere.
I dette tilfælde vil jeg så foretrække at lave funktionen således:

Public Function GetBrugernavn as String
    if len(gUserName) = 0 then
        gUserName = DlookUp("TheUserName", "TheTable", "UserID = '"  & Environ("Username") & "'")
    endif
    GetBrugernavn = gUserName
End Function

Derved behøver du ikke at sætte variablen på opstart-formularen (sæt nu, at der er flere forskellige opstartformularer i forskellige situationer). Endvidere kan vi ikke vide om der kan opstå fejl i Tore Jessen's database, således at brugeren skal klikke <End> i debug-dialogboksen. Derved vil gUserName blive nulstillet og funktionen vil blive uduelig.

Generelt er jeg ikke så glad for blobale variable pga ovenstående scenarier.

blobale = globale :)

Now we are getting there Thomas :o)

Wow tak skal i have for hurtige svar!
Jeg har lige prøvet Thomas´ svar, dvs. en tekstboks på switchboardet med en kontrolelementkilde jeg copy-pastede..
Der kommer kun til at stå "Velkommen".. Ikke mere..
Kan det være koden der mangler noget, eller HAR vi slet ikke noget netværksnavn? (Vi har win98) men logger på et netværk..
Jkrons - også tak for dit svar, men koden må høre under den slags Thomas mener er Overflødigt..
??
Hilsen
Tore

OK - jeg havde ikke set alle de nye indlæg.

Tjekker lige igen..

Sikkert. Jeg tror den stammer fra før Environ blev opfundet.

Hav eyou tried using the code from the question instead of Environ?

OK
Let me get it straight:
Thomas´ første svar er det nemmeste/smarteste (="Velkommen " & Environ("Username")
), men hvis man har brugeruvenlige logons, skal man lave tabeller.
Hvis man har tabeller, så skal man hellere bruge funktioner..

Rigtigt forstået?

Does Environ("Username") give you the current user?

What is a "brugeruvenlige" logon?

If a user has a logon for example "tbs" then this needs to be translated to the user name you wnat to display.

If you can accept "tbs" then NO you do NOT need an extra table. But if you want to display "Terry" or even "Terence" then you will need an extra table.
If you do NOT need an extra table then you do not need a function other than Environ

Hej igen
="Velkommen " & Environ("Username")
Denne kode giver kun et "Velkommen" ikke noget brugernavn.
Ved ikke hvorfor.
Jeg ville helst bruge denne enkle kode, indtil jeg kan se hvad vore log-on navne egentlig er..
Men hvorfor virker ovenstående ikke?

Prøv at trykke Ctrl+G og skriv:
?Environ("Username")

og tryk ENTER og se om den skriver brugernavnet?

Sukkk jeg synes jeg kommer til at ligne en begynder mere og mere..
I hvilket program? I Access sker intet når jeg trykker Ctrl+G..
Hverken når selve databaseskærmen er oppe, eller når switchboardet er fremme..
Har Win98

OG Access 2000 eller ?

Ctrl+G plejer at åbne kodeeditoren og stille markøren i debug-vinduet nederst på siden. Her kan man så taste forskellige udtryk (f.eks. det foreslåede)

Kan da lige tilfoeje at Environ("Username") virker ned til Access 97.

Overchord->ja, det gør det endnu mere utroligt at det altid er den anden kode, som bliver foreslået ;o)

Jeg bruger access2000
Ctrl åbner intet.
Men jeg kan selv åbne Microsoft Visual Basic
Kan jeg køre den " ?Environ("Username") " derfra et sted?

Hvis du ikke lille vindue (blandt alle de andre) som hedder "Immidiate", så kan du åbne den ved at gå i menuen View->Immidiate window

Jeg har åbnet databasen
Stillet markøren i "Formularer" og markeret "Switchboard" uden at åbne den.
Trykket på "Programkode" (Der åbner M Visual Basic)
Trykket Ctrl+G der åbner "immediate window" OK
Pastet din kode ?Environ("Username") trykket ENTER
og der sker intet.. Måske har vi ikke noget logon-navn.. ?

Hmm
Nåmen tak for hjælpen.. :-(

spooky!!

Lige for at checke....prøv i stedet at skrive:
?Date

Giver dette noget?

Godt Thomas :_) Du er vist vant til at fange begyndere i at råbe Virker-ikke..
På linjen under din date , skriver den datoen så den kører altså koden..
Hvis det er noget hjælp til, stå stiller cursoren efter Environ-funktionen sig TO linjer nedenunder koden. Måske har den kørt koden og logon er bare tom?

Ja, det tyder på det. Jeg har bare aldrig oplevet det før...

Prøv at indsætte disse linier i et nyt modul:

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function GetUserName() 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
        GetUserName = Left$(strUserName, lngLen - 1)
    Else
        GetUserName = ""
    End If
End Function


Herefter prøver du at skrive:
?GetUserName

og ser hvad der så sker...?

Hmm - ok - nu skriver den "tore"

Hvad så? Skal jeg så bruge den istedet?
Øv den anden så så enkel ud..
Hvis du siger dette er den jeg skal bruge, så skal du nok få pointene..

Tak for din store hjælp!

okay, så er vi kommet så langt!!
Vi har fundet en fejl i Access, og vi har fundet ud af en workaround ;o)

Herefter skal du bare erstatte Environ(Username") med GetUsername() alle steder. :o)

1000 Tak :-))

Også til jer andre..

selv tak :o)

Det ser forresten ikke ud til at virke hvis jeg slettede din funktionskode (fra module1) og indsatte den i et af de andre moduler. Så nu har jeg oprettet et nyt module1 og det virker igen..
Tjaeh det er bare en af de ting vi begyndere må finde os i.. ;-)

Det var jo derfor, at jeg skrev, at det skulle indsættes i et NYT modul :o)

Du kan godt sætte det ind i et af dine andre moduler, men den øverste linie, skal stå i toppen:
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long