| |
|
|
| | Можно как нибудь узнать имя пользователя записавшего текущую запись | |
| |
| |
| |
|
|
| | да
если сначала это имя сохранить в дополнительном поле в таблице - в эту запись | |
| |
| |
| |
|
|
| | А ещё можно добавить поле - дата и время записи. 
со значением по умолчанию как Date или Now | |
| |
| |
| |
|
|
| | Если тебе нужен логин пользователя
глянь пример
Option Compare Database
Option Explicit
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetCurrentUserName() As String
Dim strName As String
Dim lngChars As Long
Dim lngRet As Long
strName = Space(255)
lngChars = 255
lngRet = GetUserName(strName, lngChars - 1)
If lngRet > 0 Then
GetCurrentUserName = Replace(strName, " ", "")
GetCurrentUserName = Replace(GetCurrentUserName, Chr$(0), "")
Else
GetCurrentUserName = "Unknow"
End If
End Function
|
а при вводе новой записи добавь поле со значением этой функции  | |
| |
| |
| |
 11 Кб. |
|
| | Мне выдает сообщение "constants, fixed-length string, arrays, user-defined types and Declare statements not allowed as public members of object modules" (констант, с фиксированной длиной строки, массивы, пользовательские типы и объявить заявления не допускается в качестве общественного членами объектных модулей) что я неправильно делаю? | |
| |
| |
| |
10 Кб. |
|
| | А если так? Я думаю тоже вариант нормальный. | |
| |
| |
| |
|
|
| | А куда делось поле - данные???
Тока дата - которая автоматом
И юзер - которая тожа автоматом заносятся....
а данные
============================================
Вон подсказывают юзера Добавляем например запросом - который сработает после обновления поля с данными
Дата прямо в таблице записывается.
Надо добавить поле дата и заносить новые данные.......... | |
| |
| |
| |
|
|
| | перевожу.
Вы вставили код в модуль формы,
а нужно в отдельный модуль | |
| |
| |
|
|
| |
|
|
| | есть така штука
Dim a As String
a = Environ("username")
если заполнение таблицы идет идет через свободную форму , то долнительное поле через эту чтуковину заполняется по тихому и влёт ... и не нать никаких Win32API ... всё гораздо прошшче | |
| |
| |
|
|
|
|
|
|
| |
|
|
| | я стараюсь не использовать переменные окружения Environment Variables - это не кошерно и тому есть много причин
лучше и надежнее использовать функции API | |
| |
| |
| |
|
|
| | ... т.е. только как временная полумера ? ... оч хочется узнать хотя бы пару причин (основных разумеется) дабы не наступить на эти грабли потом  | |
| |
| |
| |
|
|
| | главная - значения переменных окружения Environ относительно просто можно подменить :) | |
| |
| |
