UserName Property
Applies To
Container object, Document object, Workspace object.
Description
Sets or returns a value that represents a user, a group of users, or the owner of a Workspace object.
Settings and Return Values
The setting or return value is a String that evaluates to the name of a user. In a Microsoft Jet workspace, this represents a User object in the Users collection or a Group object in the Groups collection. For Microsoft Jet Container and Document objects, this property setting is read/write. For all Workspace objects, this property setting is read-only.
Remarks
Depending on the type of object, the UserName property represents the following.
- The owner of a Workspace object.
- A user or group of users when you manipulate the access permissions of a Container object or a Document object (Microsoft Jet workspaces only).
To find or set the permissions for a particular user or group of users, first set the UserName property to the user or group name that you want to examine. Then check the Permissions property setting to determine what permissions that user or group of users has, or set the Permissions property to change the permissions.
For a Workspace object, check the UserName property setting to determine the owner of the Workspace object. Set the UserName property to establish the owner of the Workspace object before you append the object to the Workspaces collection.
See Also
Append method, Inherited property, Password property, Permissions property.
Example
This example uses the UserName property to change a particular user's permissions on an object and to verify that user's ability to append new data to the same object.
Sub UserNameX()
' Ensure that the Microsoft Jet workgroup information
' file is available.
DBEngine.SystemDB = "system.mdw"
Dim dbsNorthwind As Database
Dim docTemp As Document
Set dbsNorthwind = OpenDatabase("Northwind.mdb")
Set docTemp = _
dbsNorthwind.Containers("Tables").Documents(0)
' Change the permissions of NewUser on the first Document
' object in the Tables container.
With docTemp
.UserName = "NewUser"
.Permissions = dbSecRetrieveData
If (.Permissions And dbSecInsertData) = _
dbSecInsertData Then
Debug.Print .UserName & " can insert data."
Else
Debug.Print .UserName & " can't insert data."
End If
End With
dbsNorthwind.Close
End Sub
Example (Microsoft Access)
See the Permissions property example (Microsoft Access).