48689 (608732), страница 3

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 3)

Кнопка 51.Visible = False

Кнопка 52.Visible = False

Кнопка 53.Visible = False

Else: MsgBox ("введите правильный пароль!!!")

DoCmd.Close acForm, "Главная"

End If

End If

End If

End Sub

3. Модуль: добавление в форму.

Option Compare Database

Sub Verifying() 'Процедура добавления элемента в список

Dim str, tmp1, tmp2 As String

Dim c, i, t, f As Integer

Dim rst As DAO.Recordset

Dim flag As Boolean

str = ""

Do While str = ""

str = InputBox("Введите название", "Ввод данных") 'Вводим новый элемент

If str = "" Then 'Предотвращение пустой строки

t = MsgBox("Строка не может быть пустой", vbInformation, "Инфо")

End If

Loop

DoCmd.OpenForm "Предприятие1", acNormal 'Открываем форму

DoCmd.GoToRecord acDataForm, "Предприятие1", acNewRec

Set rst = Forms("Предприятие1").Recordset

flag = False

rst.MoveFirst

While Not rst.EOF

If rst![Название предприятия] = str Then

flag = True

GoTo m001:

End If

rst.MoveNext

Wend

m001:

If flag Then

t = MsgBox("Такой элемент в списке уже есть. Добавление невозможно.", vbCritical)

Else

t = MsgBox("Вы действительно желаете добавить новый элемент списка?", vbQuestion + vbYesNo, "Вы уверены?")

If t = 6 Then

rst.AddNew

rst![Название предприятия] = str

rst.Update

z = MsgBox("Добавленно новое название: " & str, vbInformation)

ElseIf t = 7 Then 'отказ от добавления

t = MsgBox("Прервано пользователем!", vbOKOnly + vbCritical, "Error")

End If

End If

DoCmd.OpenForm "Предприятие1", acNormal 'Открываем форму

End Sub

Характеристики

Список файлов курсовой работы