Изменение записи несколькими пользователями

@vb001 · Регистрация: 13.07.2018

Author24 — интернет-сервис помощи студентам

Добрый день
Борюсь с изменением записи несколькими пользователями. Фото во вложении.
Нашел интересный выход, но есть нюансы.
В Подчиненной форме на поле пишу код:

Visual Basic

1
2
3

Private Sub Примечание_Change()
    Me.Dirty = False
End Sub

Когда несколько пользователей изменяют запись поле плюс минус всегда показывает новое изминение.
Но ПРОБЕЛы не вводит.
Я умом понимаю почему, но как это обойти?

@alvk · 15.01.2021, 07:37

Вы не там ищите решение, поставьте блокировки так у всех пользователей:
И тогда заблокировано будет только поле, которое кто-то редактирует в этой конкретной записи.
p.s. я у себя в базах даже не отображаю чужие поля для редактирования, а для просмотра вывод в Эксель/Ворд или отчёты

@vb001 · 15.01.2021, 07:54 **[ТС]**

alvk, делал так. Но работает не корректно. Периодически блокирует не только ту запись которую редактируешь, но и другие.
Мой вариант есть возможность допилить?

@alvk · 15.01.2021, 09:23

Сообщение от vb001

Периодически блокирует не только ту запись которую редактируешь, но и другие.

Значит не у всех настроено. Должно быть у каждого клиента, который работает с программой, на каждом Акцессе.
У меня редактировали одну запись до 5 человек одновременно и ничего страшного.

@vb001 · 15.01.2021, 15:18 **[ТС]**

И все же. Как обойти в моем случае чтобы пробелы могли ставить?

@Eugene-LS · 15.01.2021, 15:42

Сообщение от vb001

Как обойти в моем случае чтобы пробелы могли ставить?

Отлавливать конфликт и "рефрешить" форму с копированием и вставкой своего значения

@Silur · 16.01.2021, 08:49

В таких случаях я делал так.
1. Доставал данные запросом и распихивал их в форме по полям
2. корректировал данные
3. вставлял запросом.

Так никаких конфликтов между пользователями не возникало.

@vb001 · 16.01.2021, 10:10 **[ТС]**

Silur, Хм. Спасибо буду думать.
Eugene-LS, А как отловить ввод пробела? Если бы его поймать в процедуре Примечание_Change() можно было бы функцией если обходить

@Eugene-LS · 16.01.2021, 10:25

Сообщение от vb001

А как отловить ввод пробела?

например так:

Visual Basic

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Событие формы Нажатие Клавиши
    'Свойство формы KeyPreview должно быть = On
    If KeyCode = 32 Then MsgBox "Вы нажали клавишу [SPACE]!", vbInformation
End Sub

@vb001 · 16.01.2021, 19:39 **[ТС]**

Eugene-LS, это вы отлавливаете в KeyDown. Я это умею. Но мне же надо в процедуре Change поймать

Добавлено через 1 минуту
Я пробовал в KeyDown прикрутить Me.Dirty = False, но у меня ничего не вышло. Почему то.

@Eugene-LS · 16.01.2021, 19:45

Сообщение от vb001

Но мне же надо в процедуре Change поймать

Visual Basic

Private Sub txtTestMemo_Change()
    If Right(Me!txtTestMemo.Text, 1) = " " Then
        MsgBox "Вы нажали клавишу [SPACE]!", vbInformation
    End If
End Sub

@vb001 · 18.01.2021, 07:47 **[ТС]**

Eugene-LS, то что надо. От души

@Панург · 18.01.2021, 09:43

Сообщение от vb001

то что надо

ну так себе... А если пользователь вставит слово с конечным пробелом или удалит до пробела?

@vb001 · 18.01.2021, 09:46 **[ТС]**

Панург, А в Аксе пробелы в любом случае подрезаются при обновлении / смене фокуса

@Панург · 18.01.2021, 11:41

Сообщение от vb001

А в Аксе пробелы в любом случае подрезаются при обновлении / смене фокуса

зачем тебе тогда нужно на событие изменения их получать?

