Курсовая работа: Разработка прикладного программного обеспечения деятельности отдела аренды ЗАО "Сириус"

Private Sub CommandButton2_Click()

Unload Me

ThisDrawing.Close

End Sub

Стартовая форма

//Выбор базы

Private Sub UserForm_Activate()

//Добавление базы из папки расположения AutoCAD

TextBox1.Text = ThisDrawing.Path + "\mydatabase.accdb"

//Присвоение переменной пути файла

path_db = TextBox1.Text

End Sub

//Запись в ComboBox Имени пользователя

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

ComboBox1.Text = "Илья"

End Sub

//Обработчик нажатия на OptionButton

Private Sub OptionButton1_Click()

// Меняем значение переменной на ложь. Для второй OptionButton тоже //самое, только присваиваем значение истина

chec = False

End Sub

Private Sub CommandButton2_Click()

//Присвоение переменным значений полей

a = TextBox2.Text

n = ComboBox1.Text

//проверка условия входа базу

If chec = True Then

//Проверка пароля для дальнейшей работы