Исправить код в БД 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 **[ТС]**

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

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

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

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

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