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

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запрет повторяющихся записей

9 сообщений из 9, страница 1 из 1

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

#39835111

metro-maks

Гость

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

Код: sql

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.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.

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

...

Рейтинг:

0 / 0

08.07.2019, 17:29

| Ответить | Цитировать | Написать

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

#39835130

sdku

Участник

Откуда: Краснодар

Сообщения: 7 762

Рейтинг: 0 / 0

metro-maks,

Код: vbnet

1.
2.
3.

If(Dcount("*","tbl","удостоверение=" & Me.удостоверение & " and дата=" & Format(Me!Дата, "\#mm\/dd\/yyyy\#")>1 then
msgbox "уже есть"
end if

И так,упаси боже, до 32 операторов AND или OR

...

Рейтинг:

0 / 0

08.07.2019, 17:55

| Ответить | Цитировать | Написать

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

#39835149

metro-maks

Гость

sdku,

Кажется я делаю что-то не так - синтаксическая ошибка постоянно:

Код: sql

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.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.

Option Compare Database
Option Explicit

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

    If Me!&#211;&#228;&#238;&#241;&#242;&#238;&#226;&#229;&#240;&#229;&#237;&#232;&#229;.ListIndex = -1 Then
        MsgBox "&#194;&#194;&#197;&#196;&#200;&#210;&#197; &#210;&#192;&#193;&#197;&#203;&#220;&#205;&#219;&#201; &#205;&#206;&#204;&#197;&#208;!", vbExclamation
        Me!&#211;&#228;&#238;&#241;&#242;&#238;&#226;&#229;&#240;&#229;&#237;&#232;&#229;.SetFocus
     
        Exit Sub
    End If
    
    If IsNull(Me!&#196;&#224;&#242;&#224;) = True Then
        MsgBox "&#194;&#219;&#193;&#197;&#208;&#200;&#210;&#197; &#196;&#192;&#210;&#211;!", vbExclamation
        Me!&#196;&#224;&#242;&#224;.SetFocus
        Exit Sub
    End If

'&#207;&#240;&#238;&#226;&#229;&#240;&#234;&#224;

    s = "&#228;&#224;&#242;&#224;=" & Format(Me!&#196;&#224;&#242;&#224;, "\#mm\/dd\/yyyy\#")
    l = Dcount("*","&#199;&#224;&#239;&#232;&#241;&#252;","&#211;&#228;&#238;&#241;&#242;&#238;&#226;&#229;&#240;&#229;&#237;&#232;&#229;=" & Me.&#211;&#228;&#238;&#241;&#242;&#238;&#226;&#229;&#240;&#229;&#237;&#232;&#229; & " and &#196;&#224;&#242;&#224;=" & Format(Me!&#196;&#224;&#242;&#224;, "\#mm\/dd\/yyyy\#")
    If l >= 1 Then
    MsgBox "&#211;&#230;&#229; &#229;&#241;&#242;&#252;"
End If
    
    'Debug.Print l
    If l >= 104 Then
        MsgBox "&#199;&#192;&#207;&#200;&#209;&#220; &#205;&#192; &#196;&#192;&#205;&#205;&#211;&#222; &#196;&#192;&#210;&#211; &#199;&#192;&#194;&#197;&#208;&#216;&#197;&#205;&#192;!", vbExclamation
        Me!&#196;&#224;&#242;&#224;.SetFocus
        Exit Sub
    End If
   
    
'&#196;&#238;&#225;&#224;&#226;&#235;&#229;&#237;&#232;&#229;
    Me.Dirty = False
    s = "&#199;&#192;&#207;&#200;&#209;&#220; &#211;&#209;&#207;&#197;&#216;&#205;&#206; &#194;&#219;&#207;&#206;&#203;&#205;&#197;&#205;&#192;!" & vbCrLf & "&#194;&#192;&#216;&#192; &#199;&#192;&#207;&#200;&#209;&#220; &#185;: " & l + 1 & ""
    MsgBox s, vbInformation
    DoCmd.Close acForm, Me.Name '&#199;&#224;&#234;&#240;&#251;&#242;&#232;&#229; &#242;&#229;&#234;&#243;&#249;&#229;&#233;
    DoCmd.OpenForm "index"
    
End Sub


Private Sub &#211;&#228;&#238;&#241;&#242;&#238;&#226;&#229;&#240;&#229;&#237;&#232;&#229;_AfterUpdate()
Me.&#234;&#238;&#228;_&#254;&#230;&#228; = DLookup("&#234;&#238;&#228;", "&#254;&#230;&#228;", "&#243;&#228;&#238;&#241;&#242;&#238;&#226;&#229;&#240;&#229;&#237;&#232;&#229; =" & Me.&#211;&#228;&#238;&#241;&#242;&#238;&#226;&#229;&#240;&#229;&#237;&#232;&#229;.Column(0))
End Sub

...

Рейтинг:

0 / 0

08.07.2019, 18:13

| Ответить | Цитировать | Написать

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

#39835153

metro-maks

Гость

Кажется я делаю что-то не так - вечно ошибка лезет

Код: sql

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.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.

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("*","Запись","Удостоверение=" & Me.Удостоверение & " and Дата=" & Format(Me!Дата, "\#mm\/dd\/yyyy\#")
    If l >= 1 Then
    MsgBox "Уже есть"
End If
    
    '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

...

Рейтинг:

0 / 0

08.07.2019, 18:15

| Ответить | Цитировать | Написать

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

#39835167

sdku

Участник

Откуда: Краснодар

Сообщения: 7 762

Рейтинг: 0 / 0

звиняйте-упустил что удостоверение должно быть текстом и обрамляется апострофами:

Код: vbnet

...удостоверение='" &  me.удостоверение & "' and.....

...

Рейтинг:

0 / 0

08.07.2019, 18:38

| Ответить | Цитировать | Написать

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

#39835171

metro-maks

Гость

Код: sql

    l = DCount ("*", "&#199;&#224;&#239;&#232;&#241;&#252;", "&#211;&#228;&#238;&#241;&#242;&#238;&#226;&#229;&#240;&#229;&#237;&#232;&#229; = '" & Me.&#211;&#228;&#238;&#241;&#242;&#238;&#226;&#229;&#240;&#229;&#237;&#232;&#229; & "' AND &#196;&#224;&#242;&#224;=" & Format(Me!&#196;&#224;&#242;&#224;, "\#mm\/dd\/yyyy\#")

Все равно ошибка где-то. или у меня руки кривые. И вверху желтым подсвечивается Private Sub addbutt_Click()

...

Рейтинг:

0 / 0

08.07.2019, 18:48

| Ответить | Цитировать | Написать

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

#39835176

metro-maks

Гость

Никак не получается....Или руки кривые.

Код: plsql

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.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.

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 ("*", "Запись", " Удостоверение = " & Me.Удостоверение & " AND Дата=" & Format(Me!Дата, "\#mm\/dd\/yyyy\#")
    If l >= 1 Then
    End If
    
    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

...

Рейтинг:

0 / 0

08.07.2019, 18:56

| Ответить | Цитировать | Написать

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

#39835386

sdku

Участник

Откуда: Краснодар

Сообщения: 7 762

Рейтинг: 0 / 0

metro-maks,
1. проверка должна проводится на BeforeUpdate, до сохранения значения в поле, с возможностью отмены действия, если такая запись уже существует
2.моя вина-поторопился dcount надо сравнивать с 0 (=0 такой записи нет;>0 или =1 такая запись уже существует
3. так какой же тип имеет поле "удостоверение"?

...

Рейтинг:

0 / 0

09.07.2019, 12:00

| Ответить | Цитировать | Написать

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

#39835402

Кривцов Анатолий

Гость

metro-maksКак прописать чтобы повторно нельзя было внести человека с удостоверением 1111 на 01.01.2000 и выходило сообщение "Ваша запись на выбранную дату уже внесена" и соответственно не сохранялась запись). Как сделать этот запрет? Если создать уникальный составной индекс по удостоверению и дате, то Вы не сможете повторно внести №1111 на 01.01.2000.
Если ввод выполняется через форму, то сработает событие Form_Error, где по номеру ошибки можно выдать адекватное сообщение.

...

Рейтинг:

0 / 0

09.07.2019, 12:39

| Ответить | Цитировать | Написать

9 сообщений из 9, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запрет повторяющихся записей

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&fpage=30&tid=1610602]:	0ms
get settings:	11ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	35ms
get topic data:	11ms
get forum data:	2ms
get page messages:	50ms
get tp. blocked users:	2ms
others:	312ms

total:	445ms