@vb001 В работе 24 / 19 / 6 Регистрация: 13.07.2018 Сообщений: 829 Записей в блоге: 12
	18.01.2021, 07:47 [ТС]	12
	Eugene-LS, то что надо. От души 0

@vb001 В работе 24 / 19 / 6 Регистрация: 13.07.2018 Сообщений: 829 Записей в блоге: 12
	18.01.2021, 09:46 [ТС]	14
	Панург, А в Аксе пробелы в любом случае подрезаются при обновлении / смене фокуса 0

@alvk 7398 / 4535 / 295 Регистрация: 12.08.2011 Сообщений: 14,023
	15.01.2021, 07:37	2
	Вы не там ищите решение, поставьте блокировки так у всех пользователей: И тогда заблокировано будет только поле, которое кто-то редактирует в этой конкретной записи. p.s. я у себя в базах даже не отображаю чужие поля для редактирования, а для просмотра вывод в Эксель/Ворд или отчёты Миниатюры 1

@vb001 В работе 24 / 19 / 6 Регистрация: 13.07.2018 Сообщений: 829 Записей в блоге: 12
	15.01.2021, 07:54 [ТС]	3
	alvk, делал так. Но работает не корректно. Периодически блокирует не только ту запись которую редактируешь, но и другие. Мой вариант есть возможность допилить? 0

@alvk 7398 / 4535 / 295 Регистрация: 12.08.2011 Сообщений: 14,023
	15.01.2021, 09:23	4
	Сообщение от vb001 Периодически блокирует не только ту запись которую редактируешь, но и другие. Значит не у всех настроено. Должно быть у каждого клиента, который работает с программой, на каждом Акцессе. У меня редактировали одну запись до 5 человек одновременно и ничего страшного. 0

@vb001 В работе 24 / 19 / 6 Регистрация: 13.07.2018 Сообщений: 829 Записей в блоге: 12
	15.01.2021, 15:18 [ТС]	5
	И все же. Как обойти в моем случае чтобы пробелы могли ставить? 0

@Eugene-LS 10472 / 5458 / 1375 Регистрация: 05.10.2016 Сообщений: 15,468
	15.01.2021, 15:42	6
	Сообщение от vb001 Как обойти в моем случае чтобы пробелы могли ставить? Отлавливать конфликт и "рефрешить" форму с копированием и вставкой своего значения 1

@Silur 735 / 205 / 12 Регистрация: 16.01.2014 Сообщений: 680
	16.01.2021, 08:49	7
	В таких случаях я делал так. 1. Доставал данные запросом и распихивал их в форме по полям 2. корректировал данные 3. вставлял запросом. Так никаких конфликтов между пользователями не возникало. 0

@vb001 В работе 24 / 19 / 6 Регистрация: 13.07.2018 Сообщений: 829 Записей в блоге: 12
	16.01.2021, 10:10 [ТС]	8
	Silur, Хм. Спасибо буду думать. Eugene-LS, А как отловить ввод пробела? Если бы его поймать в процедуре Примечание_Change() можно было бы функцией если обходить 0

@vb001 В работе 24 / 19 / 6 Регистрация: 13.07.2018 Сообщений: 829 Записей в блоге: 12
	16.01.2021, 19:39 [ТС]	10
	Eugene-LS, это вы отлавливаете в KeyDown. Я это умею. Но мне же надо в процедуре Change поймать Добавлено через 1 минуту Я пробовал в KeyDown прикрутить Me.Dirty = False, но у меня ничего не вышло. Почему то. 0

@Панург Мы один, давай на "ты" 3421 / 1299 / 312 Регистрация: 16.06.2016 Сообщений: 3,046
	18.01.2021, 09:43	13
	Сообщение от vb001 то что надо ну так себе... А если пользователь вставит слово с конечным пробелом или удалит до пробела? 0

@Панург Мы один, давай на "ты" 3421 / 1299 / 312 Регистрация: 16.06.2016 Сообщений: 3,046
	18.01.2021, 11:41	15
	Сообщение от vb001 А в Аксе пробелы в любом случае подрезаются при обновлении / смене фокуса зачем тебе тогда нужно на событие изменения их получать? 0

Изменение записи несколькими пользователями

Решение