Отправляет email-рассылки с помощью сервиса Sendsay

Работа с MS Access

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 5.626 RSS
←   Февраль 2001   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28


За последние 60 дней ни разу не выходила


Сайт рассылки: http://hiprog.com/access
Открыта: 07-02-2001

Автор
osmor

Статистика

5.626 подписчиков
-1 за неделю
←   Все выпуски   →

Работа с MS Access : (001)


Служба Рассылок Subscribe.Ru проекта Citycat.Ru

Работа с MS Access

Ведущий рассылки Виктор Познев; Сайт проекта: http://msa.km.ru
 

Выпуск 001

СЕГОДНЯ В НОМЕРЕ
 - Немного о разделе "Чайнику в помощь"
 - Защита от Shift-а
 - О рассылке

 

Чайнику в помощь

    По своему опыту я заметил, что наиболее стойкие результаты обучения я получал после практического эксперимента. Это касается любой области обучения, не исключение и разработка СУБД на MS Access'97. Вообще я буду стараться описывать проблемы простыми словами без всяких там мудреностей, т.е. ,как говорят, доступным языком. Изложение материала будет похожим на дневник "юзера" в MS Access, который постепенно вникает в суть дела.
    Самое главное, по моему мнению, понять "философию" MS Access, что за "зверь" такой и с чем его едят. Для меня была проблема понять вообще "философию" баз данных (БД), т.к. я долгое время работал с MS Excel (так называемые электронные таблицы) и с БД не сталкивался. У меня был полный "стоп" в вопросе: как можно обрабатывать наборы однотипных данных (как это происходит во всех БД). Я привык, и больше не знал ничего, кроме как взять одно значение из ячейки, обработать его и положить в определенное место. Высшим пилотажем в моей практике на тот момент были обработки данных в наборах ячеек, например: отсортировать столбец в Excel.
    Вообще, почему ко мне пришла мысль заняться изучением MS Access? Дело в том, что я делал довольно умную систему для учета хоз. деятельности одного предприятия. Вся система была сделана на Excel с кучей программ на VBA (в обычных Excel-евских модулях). И вот пришла пора (как сейчас я понимаю, это было неизбежно), когда нервы стали не выдерживать долгих обработок для построения отчетов, "оболденных" размеров файлов и непомерных запросов заказчиков для реализации в Excel (это ж сколько кода нужно наклепать, что бы это все работало как они хотят). И тогда умные люди мне посоветовали изучить Access. И вот, практически с нуля, я стал "ковырять" этого "коня" - MS Access'97. Наверняка моя история схожа со многими, кто начинал изучать Access. Тогда у меня еще небыло четких обоснований, почему я выбрал именно Access, а ни что нибудь другое (Delphi, VB, и т.д.). Здесь скорее всего сыграли родственные чувства Excel-а и Access-а (как никак один папа - Microsoft). Ну вот, вроде бы и все, что я хотел Вам рассказать о моей грустной истории.
    В следующем номере мы начнем рассказывать как делается складская база на одном из реальных примеров. После проведения каждого этапа разработки и его подробного описания будут выкладываться исходники базы (*.mdb) на сайт для закачки. Так что раздел "Чайнику в помощь" обещает быть интересным и наверняка им заинтересуются матерые специалисты в MS Access :)...

 

 

Защита от Shift-а

MSA 97: Вы можете установить свойство AllowBypassKey в False для предотвращения пропуска макрокоманды AutoExec пользователем, когда он нажимает клавишу Shift при запуске БД. Это можно сделать только используя программный код. 

'************ Code Start **********

Function BazyShift()
'-----------------------------
'http://msa.km.ru
'http://accessminsk.hotmail.ru
'-----------------------------
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
Dim TmpBool As Boolean
On Error GoTo Change_Err
    If dbs.Properties("AllowBypassKey") = True Then
        If MsgBox(" Реагируем на  " & Chr(13) & " открытый режим базы" _
         & Chr(13) & " Защитить?", vbInformation + vbYesNoCancel) = vbYes Then
            dbs.Properties("AllowBypassKey") = False
            TmpBool = MsgBox("Нормальная работа в режиме ЗАЩИТЫ" _
            & " начнется при следующем старте.", vbInformation)
        End If
    Else
        If MsgBox(" Нет реакции на " & Chr(13) & " Нормальное состояние базы" _
         & Chr(13) & " Хотите включить?", vbExclamation + vbYesNoCancel) = vbYes Then
            dbs.Properties("AllowBypassKey") = True
            TmpBool = MsgBox("Вы можете просматривать и редактировать объекты" _
            & " базы при следующем входе в нее. Незабудьте потом отключить" _
            & " реагирование на .", vbInformation)
        End If
    End If

Change_Bye:

Exit Function

Change_Err:
If Err = conPropNotFoundError Then ' Свойство не найдено.
    Set prp = dbs.CreateProperty("AllowBypassKey", dbBoolean, True)
    dbs.Properties.Append prp
    Resume Next
Else
    ' Неизвестная ошибка.
    Resume Change_Bye
End If
End Function

'************ Code End **********

 

 

О рассылке

    Планируется публиковать в рассылке всякие полезные функции и советы, FAQ нашего сата, примеры работы с ActiveX и мн. др. Надеемся на Ваше участие - присылайте свои коды, советы, пожелания и т.п.


 

 

Архив Рассылки
 
Рассылка 'Работа с MS Access'

При перепечатке или любом другом публичном использовании материалов ссылка обязательна.

http://subscribe.ru/
E-mail: ask@subscribe.ru
Поиск
В избранное