48689 (Разработка СУБД "Оперативный учет производственной деятельности промышленного предприятия"), страница 3
Описание файла
Документ из архива "Разработка СУБД "Оперативный учет производственной деятельности промышленного предприятия"", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "48689"
Текст 3 страницы из документа "48689"
Кнопка 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