Исправить код в БД access (авторизация в программе) - VB
Формулировка задачи:
Моя БД называется "Склад"
на форме создала ComboBox (раскрывающийся список)
Хотелось бы ,чтобы при выборе одного из элементов списка, отображались оределенные кнопки со ссылками. Что-то с циклом у меня.
БД прилагаю
Всё происходит в форме "Авторизация"
При выборе элемента "Неизвестное лицо " ссылка на кнопку8
При Сотрудники ,если в поле ввести пароль сотрудники ,то ссылка на кнопку9
если другой пароль ,то msgbox "неправильный пароль"
При Поставщики, если пароль Поставщики, то ссылка на кнопку 10
если другой пароль ,то msgbox "неправильный пароль"
нужно найти ошибку,пожалуйста!
Решение задачи: «Исправить код в БД access (авторизация в программе)»
textual
Листинг программы
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д