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

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
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
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>..

Advertencia: este artículo se tradujo automáticamente

Propiedades

Id. de artículo: 94599 - Última revisión: 12/04/2015 09:21:41 - Revisión: 2.3

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

  • kbnosurvey kbarchive kbmt kbhowto kbprogramming KB94599 KbMtes
Comentarios