Присвоение переменной значения поля таблицы

@Nicollum · Регистрация: 26.02.2013

Author24 — интернет-сервис помощи студентам

Уважаемые форумчане!

В VBA я не силен, только учусь...

Нужна помощь следующего плана:
Есть БД Access к которой прикручена простенькая "Авторизация" (таблица ID, Логин, Пароль и форма для ввода логина и пароля).
Есть форма, данные из которой вносятся по нажатию кнопки в другую таблицу "Проверка", в которую, в свою очередь, должна попадать также информация о пользователе, который ее туда заносит.

Как сделать так, чтобы ID пользователя, который "вошел в БД" где-то фиксировался и в конечном итоге по нажатию на кнопку Записать вносился с остальными данными, которые пользователь занес в форму, в таблицу "Проверка"?

На текущий момент я вижу это так:
- в ходе авторизации некой переменной присваивается значение поля ID
- по нажатию на кнопку записать при помощи Insert into данные вносятся в конечную таблицу

Если ход моих рассуждений верен, то у меня не получается присвоить переменной значение конкретной ячейки...

@Андрэич · 26.02.2013, 15:48

Путеводитель по разделу
Смотри подраздел Код VBA

@Nicollum · 26.02.2013, 16:27 **[ТС]**

В путеводителе уже смотрел, возможно, недостаточно внимательно... Поковыряю еще.
"Парольный доступ" реализовал, не могу решить проблему именно с фиксацией залогинившегося пользователя в таблицах, в которые он вносит данные через форму.

@Андрэич · 27.02.2013, 17:50

А пользователь в (сеансовой) переменной? Либо это имя пользователя в рабочей группе (до 2003) или пользователя в системе?

Добавлено через 2 часа 14 минут

Сообщение от Nicollum

На текущий момент я вижу это так:
- в ходе авторизации некой переменной присваивается значение поля ID
- по нажатию на кнопку записать при помощи Insert into данные вносятся в конечную таблицу

Если ход моих рассуждений верен, то у меня не получается присвоить переменной значение конкретной ячейки...

Да, извиняюсь, не дочитал до конца, правильно. Должна быть отдельная таблица пользователей. В переменную запоминать лучше не ID, но имя юзера, так как теоретич значение счётчика может измениться, а при создании записи вносить этот стринг в таблицу. Кроме того, в зависимости от задач, в соотв таблицах могут быть поля не только Кто создал запись, но и Кто её изменил потом, а также время создания (для этого достаточно значения по умолчанию в таблице =Now); время изменения записи (также); Виндовс юзер; пользователь рабочей группы (если соэдана). Последнее (если уж совсем серьёзно) тогда наверно лучше сделать отдельным логом - например, связанной таблицей (или связанным текстовым, можно кодированным, файлом).
- Получение конктретного значения из таблицы:
переменная = Nz(DLookup("ПолеЛогин", "tblПользователи"), vbNullString) или с формы, лучше функцией.
- Винюзер:

Visual Basic

Function CurrUser () as String
Dim oWS as Object
Set oWS = CreateObject("WScript.Network")
CurrUser = oWS.username
Set oWS = nothing
End function

- Пользователь рабочей группы (если группы нет, то по умолчанию Admin) - встроенная функция CurrentUser.

"Присвоить переменной значение конкретной ячейки". Когда в форме авторизации в поле со списком из таблицы пользователей выбирается значение, его можно записывть в переменную, например, на событии После обновления поля:
переменная = Me.Поле.
После чего её подставлять, куда надо. С рабочими таблицами у себя не нашёл примера, вот на примере процедуры записи в лог ошибок:

Кликните здесь для просмотра всего текста

Visual Basic

Public Sub WriteInErrorsLog(ByVal strProc As String)
'Входной параметр - имя процедуры,в которой возникла ошибка.
Dim app As New Access.Application
Dim ws As Object
Set ws = CreateObject("wscript.network")
Dim sql As String
 
sql = "INSERT INTO sysErrorsLog_Clsss (ErrorNumber,ErrorDescript,WinUser,GroupUser,ErrorProcName) " _
  & " VALUES (" & Err.Number & ", '" & Replace(Err.Description, "'", "''") & "', '" _
  & ws.UserName & "', '" & app.CurrentUser & "', '" & strProc & "');"
'Debug.Print sql
 
CurrentProject.Connection.Execute sql    'ADO
 
Set app = Nothing: Set ws = Nothing
End Sub

Авторизация

@Nicollum 0 / 0 / 0 Регистрация: 26.02.2013 Сообщений: 4
		1
	Присвоение переменной значения поля таблицы 26.02.2013, 11:57. Показов 7204. Ответов 3 Метки нет (Все метки) Уважаемые форумчане! В VBA я не силен, только учусь... Нужна помощь следующего плана: Есть БД Access к которой прикручена простенькая "Авторизация" (таблица ID, Логин, Пароль и форма для ввода логина и пароля). Есть форма, данные из которой вносятся по нажатию кнопки в другую таблицу "Проверка", в которую, в свою очередь, должна попадать также информация о пользователе, который ее туда заносит. Как сделать так, чтобы ID пользователя, который "вошел в БД" где-то фиксировался и в конечном итоге по нажатию на кнопку Записать вносился с остальными данными, которые пользователь занес в форму, в таблицу "Проверка"? На текущий момент я вижу это так: - в ходе авторизации некой переменной присваивается значение поля ID - по нажатию на кнопку записать при помощи Insert into данные вносятся в конечную таблицу Если ход моих рассуждений верен, то у меня не получается присвоить переменной значение конкретной ячейки... 0

@Андрэич 2842 / 774 / 41 Регистрация: 20.05.2012 Сообщений: 2,055
	26.02.2013, 15:48	2
	Путеводитель по разделу Смотри подраздел Код VBA 0

@Nicollum 0 / 0 / 0 Регистрация: 26.02.2013 Сообщений: 4
	26.02.2013, 16:27 [ТС]	3
	В путеводителе уже смотрел, возможно, недостаточно внимательно... Поковыряю еще. "Парольный доступ" реализовал, не могу решить проблему именно с фиксацией залогинившегося пользователя в таблицах, в которые он вносит данные через форму. 0

	27.02.2013, 17:50