ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Форма входа
25 сообщений из 85, страница 3 из 4
  3  все
Форма входа
    #37905920
alvk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alvk
Участник
stasa,

не понял, моё сообщение высветилось белым шрифтом или вам нужно пример БД приложить?
...
Рейтинг: 0 / 0
06.08.2012, 16:06
| Ответить | Цитировать | Написать  
Форма входа
    #37905932
alvk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alvk
Участник
alvk,

шож
...
Рейтинг: 0 / 0
06.08.2012, 16:10
| Ответить | Цитировать | Написать  
Форма входа
    #37906016
stasa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stasa
Гость
alvk,
спасибо, но счастье только снится...
теперь не распознаются значения из поля position в select case(
...
Рейтинг: 0 / 0
06.08.2012, 16:52
| Ответить | Цитировать | Написать  
Форма входа
    #37906546
alvk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alvk
Участник
stasa,

значит не по тому столбцу в поле со списком case делаете - элементарно.
...
Рейтинг: 0 / 0
07.08.2012, 00:36
| Ответить | Цитировать | Написать  
Форма входа
    #37953029
NOOBик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NOOBик
Гость
Код: vbnet
1.
2.
3.
4.
Добрый день всем. Я извиняюсь, что поднимаю эту тему снова, но я перепробовал все возможные и не возможные варианты
". FindFirst (" Login = "& Me.cboCurrentEmployee.Value)"
знак равенства у меня стоял, может то проблема что у меня Акс 2010 стоит??
Спасибо на перед
...
Рейтинг: 0 / 0
11.09.2012, 16:54
| Ответить | Цитировать | Написать  
Форма входа
    #37953038
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwerty112
Гость
NOOBик
Код: vbnet
1.
2.
3.
4.
Добрый день всем. Я извиняюсь, что поднимаю эту тему снова, но я перепробовал все возможные и не возможные варианты
". FindFirst (" Login = "& Me.cboCurrentEmployee.Value)"
знак равенства у меня стоял, может то проблема что у меня Акс 2010 стоит??
Спасибо на перед


и что ?
...
Рейтинг: 0 / 0
11.09.2012, 16:58
| Ответить | Цитировать | Написать  
Форма входа
    #37953086
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
NOOBик,
Слабо посмотреть help про синтаксис FindFirst.
Не нужен ли еще один символ конкатенации?
...
Рейтинг: 0 / 0
11.09.2012, 17:16
| Ответить | Цитировать | Написать  
Форма входа
    #37953114
NOOBик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NOOBик
Гость
sdku,

смотрел Хелпик((( не помогло и не пойму что делаетсо-то(((
...
Рейтинг: 0 / 0
11.09.2012, 17:31
| Ответить | Цитировать | Написать  
Форма входа
    #37953128
NOOBик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NOOBик
Гость
qwerty112,

Если можете подскажите пожалуйста где моя ошибка, не могу понять. спасибо
...
Рейтинг: 0 / 0
11.09.2012, 17:34
| Ответить | Цитировать | Написать  
Форма входа
    #37953141
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwerty112
Гость
NOOBикqwerty112,

Если можете подскажите пожалуйста где моя ошибка, не могу понять. спасибо
пока так - 12489898

окажется что поле Login текстовое - возвращайтесь
...
Рейтинг: 0 / 0
11.09.2012, 17:38
| Ответить | Цитировать | Написать  
Форма входа
    #37953149
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
NOOBик,
Код: vbnet
1.
набор.FindFirst "login='" & условие & "'"
...
Рейтинг: 0 / 0
11.09.2012, 17:43
| Ответить | Цитировать | Написать  
Форма входа
    #37953160
NOOBик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NOOBик
Гость
qwerty112NOOBикqwerty112,

Если можете подскажите пожалуйста где моя ошибка, не могу понять. спасибо
пока так - 12489898

окажется что поле Login текстовое - возвращайтесь

Все так и есть
Код: vbnet
1.
2.
Else:
                 .FindFirst ("Login=" & Me.cboCurrentEmployee.Value)
...
Рейтинг: 0 / 0
11.09.2012, 17:49
| Ответить | Цитировать | Написать  
Форма входа
    #37953166
NOOBик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NOOBик
Гость
sdkuNOOBик,
Код: vbnet
1.
набор.FindFirst "login='" & условие & "'"



Ошибка "3251" (((
...
Рейтинг: 0 / 0
11.09.2012, 17:51
| Ответить | Цитировать | Написать  
Форма входа
    #37953175
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
NOOBик,
а что есть наборЗаписей?
...
Рейтинг: 0 / 0
11.09.2012, 17:57
| Ответить | Цитировать | Написать  
Форма входа
    #37953863
NOOBик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NOOBик
Гость
А никто не пробовал эту форму входа на Access 2010??
...
Рейтинг: 0 / 0
12.09.2012, 10:18
| Ответить | Цитировать | Написать  
Форма входа
    #38290990
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
Сообщение SPOR удалено как офтоп.
...
Рейтинг: 0 / 0
07.06.2013, 20:00
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Форма входа
    #38669894
kvitnitskiy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kvitnitskiy
Гость
Доброго времени суток, уважаемые.
подскажите пожалуйста, как пи использовании данного входа, имя пользователя, передать на форму которая запускается после ввода логинапароля?
Типа видно что бы было что за пользователь залогинился.
...
Рейтинг: 0 / 0
15.06.2014, 22:58
| Ответить | Цитировать | Написать  
Форма входа
    #38669902
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
kvitnitskiy,

пример
...
Рейтинг: 0 / 0
15.06.2014, 23:28
| Ответить | Цитировать | Написать  
Форма входа
    #38684287
Антон68
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Антон68
Гость
Подскажите, пожалуйста, где задать глобальную переменную, которой кнопкой входа присваиваем значение ИД пользователя, дабы пользоваться на остальных вкладках?
...
Рейтинг: 0 / 0
01.07.2014, 02:34
| Ответить | Цитировать | Написать  
Форма входа
    #38684369
П-Л
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
П-Л
Участник
Рекомендую хранить "неубиваемые" глобальные переменные в полях скрытой формы, живущей все время работы приложения. Можно сделать ее и визувлизируемой, если красиво оформить их в виде неких глобальных параметров.

Можно пойти дальше - сделать удобный люк для разработчика. Если пользователь опознан как разработчик, то поле "Пользователь" для него будет превращаться в комбобокс со списком всех зарегистрипрованных пользователей. Он может "притвориться" любым пользователем и опробовать работу системы с теми или иными ограничениями.
...
Рейтинг: 0 / 0
01.07.2014, 08:46
| Ответить | Цитировать | Написать  
Форма входа
    #38684391
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
П-ЛРекомендую хранить "неубиваемые" глобальные переменные в полях скрытой формы, живущей все время работы приложения. Можно сделать ее и визувлизируемой, если красиво оформить их в виде неких глобальных параметров.

Идея хорошая, только наверное эту форму нужно делать наоборот страшной, непонятной и с пугающими надписями типа "Скрой меня падл(), а то отформатирую диск С:\".... вдруг какой то умник догадается нажать Окно -> Отобразить -> Имя (подпись) скрытой формы.... не все же убирают стандартные панели инструментов.... может получится люк для всех подряд... может огласите усю тех-логию ???
...
Рейтинг: 0 / 0
01.07.2014, 09:28
| Ответить | Цитировать | Написать  
Форма входа
    #38688585
Антон68
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Антон68
Гость
Для начала выбрал процедуру хранения в публичной функции. Однако данный вариант имеет незначительный недостаток: при возникновении ошибки функция обнуляется и нет возможности запомнить последнее введенное значение.
Для исследования варианта альтернативы ищу способ записи в таблицу значений. Он мне кажется более практичным.

+ прошу содействия в реализации задачи доступа к кнопкам формы. Есть таблица с именами сотрудников и реализован парольный доступ к стартовой форме. Каждому сотруднику прописана роль (стартовая форма) и возможно дополнить флажками доступа к определенным кнопкам формы.
Так вот сам вопрос: можно ли реализовать возможность отображения кнопок форм в зависимости от прав (значения поля доступа сотрудника)? И как это можно сделать?
...
Рейтинг: 0 / 0
05.07.2014, 13:24
| Ответить | Цитировать | Написать  
Форма входа
    #38688744
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
Антон68можно ли реализовать возможность отображения кнопок форм в зависимости от прав

1. В конструкторе ставишь кнопкам Вывод на экран - Нет
2. В событии формы Open в зависимости от прав доступа делаешь нужным кнопкам:
Me!Кнопка1.Visible = True
...
Рейтинг: 0 / 0
06.07.2014, 00:41
| Ответить | Цитировать | Написать  
Форма входа
    #38690196
Антон68
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Антон68
Гость
Все получилось спасибо!
...
Рейтинг: 0 / 0
08.07.2014, 11:44
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Форма входа
    #39598297
mround
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mround
Гость
Помогите с кодом. Форма входа работает, пароли проверяет, но вместо открытия форм согласно назначенных прав пользователя просто закрывается форма входа и ничего не открывается. В чём может быть проблема?

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
Private Sub cmdLogin_Click() 'cmdLogin - ýòî èìÿ êíîïêè äëÿ êîòîðîé ïèøåòñÿ ñöåíàðèé
Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("ñîòðóäíèêè", dbOpenDynaset) 'ñîòðóäíèêè - óêàçûâàåì ñ êàêîé òàáëèöåé áóäåò ðàáîòàòü ñöåíàðèé
With rst
If IsNull(Me.ÔÈÎ) Then 'Óñëîâèå åñëè ïîëå âûïàäàþùåãî ñïèñêà íà ìîìåíò êëèêà ïóñòîå, òî
MsgBox "Îøèáêà âõîäà! Âûáåðèòå ïîëüçîâàòåëÿ."
Exit Sub
Else:
.FindFirst ("ÊîäÑîòðóäíèêà=" & Me.ÔÈÎ.Value) 'Åñëè ïîëå íå ïóñòîå, òî ïðîèçâîäèòñÿ ïîñê íà ñîîòâåòñòâèå ñ äàííûìè òàáëèöû Ñîòðóäíèêè
If .NoMatch Then ' Åñëè íåò ñîâïàäåíèé, òî
MsgBox "Îøèáêà âõîäà! Î äàííîì ïîëüçîâàòåëå íåò èíôîðìàöèè â ÁÄ."
Exit Sub
Else:
If Me.&#207;&#238;&#235;&#229;_&#228;&#235;&#255;_&#239;&#224;&#240;&#238;&#235;&#255;.Value <> .Fields("&#239;&#224;&#240;&#238;&#235;&#252;").Value Then '&#211;&#241;&#235;&#238;&#226;&#232;&#229; &#228;&#235;&#255; &#241;&#240;&#224;&#226;&#237;&#229;&#237;&#232;&#255; &#226;&#226;&#229;&#228;&#229;&#237;&#237;&#251;&#245; &#228;&#224;&#237;&#237;&#251;&#245; &#226; &#239;&#238;&#235;&#229; &#228;&#235;&#255; &#239;&#224;&#240;&#238;&#235;&#255; &#241; &#234;&#238;&#235;&#238;&#237;&#234;&#238;&#233; &#239;&#224;&#240;&#238;&#235;&#252; &#226; &#242;&#224;&#225;&#235;&#232;&#246;&#229; "&#209;&#238;&#242;&#240;&#243;&#228;&#237;&#232;&#234;&#232;"
MsgBox "&#207;&#224;&#240;&#238;&#235;&#252; &#237;&#229;&#239;&#240;&#224;&#226;&#232;&#235;&#252;&#237;&#251;&#233; &#232;&#235;&#232; &#237;&#229; &#241;&#238;&#238;&#242;&#226;&#229;&#242;&#241;&#242;&#226;&#243;&#229;&#242; &#232;&#236;&#229;&#237;&#232; &#239;&#238;&#235;&#252;&#231;&#238;&#226;&#224;&#242;&#229;&#235;&#255;"
Exit Sub
End If
If IsNull(Me.&#207;&#238;&#235;&#229;_&#228;&#235;&#255;_&#239;&#224;&#240;&#238;&#235;&#255;.Value) Then ' &#211;&#241;&#235;&#238;&#226;&#232;&#229; &#228;&#235;&#255; &#238;&#248;&#232;&#225;&#234;&#232; &#226; &#241;&#235;&#243;&#247;&#224;&#229;, &#229;&#241;&#235;&#232; &#239;&#238;&#235;&#229; &#228;&#235;&#255; &#239;&#224;&#240;&#238;&#235;&#255; &#237;&#229; &#231;&#224;&#239;&#238;&#235;&#237;&#229;&#237;&#237;&#238;&#229;
MsgBox "&#194;&#251; &#237;&#229; &#226;&#226;&#229;&#235;&#232; &#239;&#224;&#240;&#238;&#235;&#252;!"
Exit Sub
End If
DoCmd.Close '&#202;&#238;&#236;&#224;&#237;&#228;&#224; &#237;&#224; &#231;&#224;&#234;&#240;&#251;&#242;&#232;&#229; &#242;&#229;&#234;&#243;&#249;&#229;&#233; &#244;&#238;&#240;&#236;&#251;, &#226; &#228;&#224;&#237;&#237;&#238;&#236; &#241;&#235;&#243;&#247;&#224;&#229; &#244;&#238;&#240;&#236;&#251; &#226;&#245;&#238;&#228;&#224;
 Select Case .Fields("&#239;&#240;&#224;&#226;&#224;").Value
 Case "&#192;&#228;&#236;&#232;&#237;"
 DoCmd.OpenForm "&#192;&#228;&#236;&#232;&#237;&#241;&#234;&#224;&#255;"
 Case "&#207;&#240;&#238;&#228;&#226;&#232;&#237;&#243;&#242;&#251;&#233;"
 DoCmd.OpenForm "&#207;&#240;&#238;&#228;&#226;&#232;&#237;&#243;&#242;&#251;&#233;"
 Case "&#207;&#229;&#228;&#224;&#227;&#238;&#227;"
 DoCmd.OpenForm "&#212;&#238;&#240;&#236;&#224;_&#228;&#235;&#255;_&#239;&#229;&#228;&#224;&#227;&#238;&#227;&#238;&#226;" '&#238;&#242;&#225;&#238;&#240; &#239;&#238; &#239;&#238;&#235;&#254; &#239;&#240;&#224;&#226;&#224; &#232; &#234;&#238;&#236;&#224;&#237;&#228;&#224; &#238;&#242;&#234;&#240;&#251;&#242;&#232;&#229; &#243;&#234;&#224;&#231;&#224;&#237;&#238;&#233; &#244;&#238;&#240;&#236;&#251; &#228;&#235;&#255; &#241;&#238;&#238;&#242;&#226;&#229;&#242;&#241;&#226;&#243;&#254;&#249;&#229;&#233; &#228;&#238;&#235;&#230;&#237;&#238;&#241;&#242;&#232;
End Select
 End If
 End If
 End With
rst.Close
Set rst = Nothing
End Sub
...
Рейтинг: 0 / 0
07.02.2018, 15:50
| Ответить | Цитировать | Написать  
25 сообщений из 85, страница 3 из 4
  3  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Форма входа
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=38690196&tid=1611711]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 43ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 58ms
get tp. blocked users:
 1ms
others: 15ms
total:  162ms
созд. / загр.: 162ms
x
x
Закрыть


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