Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Как поставить ограничение на количество записей в ленточной форме?  [new]
S_H_A_R_K
Member

Откуда:
Сообщений: 180
Я добавляю данные через форму, мне нужно сделать ограничение на количество строк (Например на 50), если будет больше, должно выдаваться сообщение о том что превышен предел, как это сделать?
29 окт 06, 11:07    [3325864]     Ответить | Цитировать Сообщить модератору
 Re: Как поставить ограничение на количество записей в ленточной форме?  [new]
prustr
Member

Откуда: C-Петербург
Сообщений: 954
то есть, можно добавить не более 50 записей?
29 окт 06, 11:24    [3325884]     Ответить | Цитировать Сообщить модератору
 Re: Как поставить ограничение на количество записей в ленточной форме?  [new]
Karfaqen
Member

Откуда:
Сообщений: 7010
Можно так:
Private Sub Form_BeforeInsert(Cancel As Integer)
    If DCount("*", "Таблица1") < 50 Then Exit Sub
    MsgBox "Первышен предел", 48: Cancel = True 
End Sub
29 окт 06, 11:25    [3325888]     Ответить | Цитировать Сообщить модератору
 Re: Как поставить ограничение на количество записей в ленточной форме?  [new]
NG
Member

Откуда: Екатеринбург
Сообщений: 1492
Private Sub Form_BeforeInsert(Cancel As Integer)
     If Me.NewRecord AND (Me.RecordsetClone.RecordCount > 50) Then
           'мягко
           MsgBox "Текст предупреждения"
           'жестко
           Me.AllowAdditions = False
      End If
End Sub
29 окт 06, 11:33    [3325900]     Ответить | Цитировать Сообщить модератору
 Re: Как поставить ограничение на количество записей в ленточной форме?  [new]
NG
Member

Откуда: Екатеринбург
Сообщений: 1492
Я опаздун и перестраховщик.
29 окт 06, 11:38    [3325908]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить