Me.подчиненная_форма.Form.Filter = "КдОтд = " + Str(Me.список4)

If Me.Флажок26 Then

Me.подчиненная_форма.Form.FilterOn = True

Else

Me.подчиненная_форма.Form.FilterOn = False

End If

End If

End Sub

Private Sub Флажок26_AfterUpdate()

   

If Not IsNull(Me.Список3) Then

        Me.подчиненная_форма.Form.Filter = "КдСтр = " + Str(Me.Список3)

        If Me.Флажок26 Then

          Me.подчиненная_форма.Form.FilterOn = True

        Else

          Me.подчиненная_форма.Form.FilterOn = False

        End If

    End If

End Sub

Работа с переключателем и кнопкой: при выборе одного из переключателей и нажатии кнопки открывается  соответсвующая переключателю форма 

Private Sub Показать_Click()

On Error GoTo Err_Показать_Click 

    Dim stDocName As String

    If Me.реал1 = 1 Then

      stDocName = "Произв/отд/сумма"

    Else

      If Me.реал1 = 2 Then

        stDocName = "Произв/сотр/сумма"

      Else

        stDocName = "Произв/товар/сумма"

      End If

    End If

     DoCmd.OpenForm stDocName, acNormal, acEdit

    

Exit_Показать_Click:

    Exit Sub 

Err_Показать_Click:

    MsgBox Err.Description

    Resume Exit_Показать_Click

   

Уведомление о  днях рождения сотрудников:  

End Sub 

Private Sub Поле7_GotFocus()

Dim DD, Y As Integer, NewDate, PlusDate, MinusDate As Date

    'тип данных для значения времени/даты в диапазоне от 1 января 100 г. до 31 декабря 9999 г.

    Dim Msg, Title

    Dim Flg As Long

Set dbs = CurrentDb 'объект для для быстрой ссылки на текущую базу данных

Set pSh = dbs.OpenRecordset("дни_рождения_сотрудников")

DD = 5 'предупреждение  должно появится за 5 дней

While Not pSh.EOF

        Y = pSh![Лет] 'количество лет

        If (Day(pSh![Текущая_дата]) < DD And Month(pSh![Текущая_дата]) = 1) Then Y = Y + 1 'кол-во дней увеличивается на 1

        NewDate = DateAdd("yyyy", Y, pSh![Текущая_дата]) 'добавление нового количества  лет в таблицу

        MinusDate = DateAdd("d", -DD, NewDate) 'установление  диапазона предупреждения о ДР

        PlusDate = DateAdd("d", DD, NewDate)

        If (Now() > MinusDate And Now() < PlusDate) Then 'если ДР находится в данном диапазоне

            Flg = 1

            Msg = Date & vbCrLf & vbCrLf & _

            CStr(pSh![Текущая_дата]) & " (Лет: " & CStr(Y) & ") " & " " & pSh![Ф] & " " & pSh![И] & " " & pSh![О]

            Title = "День рождения"    ' Заголовок.

            ' Выводит сообщение.

            MsgBox Msg, vbOKOnly, Title

          End If

pSh.MoveNext

Wend

End Sub

 

Разработка  системы защиты данных, прав и ограничений  по доступу 

     Microsoft Access обеспечивает два традиционных  способа защиты базы данных: установка  пароля, требуемого при открытии  базы данных, и защита на уровне  пользователей, которая позволяет ограничить, к какой части базы данных пользователь будет иметь доступ или какую ее часть он сможет изменять. Кроме того, можно удалить изменяемую программу Visual Basic из базы данных, чтобы предотвратить изменения структуры форм, отчетов и модулей, сохранив базу данных как файл MDE.

Установка пароля

   Простейшим  способом защиты является установка  пароля для открытия базы данных. После того как пароль установлен, при каждом открытии базы данных будет появляться диалоговое окно, в которое требуется ввести пароль. Только те пользователи, которые введут правильный пароль, смогут открыть базу данных. Этот способ достаточно надежен (Microsoft Access шифрует пароль, так что к нему нет прямого доступа при чтении файла базы данных), но он применяется только при открытии базы данных. После открытия базы данных все объекты становятся доступными для пользователя (пока не определена защита на уровне пользователей, описанная ниже в этом разделе). Для базы данных, которая совместно используется небольшой группой пользователей или на автономном компьютере, установка пароля обычно оказывается достаточной.

Защита  на уровне пользователей

   Наиболее  гибкий и распространенный способ защиты базы данных называется защитой на уровне пользователей. Этот способ защиты подобен способам, используемым в большинстве сетевых систем. От пользователей требуется идентифицировать себя и ввести пароль, когда они запускают Microsoft Access. Внутри файла рабочей группы они идентифицируются как члены группы. Microsoft Access по умолчанию создает две группы: администраторы (группа «Admins») и пользователи (группа «Users»). Допускается также определение других групп.

   Группам и пользователям предоставляются  разрешения на доступ, определяющие возможность их доступа к каждому объекту базы данных. Например, члены группы «Users» могут иметь разрешения на просмотр, ввод или изменение данных в таблице «Клиенты», но им не будет разрешено изменять структуру этой таблицы. Группа «Users» может быть допущена только к просмотру данных в таблице, содержащей сведения о заказах, и не иметь доступа к таблице «Платежная ведомость». Члены группы «Admins» имеют все разрешения на доступ ко всем объектам базы данных. Имеется возможность установить более разветвленную структуру управления, создавая собственные учетные записи групп, предоставляя этим группам соответствующие разрешения и добавляя в них пользователей.

   Следует отметить три главных преимущества защиты на уровне пользователей.

1. Защищается ваша программа как интеллектуальная собственность.
2. Приложение защищается от повреждения из-за неумышленного изменения пользователями программ или объектов, от которых зависит работа приложения.
3. Защищаются конфиденциальные сведения в базе данных.

 

Заключение

Проектирование  и разработка баз данных до сих пор остается творческим процессом. Рост потребительских качеств систем управления базами данных (СУБД) в значительной степени упростил этот процесс.

Microsoft Access, входящая в пакет Microsoft Office, на сегодня является одной из наиболее популярных СУБД реляционного типа. Она позволяет быстро создавать приложения различной степени сложности на основе технологий визуально программирования. Благодаря удобству и высокой продуктивности СУБД Access может быть полезной как начинающим программистам для создания несложных баз данных, так и профессиональным разработчикам для решения широкого класса серьезных задач.

 

Список  использованной литературы

1. Microsoft Access экспресс-курс. А. Хомоненко, В. Гордин, Санкт_Петербург,2005
2. Самоучитель программирования. Г. Пери, Санкт-Петербург,2002
3. Основы информатикт и вычислительной техники.Под ред. Пр.Гринберга А.С., Минск, 2003
4. Knowledge-технологии в консалтинге и управлении предприятием. Под ред. ФинковаМ.В., Санкт_Петербург,2003
5. Конспект лекций Белодеда Н.И.