48689 (Разработка СУБД "Оперативный учет производственной деятельности промышленного предприятия"), страница 3

2016-07-30СтудИзба

Описание файла

Документ из архива "Разработка СУБД "Оперативный учет производственной деятельности промышленного предприятия"", который расположен в категории "". Всё это находится в предмете "информатика" из 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

Свежие статьи
Популярно сейчас
Как Вы думаете, сколько людей до Вас делали точно такое же задание? 99% студентов выполняют точно такие же задания, как и их предшественники год назад. Найдите нужный учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4144
Авторов
на СтудИзбе
666
Средний доход
с одного платного файла
Обучение Подробнее