Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как бы обойти Form_Current() ?? Помогите... / 7 сообщений из 7, страница 1 из 1
19.07.2003, 17:20
    #32212817
ляп
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как бы обойти Form_Current() ?? Помогите...
удаляю в ленточной форме запись - идёт скачёк в Form_Current() где у меня проверяется
If Me.NewRecord Then
некоторое поле = Dmax + 1
end if

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

и как мне обойти добавление записи, при удалении записи, если у меня в Form_Current() такая вот штука. ??
...
Рейтинг: 0 / 0
19.07.2003, 18:06
    #32212823
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как бы обойти Form_Current() ?? Помогите...
Чтобы какой-то кусок кода не выполнялся, можно сделать 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:16
    #32212825
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как бы обойти Form_Current() ?? Помогите...
так же если логика позволяет
можно делать не как
некоторое поле = Dmax + 1
а
как некоторое поле .DefauktValue = Dmax + 1
Таким образром новая запись создаваться не будет, хотя расчет поля и будет произведен
...
Рейтинг: 0 / 0
19.07.2003, 18:39
    #32212827
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как бы обойти Form_Current() ?? Помогите...
то бтшь: DefaultValue
...
Рейтинг: 0 / 0
19.07.2003, 18:46
    #32212828
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как бы обойти Form_Current() ?? Помогите...
то б и шь

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


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

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

Зато факт, что нехорошо пользоваться Current для событий, связанных с добавлением записей.
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как бы обойти Form_Current() ?? Помогите... / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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