ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / В VBA узнать на последней ли я записи???
5 сообщений из 5, страница 1 из 1
В VBA узнать на последней ли я записи???
    #32278957
Фотография Темный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Темный
Участник
Исходные условия:
Ленточная форма.

Числовое поле.

Если оно (поле) = 0, то выдается сообщение: "Вы действительно хотите оставить это поле с нулевым значением?"

Если нет - то без каких-либо вопросов...


Возможное решение:
Пробежаться по всем записям, благо их там немного, и проверить равняется ли это поле нулю. Если равняется, то выйти из цикла, и вывести сообщение. Если нет, то продолжить цикл. Продолжать цикл до тех пор, пока не дойду до последней записи в форме.


Собсно, проблема:
Как мне узнать, на последней ли я записи? Все (ну или почти все) свойства формы облазил, но не нашел свойства, отвечающего за количество записей в форме. Мобыть, плохо искал???
...
Рейтинг: 0 / 0
29.09.2003, 23:10
| Ответить | Цитировать | Написать  
В VBA узнать на последней ли я записи???
    #32278985
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander G
Участник
вариант с обработкой ошибки
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Me.AllowAdditions = False
DoCmd.GoToRecord , , acFirst

Do
On Error GoTo  0 
'проверка поля ....
On Error Resume Next
DoCmd.GoToRecord , , acNext
Loop While Not Err =  2105 

Me.AllowAdditions = True
...
Рейтинг: 0 / 0
30.09.2003, 02:37
| Ответить | Цитировать | Написать  
В VBA узнать на последней ли я записи???
    #32279037
IgorM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorM
Участник
Для A'97 можно проверить так:

Код: plaintext
1.
 Me.RecordsetClone.Bookmark = Me.Bookmark
 If ((Me.RecordsetClone.AbsolutePosition +  1 ) = Me.RecordsetClone.RecordCount) Then ...

Добавив, при необходимости, контроль ошибок, если текущая запись новая.

Для A'200x можно упростить:

Код: plaintext
If ((Me.Recordset.AbsolutePosition +  1 ) = Me.Recordset.RecordCount) Then ...
...
Рейтинг: 0 / 0
30.09.2003, 08:59
| Ответить | Цитировать | Написать  
В VBA узнать на последней ли я записи???
    #32279050
Фотография Нуф-нуф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нуф-нуф
Участник
Ну раз пошла такая пиянка, то:
А через Мe.NewRecord можно является ли текущая запись новой...
...
Рейтинг: 0 / 0
30.09.2003, 09:15
| Ответить | Цитировать | Написать  
В VBA узнать на последней ли я записи???
    #32279641
Фотография Темный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Темный
Участник
Ура! Значит я не один такой .....
Мой вариант:
Встаем на первую запись.
Цикл до второго пришествия:
Узнаем ее номер и запоминаем его (n).
Встаем на последнюю запись.
Сравниваем номера.
Если равны, то
переходим на n.
иначе
выходим из цикла.
Переходим на следующую запись.
К.Ц.
...
Рейтинг: 0 / 0
30.09.2003, 15:21
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / В VBA узнать на последней ли я записи???
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32279050&tid=1679146]:
 0ms
get settings:
 8ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 164ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 218ms
total:  487ms
созд. / загр.: 487ms
x
x
Закрыть


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