ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / непонятная run-time ошибка
6 сообщений из 6, страница 1 из 1
непонятная run-time ошибка
    #33402853
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shady
Участник
Здравствуйте.
Есть на форме кнопка вот ее код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Command6_Click()

    cnn.Execute "DELETE FROM table_naklad WHERE id = " & frm_base_work.Adodc1.Recordset("id")
    
    frm_base_work.Adodc1.Recordset.MoveLast
    frm_base_work.Adodc1.Recordset.Delete adAffectCurrent
    
    Unload Me
    
End Sub
при клике мышкой на нее все работает и нет ни каких ошибок

но у меня еще ловится нажатая клавиша, так при нажатии Esc выполняется след. код:
Код: plaintext
1.
2.
3.
4.
5.
Case  27 
            Call Command6_Click
            cnn.Execute "DELETE FROM table_naklad WHERE id = " & frm_base_work.Adodc1.Recordset("id")
            frm_base_work.Adodc1.Recordset.MoveLast
            frm_base_work.Adodc1.Recordset.Delete adAffectCurrent
            Unload Me
абсолютно одинаковый код с предыдущим... но он вываливается с ошибкой...

Дискриптор строки указывал на удаленную строку или строку, помеченную для удаления.
что я делаю не так?
...
Рейтинг: 0 / 0
28.11.2005, 11:20:45
| Ответить | Цитировать | Написать  
непонятная run-time ошибка
    #33402865
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shady
Участник
жаль что нельзя редактировать сообщения..
во втором коде Call Command6_Click, не нужно, это я еще проверял по другому... забыл удалить..
...
Рейтинг: 0 / 0
28.11.2005, 11:22:55
| Ответить | Цитировать | Написать  
непонятная run-time ошибка
    #33402875
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIKO
Гость
попробуй обновить ado перед выполнением второй проци
frm_base_work.Adodc1.Refresh
и напиши код ошибки

Call Command6_Click
frm_base_work.Adodc1.Refresh
cnn.Execute "DELETE FROM table_naklad WHERE id = " & frm_base_work.Adodc1.Recordset("id")
frm_base_work.Adodc1.Recordset.MoveLast
frm_base_work.Adodc1.Recordset.Delete adAffectCurrent
Unload Me
...
Рейтинг: 0 / 0
28.11.2005, 11:26:10
| Ответить | Цитировать | Написать  
непонятная run-time ошибка
    #33402933
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shady
Участник
2 TIKO, не помогло :(
...
Рейтинг: 0 / 0
28.11.2005, 11:40:50
| Ответить | Цитировать | Написать  
непонятная run-time ошибка
    #33403264
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
Проверь на конец рекордсета, может ты уже достиг его и удалять нечего?

Case 27
cnn.Execute "DELETE FROM table_naklad WHERE id = " & frm_base_work.Adodc1.Recordset("id")
frm_base_work.Adodc1.Recordset.MoveLast
If not frm_base_work.Adodc1.Recordset.EOF THEN
frm_base_work.Adodc1.Recordset.Delete adAffectCurrent
EndIF
Unload Me
...
Рейтинг: 0 / 0
28.11.2005, 13:23:20
| Ответить | Цитировать | Написать  
непонятная run-time ошибка
    #33404598
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shady
Участник
незнаю возможно и моя ошибка, но не уверен.
при нажатии F3 у меня работает этот код:
Код: plaintext
1.
2.
 Case  114 
                   frm_edit_contract.Show  1
при этом появляется форма, на ней кнопка есть отмена с кодом
Код: plaintext
Unload me
нажимаю на кнопку и форма будто-бы выгружается и сразу же загружается по новой, после повторного нажатия выгружается полностью. ??? почему
...
Рейтинг: 0 / 0
28.11.2005, 22:17:22
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / непонятная run-time ошибка
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=303&tid=2166794]:
 0ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 55ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 189ms
total:  332ms
созд. / загр.: 332ms
x
x
Закрыть


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