Пакет прикладных программ для управления медиатекой. Тексты программ, страница 2

        .Index = "Kod_usingunit"               ‘Присваивание кода носителя

        .Seek "=", Me![Kod_usingunit]      ‘Присваивание значения кода

        .Edit

        ![Datataken] = Date                         ‘Определение текущей даты

        .Update

        End With

       rst.Close

‘Определение формы для работы (для редактирования данных)

Set rst = dbs.OpenRecordset("Units", dbOpenTable)    ‘Устанавливаем переменную окружения таблицу «Units»

With rst

        .Index = "Kod_u"                                             ‘Присваивание кода носителя

        .Seek "=", Me![Kod_u]                                    ‘Присваивание значения кода носителя

        .Edit                                                    

‘Уменьшение  количества на единицу при возврате

        ![CountCurrent] = ![CountCurrent] – 1      

        .Update                                                             ‘Обновление

        End With

       rst.Close

   Me.Refresh                                                          'Обновляем форму

  MsgBox "Носитель возвращен"                   ‘Сообщение об успешном возвращении

    DoCmd.Close

    stDocName = "infoClient"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

  Me.Refresh 'Обновляем форму

End Sub

6. Реакция на нажатие клавиши «Новые заказы» , «Старые заказы»

Private Sub Кнопка6_Click()

    Dim stDocName As String 'определение типа переменных

    Dim stLinkCriteria As String

    stDocName = "OurClient"

    DoCmd.OpenForm stDocName, , , stLinkCriteria  ‘ открытие формы

Exit Sub

7. Процедура для кнопки «Добавить»:

Private Sub Кнопка14_Click()

Dim dbs As Database, rst As Recordset

Set dbs = CurrentDb                                        'Определение текущей БД

' Проверка на пустоту

If IsNull([kod_kn]) Then

  MsgBox "Укажите код клиента"                ‘Ввод сообщения, если нее указан код клиента

 Else

   If IsNull([FIOn]) Then                               ‘Ввод сообщения, если нее указана фамилия

     MsgBox "Укажите фамилию"               

     Else

         If IsNull([Adressn]) Then                ‘Ввод сообщения, если нее указан адрес клиента

         MsgBox "Укажите адрес"

              Else

       'Открываем таблицу "Clients"

       Set rst = dbs.OpenRecordset("Clients", dbOpenDynaset) ‘Устанавливаем переменную окружения таблицу «Clients»

           With rst

             .AddNew 'Добавляем новую строку

            ‘Присваиваем значения таблице Clients

              ![Kod_k] = Me![kod_kn]              ‘Значение кода клиента

              ![NameIO] = Me![FIOn]               ‘Значение фамилии

              ![Address] = Me![Adressn]           ‘Значение адреса клиента

              ![Phone] = Me![Phonen]                ‘Значение тлефона клиента

              .Update                                           ‘Обновляем

            End With

            dbs.Close

           ‘Сообщение об успешном добавлении

            MsgBox "Клиент дабавлен в список постоянных клиентов"

End If

End If

End If

End Sub

8. Процедура кнопки «Добавить»:

Здесь происходит проверка на правильное добавление данных. Данные добавляются в таблицу Units.

Private Sub Кнопка30_Click()

Dim dbs As Database, rst As Recordset

Set dbs = CurrentDb                          'Определение текущей БД

' Проверка на пустоту, если не указан какой-либо из параметров, то выдается сообщение

If IsNull([Kod_nos]) Then           ‘ Проверка, какие поля не введены, если какое-то не введено, выдается сообщение              

  MsgBox "Укажите код носителя"

 Else

   If IsNull([Namen]) Then

     MsgBox "Укажите название фильма"

     Else

      If IsNull([Datan]) Then

        MsgBox "Укажите дату создания"

         Else

          If IsNull([Countryn]) Then

           MsgBox "Укажите страну-производителя"

            Else

             If IsNull([Abstractsn]) Then

              MsgBox "Напишите краткую аннотацию"

                Else

                 If IsNull([Keyn]) Then

                   MsgBox "Укажите ключевые слова"

                    Else

                     If IsNull([CommonCountn]) Then

                       MsgBox "Укажите общее количество"

                        Else

                         If IsNull([CurrentCountn]) Then

                           MsgBox "Укажите количество на складе"

                            Else

                             If IsNull([langn]) Then

                               MsgBox "Укажите язык произведения"

                             Else

‘Определяем таблицу для внесения данных, Units

                             Set rst = dbs.OpenRecordset("Units", dbOpenDynaset) ‘Устанавливаем переменную окружения таблицу «Units»

                             With rst

                             .AddNew 'Добавляем новую строку

 ‘Присваиваем соответствующие значения в таблицу

          'DoCmd.GoToRecord , , acNewRec

              ![Kod_u] = Me![Kod_nos]

              ![Name] = Me![Namen]

              ![Type] = Me![Typen]

              ![DataCreation] = Me![Datan]

              ![Country] = Me![Countryn]

              ![Abstracts] = Me![Abstractsn]

              ![KeyWords] = Me![Keyn]

              ![Language] = Me![langn]

              ![CountCommon] = Me![CommonCountn]

              ![CountCurrent] = Me![CurrentCountn]

              .Update

            End With

            dbs.Close

            MsgBox "Носитель добавлен"            ‘Сообщение об успешном добавлении

End If

End If

End If

End If

End If

End If

End If

End If

End If

End Sub

9. Процедура на удаление клиента из базы данных, удаляются также все сведения о нем

Private Sub Кнопка7_Click()

Dim stDocName As String

Dim stLinkCriteria As String

Dim dbs As Database, rst As Recordset

Dim rs As Recordset