Запрет повторяющихся записей |
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
Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |