ACC2000: Hoe plaatst u de aanmeldingsnaam van de gebruiker in een besturings element op een formulier of in de titel balk van het venster van Microsoft Access

Artikel ID: 210591 - Bekijk de producten waarop dit artikel van toepassing is.
Automatische vertalingLET OP: Dit artikel is automatisch vertaald. Meer informatie treft u aan de onderzijde van dit artikel.
Geavanceerd: Expert codering, interoperabiliteit en meerdere gebruikers vaardigheden vereist.


Dit artikel heeft betrekking op een Microsoft Access-database (. mdb) en een Microsoft Access-project (. adp).

Alles uitklappen | Alles samenvouwen

Op deze pagina

Samenvatting

In dit artikel ziet u hoe u de gebruikersnaam van de huidige in een besturings element op een formulier of in de titelbalk van het venster van Microsoft Access weer geven.
Naar boven | Geef ons feedback

Meer informatie

De beveiligingingsfuncties van Microsoft Access kunt u gebruikerstoegang tot verschillende objecten in uw data base beheren. Vervolgens kunt u deCurrentUser ()functie voor het ophalen van de naam van de gebruiker die momenteel is aangemeld.

De gebruikersnaam weer geven in een besturings element op een formulier

Een gebruikersnaam weer geven in een besturings element op een formulier, gaat u als volgt te werk:
  1. Een formulier maken en vervolgens een niet afhankelijk tekst vak besturings element aan het formulier toevoegen.
  2. Stel deControlSourceeigenschap=CurrentUser().
  3. Op deWeergavemenu, klikt u opFormulier weergaveweer gegeven in het besturings element voor de huidige gebruikersnaam.

De gebruikersnaam in de titel balk weer geven

OPMERKING: De voorbeeldcode in dit artikel wordt Microsoft Data Access Objects. Deze code alleen goed uitvoeren als u verwijst naar de Microsoft DAO 3. 6 Object Library. Hiertoe klikt u opVerwijzingenop deHulp programma'smenu in de Visual Basic Editor en zorg ervoor dat deDe objectbibliotheek Microsoft DAO 3. 6selectie vakje is ingeschakeld.

Een gebruikersnaam weer geven in de titelbalk van het Microsoft Access-venster als volgt:
  1. Maak een nieuwe module.
  2. Typ of plak de volgende code in de nieuwe module:
    Function ChangeTitle()
   Dim dbs As DAO.DATABASE 
   Dim prp As DAO.Property
   Const conPropNotFoundError = 3270

   On Error GoTo ErrorHandler
   ' Return Database variable pointing to current database.
   Set dbs = CurrentDb
   ' Change title bar.
   dbs.Properties!AppTitle = "User = " & CurrentUser
   ' Update title bar on screen.
   Application.RefreshTitleBar
Exit Function

ErrorHandler:
   If Err.Number = conPropNotFoundError Then
      Set prp = dbs.CreateProperty("AppTitle", dbText, _
         "User = " & CurrentUser)
      dbs.Properties.Append prp
   Else
      MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
   End If
   Resume Next
End Function
  3. Typ de volgende regel in het venster Direct en druk vervolgens op ENTER:
    ?ChangeTitle()
    De Microsoft Access titel balk wijzigen van "Microsoft Access" naar "gebruiker =gebruikers naam."
Naar boven | Geef ons feedback

Eigenschappen

Artikel ID: 210591 - Laatste beoordeling: maandag 28 februari 2011 - Wijziging: 2.0
De informatie in dit artikel is van toepassing op:
  • Microsoft Access 2000 Standard Edition
Trefwoorden: 
kbhowto kbprogramming kbmt KB210591 KbMtnl
Automatische vertaling
BELANGRIJK: Dit artikel is vertaald door de vertaalmachine software van Microsoft in plaats van door een professionele vertaler. Microsoft biedt u professioneel vertaalde artikelen en artikelen vertaald door de vertaalmachine, zodat u toegang heeft tot al onze knowledge base artikelen in uw eigen taal. Artikelen vertaald door de vertaalmachine zijn niet altijd perfect vertaald. Deze artikelen kunnen fouten bevatten in de vocabulaire, zinsopbouw en grammatica en kunnen lijken op hoe een anderstalige de taal spreekt en schrijft. Microsoft is niet verantwoordelijk voor onnauwkeurigheden, fouten en schade ontstaan door een incorrecte vertaling van de content of het gebruik ervan door onze klanten. Microsoft past continue de kwaliteit van de vertaalmachine software aan door deze te updaten.
De Engelstalige versie van dit artikel is de volgende:210591
(http://support.microsoft.com/kb/210591/en-us/ )
Naar boven | Geef ons feedback

Geef ons feedback

 
Naar bovenNaar boven