veld laten vullen

[gebo51]

Goedemiddag,

Een simpel vraagje (denk ik)

In een tekstvak 'username' heb ik bij het besturingselementbron staan: =CurrentUser()
In het veld wordt nu aut. de username van de gebruiker ingevuld.
Deze username is meestal een afkorting van de eigenlijke naam van de gebruiker.

Nu wil ik in het veld 'username' (of in een nieuw veld met een verwijzing) de volledige naam tonen.
Dus gebo51 wordt dan bijv. Jan Jansen.

Ik denk niet zo moeilijk voor jullie specialisten.

Bedankt alvast

 

[Road Dogz]

Goedemiddag,

Een simpel vraagje (denk ik)

In een tekstvak 'username' heb ik bij het besturingselementbron staan: =CurrentUser()
In het veld wordt nu aut. de username van de gebruiker ingevuld.
Deze username is meestal een afkorting van de eigenlijke naam van de gebruiker.

Nu wil ik in het veld 'username' (of in een nieuw veld met een verwijzing) de volledige naam tonen.
Dus gebo51 wordt dan bijv. Jan Jansen.

Ik denk niet zo moeilijk voor jullie specialisten.

Bedankt alvast

je kan bij een bepaalde gebeurtenis volgende code toevoegen


me.usernaam.setfocus

if me.usernaam.text="gebo51" then
me.usernaam.text = "Jan Jansen"

end if

 

[Guus2005]

Dag Jan,

Je moet een tabel aanmaken die de relatie legt tusen username en gebruiker naam.
Als je dan de username hebt opgehaald dan kan je met een dlookup de gebruikersnaam erbij zoeken.

Groet,
Guus

 

[Road Dogz]

Dag Jan,

Je moet een tabel aanmaken die de relatie legt tusen username en gebruiker naam.
Als je dan de username hebt opgehaald dan kan je met een dlookup de gebruikersnaam erbij zoeken.

Groet,
Guus

Is inderdaad ook een mogelijkheid, persoonlijk vind ik deze methode beter.:thumb:

 

[Tardis]

Tabel maken met daarin user names en gebruikersnamen.
Tekstvak toevoegen aan je formulier, waarin je de gebruikersnaam ophaalt mbv DLookup (zie Access Help) in de besturingselementbron.

Groet,

Tardis

 

[maartenf]

nog mooier is als je een link maakt met de oorspronkelijke gegevens
er moet immers ergens een tabel zijn waarbij naam en userid al staan (active x?).
voorkom redundantie

als je daar niet bij kunt/mag komen dan is idd een 'eigen' tabel met naam en userid een goed alternatief

 

[gebo51]

Goedemiddag,

Bedankt voor alle reacties.
Ik heb de reactie van Road Dogz toegepast.
Met een kleine aanpassing werkt het prima.

In het veld usernaam wordt aut de username ingevuld dmv het besturingselementbron: =CurrentUser()
In een tweede veld 'echtenaam' komt de 'echte naam' van de gebruiker
bij het event: bij openen van het formulier komt te staan

Me.usernaam.SetFocus
If Me.usernaam.Text = "gebo51" Then
Me.echtenaam.SetFocus
Me.echtenaam.Text = "Jan Jansen"

End If

Nu nog alle gebruikers benoemen met usernaam en echtenaam en het werkt:thumb:

Misschien een minder degelijke oplossing als van Guus en Tardis, maar wel simpel en bij een beperkt aantal users goed te doen

Thanks:thumb:

 

[thomrob]

en stel nu dat er een keer een gebruiker toegevoegd wordt? Of als je volledige naam in een ander scherm getoond moet worden. Ga je dan weer de code aanpassen?

De mooiste oplossing is hier toch echt om een tabel te gebruiken en dan met Dlookup werken. Voor nu werkt het misschien, maar als je ooit uit gaat breiden kom je dit probleem wederom tegen. Ik zou het daarom meteen goed oplossen.