-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


Запрет повторяющихся записей

Понедельник, 08 Июля 2019 г. 17:29 + в цитатник
есть форма записи на рабочий день, стоит ограничение не более 104 записей на дату, с этим все норм и работает, проблема чтобы запретить повторную запись на дату (например уже внесли человека с удостоверением 1111 на 01.01.2000. Как прописать чтобы повторно нельзя было внести человека с удостоверением 1111 на 01.01.2000 и выходило сообщение "Ваша запись на выбранную дату уже внесена" и соответственно не сохранялась запись). Как сделать этот запрет? Уже много чего перепробовал, не могу въехать. Знаю что с помощью DCount, НО КАК?? я не силен в access. Сейчас нажатие кнопки "Записаться" выглядит так:


Option Compare Database
Option Explicit

Private Sub addbutt_Click()
Dim s As String
Dim l As Long

    If Me!Удостоверение.ListIndex = -1 Then
        MsgBox "ВВЕДИТЕ ТАБЕЛЬНЫЙ НОМЕР!", vbExclamation
        Me!Удостоверение.SetFocus
     
        Exit Sub
    End If
    
    If IsNull(Me!Дата) = True Then
        MsgBox "ВЫБЕРИТЕ ДАТУ!", vbExclamation
        Me!Дата.SetFocus
        Exit Sub
    End If

'Проверка

    s = "дата=" & Format(Me!Дата, "\#mm\/dd\/yyyy\#")
    l = DCount("*", "Запись", s) 'всего записей
    
    'Debug.Print l
    If l >= 104 Then
        MsgBox "ЗАПИСЬ НА ДАННУЮ ДАТУ ЗАВЕРШЕНА!", vbExclamation
        Me!Дата.SetFocus
        Exit Sub
    End If
   
    
'Добавление
    Me.Dirty = False
    s = "ЗАПИСЬ УСПЕШНО ВЫПОЛНЕНА!" & vbCrLf & "ВАША ЗАПИСЬ №: " & l + 1 & ""
    MsgBox s, vbInformation
    DoCmd.Close acForm, Me.Name 'Закрытие текущей
    DoCmd.OpenForm "index"
    
End Sub


Private Sub Удостоверение_AfterUpdate()
Me.код_южд = DLookup("код", "южд", "удостоверение =" & Me.Удостоверение.Column(0))
End Sub

https://www.sql.ru/forum/1314581/zapret-povtoryaushhihsya-zapisey


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку