ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как бы обойти Form_Current() ?? Помогите...
7 сообщений из 7, страница 1 из 1
Как бы обойти Form_Current() ?? Помогите...
    #32212817
ляп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ляп
Гость
удаляю в ленточной форме запись - идёт скачёк в Form_Current() где у меня проверяется
If Me.NewRecord Then
некоторое поле = Dmax + 1
end if

что получается - удаляю запись - появляется ещё одна запись, и блин счетчик там срабатывает, хотя как он, и почему встаёт на новую запись??

и как мне обойти добавление записи, при удалении записи, если у меня в Form_Current() такая вот штука. ??
...
Рейтинг: 0 / 0
19.07.2003, 17:20
| Ответить | Цитировать | Написать  
Как бы обойти Form_Current() ?? Помогите...
    #32212823
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Чтобы какой-то кусок кода не выполнялся, можно сделать if. Например:

Dim Mozhno As Boolean

Private Sub Form_Current()
If Not Mozhno Then
Mozhno = True
Exit Sub
End If
...
End Sub

Private Sub Form_Delete()
Mozhno = False
End Sub

А вообще, гораздо проще вместо OnCurrent использовать AfterInsert или BeforeInsert - тогда эта проблема не будет возникать совсем.
...
Рейтинг: 0 / 0
19.07.2003, 18:06
| Ответить | Цитировать | Написать  
Как бы обойти Form_Current() ?? Помогите...
    #32212825
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
так же если логика позволяет
можно делать не как
некоторое поле = Dmax + 1
а
как некоторое поле .DefauktValue = Dmax + 1
Таким образром новая запись создаваться не будет, хотя расчет поля и будет произведен
...
Рейтинг: 0 / 0
19.07.2003, 18:16
| Ответить | Цитировать | Написать  
Как бы обойти Form_Current() ?? Помогите...
    #32212827
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
то бтшь: DefaultValue
...
Рейтинг: 0 / 0
19.07.2003, 18:39
| Ответить | Цитировать | Написать  
Как бы обойти Form_Current() ?? Помогите...
    #32212828
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
то б и шь

==
А тут ошибок не наделал?
...
Рейтинг: 0 / 0
19.07.2003, 18:46
| Ответить | Цитировать | Написать  
Как бы обойти Form_Current() ?? Помогите...
    #32212845
ляп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ляп
Гость
некоторое поле = Dmax + 1
а
как некоторое поле.DefauktValue = Dmax + 1

не очень понял, это просто поменять value на DefaultValue ??
...
Рейтинг: 0 / 0
19.07.2003, 23:20
| Ответить | Цитировать | Написать  
Как бы обойти Form_Current() ?? Помогите...
    #32212850
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Именно это и имелось в виду. Тогда к тому моменту, когда действительно станет создаваться новая запись, для этого поля уже будет приготовлено правильное начальное значение.

Правда, не факт, что это вовремя сработает в случае обычного добавления записи. Боюсь, что поле получит значение раньше, чем будет поменяно DefaultValue.

Зато факт, что нехорошо пользоваться Current для событий, связанных с добавлением записей.
...
Рейтинг: 0 / 0
20.07.2003, 00:00
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как бы обойти Form_Current() ?? Помогите...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32212850&tid=1680424]:
 0ms
get settings:
 6ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 51ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 235ms
total:  363ms
созд. / загр.: 363ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]