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

Работа с MS Access

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 5.626 RSS
←   Январь 2002   →
 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
29
30
31


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


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

Автор
osmor

Статистика

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

Работа с MS Access


Служба Рассылок Subscribe.Ru

Работа с MS Access

Ведущий рассылки osmor(Олег); Сайт проекта: ТЕХНОЛОГИИ ПРОГРАММИРОВАНИЯ

Выпуск № 42

Доброго времени, уважаемые подписчики.

С этой рассылки открывается новая рублика. Рабочее название "ЗАКРОМА".
И этой рублике будут публиковаться ссылки на материалы и выдержки из статей которые появились на сайте около года назад.
Ведь возможно вы бьетесь над задачей решение которой уже давным давно есть в закромах сайта
http://msa.km.ru ТЕХНОЛОГИИ ПРОГРАММИРОВАНИЯ.
Нужно только хорошенько порыться в закромах.
Но сначала, новые поступления ...
С Т А Т Ь И
21 января 2002 г. Forum+ >> Ассеss - общие
Access теряет Publuc функции и глобальные переменный.
У вас такое бывает? Дядя Федор подскажет вам как решить эту проблему...
18 января 2002 г. Access-EASY >> Объекты БД >> Формы
Изменение размеров списка (ListBox) при изменении размера формы.
Если форма содержит только один элемент управления список (ListBox), довольно просто реализовать изменение его размеров при изменении размеров формы таким образом, чтобы список занимал всю форму
17 января 2002 г. Forum+ >> Монстры Access
Chally - в галерее ...
Монстр с ребенком ...
17 января 2002 г. Forum+ >> Курилка
У вас в руках - форум раздела по ACCESS. Почти в руках :))
16 января 2002 г. Access-Experiens >> Юрий Шерман
Слияние полей из разных строк запроса
Как соединить данные полей из разных строк запроса в одно поле? Вашему вниманию предлагаются несколько вариантов ...
14 января 2002 г. Forum+ >> Forms
Как сделать изменяющиеся кнопки при наведении на них мышью?
Есть такие кнопки Active-X которые изменяют внешний вид при прохождении над ними мыши. Такой же эффект можно получить стандартными свойствами MSAccess-97.
14 января 2002 г. Forum+ >> VBA
Как в строке сделать первые буквы прописными?
З А К Р О М А
08 января 2001 г. Forum+ >> VBA
Защита от Shift-а

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

Function BazyShift()
'-----------------------------
'http://msa.km.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

 

 

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

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

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное