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

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

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

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение Это мой обзор планшета X220 с точки зрения школьника. Недавно я решила попытаться уменьшить свой. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

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

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