Друзья, подскажите пожалуйста!
В форме Заявка1 в поле "Заказчик" делаю значение по умолчанию Модуль1 который выполняет автозаполнение имени пользователя. Проблема в том, что на служебном в компьютере вместо "Петров Иван Иванович" (что и требуется) появляется "IPetrov". В заголовке меню Пуск указан Петров Петр петрович, а при входе в Винду указан пользователь "master/IPetrov". Подскажите куда мне говорить? Спасибо!

Использую такой вот код (скопировал - вставил):
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

' Main routine to Dimension variables, retrieve user name
' and display answer.
Function Get_User_Name()

' Dimension variables
Dim lpBuff As String * 25
Dim ret As Long, UserName As String

' Get the user name minus any trailing spaces found in the name.
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

' Display the User Name
Get_User_Name = UserName
End Function

В смысле "Петров Иван Иванович" в меню Пуск.

= Environ$("UserName") не помогает, т.к. выдает только логин, а мне нужно полное в excell это успешно выполняется с application.UserName. Подскажите как это сделать в Access?

Joss, дорогой человек, спасибо что откликнулись, а то я стал подумывать, что нахожусь на необитаемом острове.
Скорее всего мне так и придется сделать. Смысл задумки был в том, что у нас люди увольняются устраиваются. Новым людям присваивают логин типа "IPetrov" который в Access не расшифровывается, а в excell до вида "Петров Иван Иванович" (так же обозначена персональная папка) расшифровывается прекрасно (application.UserName). Я уверен, что такой мощный инструмент как Access способен делать это, но ответа как конкретно это делается не нашел.

Спасибо всем откликнувшимся! court, Ваша процедура извлекает именно то, что нужно, правда результат представлен в отдельном окне, а мне нужно было присвоить значение в поле формы по умолчанию с таким результатом, но Ваша ссылка привела меня к искомому! Спасибо!