LEADERSOFT.ru Разработка на заказ программ и сайтов
Раздел обучения информационным технологиям
Разработка программ на Access
02. Когда пользователь работает с формой, то может возникнуть ситуация, что он не ввел в нее некоторые данные (Страна, Фамилия и т.п.). Этот алгоритм решает такую проблему, пока не будут введены данные в ключевые поля форма не закроется.
Свойства продукта

 Microsoft Office: 2000,2002,2003,2007,2010  Архив с файлами: Перейти
 Операционная система: Windows XP,Vista  Применение: Базы данных Access
 Продажа: Купить  Файл исходника: ..\Access\09 Ошибки\la_errors.mdb
 Язык интерфейса: Русский

   

' Проверка при выгрузке окна
Private Sub Form_Unload(Cancel As Integer)
    If Nz(Me.Country, "") = "" Then
        Me.Country.Controls(0).ForeColor = RGB(255, 0, 0)
        MsgBox "НЕ заполнено поле Страна!", vbCritical, "Ошибка при вводе данных"
        Cancel = True ' Отменяем закрытие окна
        DoCmd.CancelEvent ' Отменяем последнее событие
        Exit Sub
    End If
    If Nz(Me.City, "") = "" Then
        Me.City.Controls(0).ForeColor = RGB(255, 0, 0)
        MsgBox "НЕ заполнено поле Город!", vbCritical, "Ошибка при вводе данных"
        Cancel = True ' Отменяем закрытие окна
        DoCmd.CancelEvent ' Отменяем последнее событие
        Exit Sub
    End If
    ' Запрашиваем закрытие окна
    If MsgBox("Закрыть окно !", vbInformation + vbOKCancel, "Выход из программы") <> vbOK Then
        Cancel = True
        DoCmd.CancelEvent
    End If
End Sub


Copyright © 2002-2015 ООО Лидер Эксэсс
Сайт работает под управлением: ASP.NET, Access