ACC: Cómo colocar el nombre de inicio de sesión de usuario en un control de un formulario o en la barra de título de la ventana de Microsoft Access

Seleccione idioma Seleccione idioma
Id. de artículo: 94599 - Ver los productos a los que se aplica este artículo
Expandir todo | Contraer todo

En esta página

Resumen

Avanzado: Requiere codificación experto, interoperabilidad, conocimientos y multiusuario.

En este artículo se muestra cómo utilizar el CurrentUser() función en Microsoft Access (o función User() en Microsoft Access 1.x), para mostrar el nombre de usuario actual en un control en un formulario o en la barra de título de la ventana de Microsoft Access.

Este artículo se supone que está familiarizado con Visual Basic para aplicaciones y con la creación de aplicaciones de Microsoft Access mediante las herramientas de programación suministradas con Microsoft Access. Para obtener más información acerca de Visual Basic para Aplicaciones, consulte su versión del manual "Creación de aplicaciones con Microsoft Access".

Nota: el Visual Basic para aplicaciones se denomina Access Basic de Microsoft Access versiones 1.x y 2.0. Para obtener más información acerca de Access Basic, consulte el manual "Introduction to Programming" de la versión 1.x de Microsoft Access o el manual "Creación de aplicaciones" de la versión 2.0.

Más información

En Microsoft Access, puede implementar la seguridad para controlar el acceso de usuario a los distintos objetos de la base de datos. A continuación, puede utilizar la función User() o CurrentUser() para mostrar el nombre del usuario actual.

Mostrar el nombre de usuario en un control en un formulario

Utilice el procedimiento siguiente para mostrar un nombre de usuario en un control en un formulario:

  1. Cree un formulario y agregue un control de cuadro de texto independiente al formulario.
  2. Establezca la propiedad ControlSource en =CurrentUser() (o =User() en Microsoft Access 1.x).
  3. Cambie el formulario a la vista formulario para ver el nombre de usuario actual aparece en el control.

Mostrar el nombre de usuario en el título de barra (Microsoft Access 97 y 7.0)

Advertencia: Seguir los pasos descritos en este ejemplo modificará la base de datos de ejemplo Neptuno.mdb (o Neptuno.mdb en Microsoft Access 2.0 o anterior). Quizás desee una copia del archivo de base de datos Northwind y realizar estos pasos en una copia de la base de datos.

Utilice el procedimiento siguiente para mostrar un nombre de usuario en la barra de título de la ventana de Microsoft Access en Microsoft Access 97 y 7.0:

  1. Cree un nuevo módulo.
  2. Escriba el siguiente de Visual Basic para código de aplicaciones:
          Function ChangeTitle()
             Dim dbs As DATABASE, prp As 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. Crear una nueva macro con la acción EjecutarCódigo, con la siguiente como el argumento de acción:
          ChangeTitle()
    guardar la macro y asígnele el nombre ShowUser.
  4. Ejecute la macro ShowUser. Debe ver la barra de título de Microsoft Access cambia de "Microsoft Access" para usuario = <username>.

Mostrar el nombre de usuario en la barra de título (de Microsoft 2.0 y 1.x)

Utilice el procedimiento siguiente para mostrar un nombre de usuario en la barra de título de la ventana de Microsoft Access en Microsoft Access 2.0 y 1.x:

  1. Cree un nuevo módulo.
  2. Escriba el siguiente código de Access Basic:

    Nota: En el siguiente ejemplo de código, un carácter de subrayado (_) se utiliza como un carácter de continuación de línea. Quite el carácter de subrayado del final de la línea cuando escriba este código en Access Basic.
        '=====================================================================
       ' Declarations section of the module
       '=====================================================================
          Option Explicit
    
          Declare Function SendMessage& Lib "User" (_
                       ByVal hw%, ByVal message%, ByVal wParam%, LParam As Any)
          Declare Function GetActiveWindow% Lib "User" ()
    
          Const WM_SETTEXT = &HC
    
          DIM stTitle$
          DIM x%
    
       '=====================================================================
       ' The following function places the user name in the title bar.
       '=====================================================================
    
          Function ChangeTitle ()
          ' Use only one of the following two lines of code,
          ' depending on your version of Microsoft Access
             stTitle$ = "User = " + User()          ' For Version 1.x only
             stTitle$ = "User = " + CurrentUser()   ' For Version 2.0 only
             x% = SendMessage(GetActiveWindow(), WM_SETTEXT, 0, ByVal stTitle$)
          End Function
    
       '=====================================================================
       ' End of code section.
       '=====================================================================
    						
  3. En el menú Ejecutar, haga clic en compilar todo.
  4. Guarde el módulo.
  5. Crear una nueva macro con la acción EjecutarCódigo, con la siguiente como el argumento de acción:
          ChangeTitle()
    						
    guardar la macro y asígnele el nombre ShowUser.
  6. Ejecute la macro ShowUser. Debe ver la barra de título de Microsoft Access cambia de "Microsoft Access" para usuario = <username>..

Propiedades

Id. de artículo: 94599 - Última revisión: jueves, 18 de enero de 2007 - Versión: 2.3
La información de este artículo se refiere a:
  • Microsoft Access 1.0 Standard Edition
  • Microsoft Access 1.1 Standard Edition
  • Microsoft Access 2.0 Standard Edition
  • Microsoft Access 95 Standard Edition
  • Microsoft Access 97 Standard Edition
Palabras clave: 
kbmt kbhowto kbprogramming KB94599 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 94599
Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna
El presente artículo se escribió para productos para los que Microsoft ya no ofrece soporte técnico. Por tanto, el presente artículo se ofrece "tal cual" y no será actualizado.

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com