Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запись по каким логином внесли данные / 12 сообщений из 12, страница 1 из 1
09.09.2019, 05:24
    #39859104
tuke
tuke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запись по каким логином внесли данные
Всем доброго времени суток,

Доступ в базу данных осуществляется через ввода логина и пароля, и пользователь вводит данные в основную таблицу main через форму add.
Как сделать так чтобы в таблицу main хранились логины (в поле login) пользователей которые внесли записи. Логин и пароли хранятся в таблице tblUser


ссылка на файл - https://drive.google.com/open?id=16yCZ2ON0PB_xZcgVzyaPc7zq3MW9HMRu
Вход
логин: 111
пароль:123
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.09.2019, 12:58
    #39859298
Agapov_stas
Agapov_stas
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запись по каким логином внесли данные
tuke,

Или сохранить в глобальную переменную id юзверя (не лучший вариант, по нескольким причинам) или же хранить id текущего пользователя в отдельной таблице (либо временной, либо история посещений).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.09.2019, 13:59
    #39859322
ROI
ROI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запись по каким логином внесли данные
tuke,
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Function Get_Environmental() As String
Dim sHostName As String
Dim sUserName As String
    ' Имя Контупера
    sHostName = Environ$("computername")
    ' Имя Юзверя
    sUserName = Environ$("username")
    Get_Environmental = sHostName & "     " & sUserName
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.09.2019, 15:24
    #39859390
tuke
tuke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запись по каким логином внесли данные
Agapov_stas, как реализовать? создал таблицу, потом как сделать чтоб логин туда записывался?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.09.2019, 15:26
    #39859392
tuke
tuke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запись по каким логином внесли данные
ROI,
Файл работает на разных компьютерах. Каждый раз надо в коде имя компьютера менять?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.09.2019, 15:37
    #39859402
ROI
ROI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запись по каким логином внесли данные
tukeROI,
Файл работает на разных компьютерах. Каждый раз надо в коде имя компьютера менять?
не надо менять имя контупера берется автоматом.
Environ$("computername")
вы хотя бы поиском пользуетесь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.09.2019, 21:17
    #39859584
alecko
alecko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запись по каким логином внесли данные
tuke, сохраняю в таблице в специальном раздельчике ник текущего пользователя и публичной функцией вытаскиваю его оттуда когда надо, этот ник записывается туда при входе. табличка локальная.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.09.2019, 09:31
    #39859687
Agapov_stas
Agapov_stas
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запись по каким логином внесли данные
tukeAgapov_stas, как реализовать? создал таблицу, потом как сделать чтоб логин туда записывался?
У Вас есть событие кнопки по которому Вы проверяете валидность данных логин/пароль. Вот в нем и реализуйте добавление в таблицу текущего пользователя.
Что-то типа:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Private Sub Кнопка1_Click()
If IsNull(Me.txtLoginID) Then
 MsgBox "Введите логин", vbInformation, "Login Required"
 Me.txtLoginID.SetFocus
ElseIf IsNull(Me.txtPassword) Then
 MsgBox "Введите пароль", vbInformation, "Password Required"
 Me.txtPassword.SetFocus
Else
    'Процесс работы
    If (IsNull(DLookup("UserLogin", "tblUser", "UserLogin ='" & Me.txtLoginID.Value & "'"))) Or _
    (IsNull(DLookup("password", "tblUser", "Password ='" & Me.txtPassword.Value & "'"))) Then
        MsgBox "Неправильный логин или пароль"
    Else
        CurrentDb.Execute "INSERT INTO ВашаТаблица(ПолеИмяПользователя) VALUES ('" & Me.txtLoginID.Value & "')"
        DoCmd.Close
        DoCmd.OpenForm "main"
    End If
End If
End Sub



Единственное, Вам необходимо очищать эту самую таблицу при входе, к примеру на событие Form_Load, чтобы была всегда одна запись.
Код: vbnet
1.
2.
3.
Private Sub Form_Load()
CurrentDb.Execute "DELETE * FROM ВашаТаблица"
End Sub



Достать текущего пользователя можно DLookUp -ом в необходимый момент.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.09.2019, 09:36
    #39859692
Agapov_stas
Agapov_stas
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запись по каким логином внесли данные
Только да, лучше хранить id пользователя. Мало ли какие данные понадобятся.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2019, 06:37
    #39860086
tuke
tuke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запись по каким логином внесли данные
Agapov_stas, Вы правы.
Добавил Ваш код Работает на логин, как изменить на ID логина?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2019, 06:43
    #39860088
tuke
tuke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запись по каким логином внесли данные
Agapov_stas, а что если с таблицы tblUser ID пользователя удалить и ключевым полем сделать UserLogin?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2019, 10:46
    #39860179
tuke
tuke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запись по каким логином внесли данные
Agapov_stas, Огромное спасибо, Заработал как хотел.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запись по каким логином внесли данные / 12 сообщений из 12, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 141ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1610486]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 38ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 13ms
total:  141ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]