Исправить код в БД access (авторизация в программе)

@Mashynya · Регистрация: 22.05.2012

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

Моя БД называется "Склад"
на форме создала ComboBox (раскрывающийся список)
Хотелось бы ,чтобы при выборе одного из элементов списка, отображались оределенные кнопки со ссылками. Что-то с циклом у меня.
БД прилагаю
Всё происходит в форме "Авторизация"
При выборе элемента "Неизвестное лицо " ссылка на кнопку8
При Сотрудники ,если в поле ввести пароль сотрудники ,то ссылка на кнопку9
если другой пароль ,то msgbox "неправильный пароль"
При Поставщики, если пароль Поставщики, то ссылка на кнопку 10
если другой пароль ,то msgbox "неправильный пароль"
нужно найти ошибку,пожалуйста!

@Mashynya · 22.05.2012, 10:47 **[ТС]**

Я немного передумала
Хочу сделать , чтобы при выборе в раскрывающемся списке отображались поля
это у меня получилось
вот

Visual Basic
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
Private Sub Form_Load()
Dim i As Integer
i = 0
Кнопка7.Visible = False
Надпись6.Visible = False
Поле5.Visible = False
Кнопка8.Visible = False
Кнопка9.Visible = False
Кнопка10.Visible = False
Надпись12.Visible = False
Поле11.Visible = False
 
End Sub
 
 
Private Sub ПолеСоСписком3_Click()
If ПолеСоСписком3 = "Неизветное лицо" Then
Надпись6.Visible = False
Кнопка7.Visible = False
Поле5.Visible = False
Кнопка8.Visible = True
Кнопка9.Visible = False
Кнопка10.Visible = False
Надпись12.Visible = False
Поле11.Visible = False
Else:
Кнопка7.Visible = True
Надпись6.Visible = True
Поле5.Visible = True
Кнопка9.Visible = False
Кнопка8.Visible = False
Кнопка10.Visible = False
Надпись12.Visible = True
Поле11.Visible = True
End If
End Sub

Но теперь всё равно не получается ,чтобы как в авторизации
хочу сделать ввод логина Поле11
и ввод пароля Поля5
Чтобы если неправильно введён пароль ,высвечивалось сообщение "Неправильный логин или пароль"
А если правильный,тогда появлялась кнопка9 для сотрудников или кнопка10 для поставщиков .Не знаю ,как это сделать

Добавлено через 13 минут
Для поставщиков получается(выводит кнопку), а для сотрудников - нет(((

Visual Basic
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 Кнопка7_Click()
Dim i As Integer
'проверка на кол-во попыток
If i = 3 Then
MsgBox "Вы привысили число попыток"
Exit Sub
End If
'проверка логина и пороля
If Поле11 = "Поставщики" And Поле5 = "1234" Then
i = 0
GoTo p1
Else
i = i + 1
MsgBox "Доступ отказан"
Exit Sub
End If
'начало
p1:
MsgBox "Доступ предоставлен"
Кнопка10.Visible = True
Exit Sub
 
If Поле11 = "Сотрудники" And Поле5 = "1111" Then
i = 0
GoTo p2
Else
i = i + 1
MsgBox "Доступ отказан"
Exit Sub
End If
'начало
p2:
MsgBox "Доступ предоставлен"
Кнопка9.Visible = True
Exit Sub
End If
End Sub

dev.Free · 22.05.2012, 11:12

У меня сейчас под рукой нету 2007 аксеса, буду дома посмотрю что и как.

dev.Free · 22.05.2012, 20:13

Вот держи я тебе проверку исправил. Дальше сама уже введешь свои условия. У меня голова пошла кругом от этих If Then Else. В общем там кнопка проверяет условия, если не выполнены тогда делает так, вот в этот так и допиши свои условия.

Что ты писала, я исправил полностью.

P.S. ужасное оформление кода ! ! ! !

@Mashynya · 22.05.2012, 20:54 **[ТС]**

Ура!!) В мире не без добрых людей)Спасибо тебе огромное))))!!!!!!!!

П.С.: Прошу прощения, род деятельности у меня другой

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: показать затраченные материалы за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

dev.Free Заблокирован
	22.05.2012, 11:12
	У меня сейчас под рукой нету 2007 аксеса, буду дома посмотрю что и как. 0

@Mashynya 0 / 0 / 0 Регистрация: 22.05.2012 Сообщений: 3
	22.05.2012, 20:54 [ТС]
	Ура!!) В мире не без добрых людей)Спасибо тебе огромное))))!!!!!!!! П.С.: Прошу прощения, род деятельности у меня другой 0

Опции темы