ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Удаление записи
25 сообщений из 52, страница 2 из 3
  2  все
Удаление записи
    #32538615
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
ээээ....
А у тебя таблица Table1, поле RecordID имеются? ;)
это я тебе для примера написал, и не забудь dbFailOnError в CurrentDb.Execute поставить.
...
Рейтинг: 0 / 0
28.05.2004, 12:42:11
| Ответить | Цитировать | Написать  
Удаление записи
    #32538647
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Daf
Участник
А до окошка, что не ругался?

и где ты это пишишь?

Код: plaintext
CurrentDb.Execute "DELETE * FROM Table WHERE RecordID = " & me!RecordID
...
Рейтинг: 0 / 0
28.05.2004, 12:50:28
| Ответить | Цитировать | Написать  
Удаление записи
    #32538686
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
пилять....
сори вырвалось...

вопросы
1. Ты когда-нить писал что-нить ручками в VBA/SQL?
2. есть ли параметр(ы) который однозначно определяет текущую запись если есть приведи их здесь, с описанием формата, и название соответствующего(их) полей в таблице...

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
28.05.2004, 13:04:40
| Ответить | Цитировать | Написать  
Удаление записи
    #32538687
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
ах да ещё текст ошибки

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
28.05.2004, 13:05:15
| Ответить | Цитировать | Написать  
Удаление записи
    #32538692
Victor5000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victor5000
Гость
Private Sub Кнопка20_Click()
On Error GoTo Err_Кнопка_Click
CurrentDb.Execute "DELETE * FROM Счет WHERE КодДокумента= " & Me!КодДокумента, dbFailOnError




DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Кнопка20_Click:
Exit Sub

Err_Кнопка20_Click:
MsgBox Err.Description
Resume Exit_Кнопка20_Click

End Sub

Окошко в другой форме с такойже кнопкой удаления!
Вместо Table1, RecordID свои имена вбил, ребята!!! Оно же бы тогда меня сразу в текст кода тыкало.
В принципе, меня создаваемое окошко устраивает. С "CurrentDb.Execute "DELETE * FROM Счет WHERE КодДокумента= " & Me!КодДокумента, dbFailOnError" - черт с ним. Хотелось этот вариант просто попробывать, сравнить, что лучше. Видать, не очень он корректный.
Так что всем спасибо!!!
С днем пограничника!!! :-)
...
Рейтинг: 0 / 0
28.05.2004, 13:06:56
| Ответить | Цитировать | Написать  
Удаление записи
    #32538702
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
ещё раз пять-десять пилять...

у тебя ошибка вылетает не на CurrentDb.Execute...
а на
Код: plaintext
1.
2.
DoCmd.DoMenuItem acFormBar, acEditMenu,  8 , , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu,  6 , , acMenuVer70
что и есть удаление записи только через меню...

в итоге у тебя должОн получится такой код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Кнопка20_Click()
On Error GoTo Err_Кнопка_Click
  CurrentDb.Execute "DELETE * FROM Счет WHERE КодДокумента= " _
    & Me!КодДокумента, dbFailOnError
  Me.RecordSourse = Me.RecordSourse  'для обновления данных на форме
 
  Exit_Кнопка20_Click:
  Exit Sub
Err_Кнопка20_Click:
  MsgBox Err.Description
  Resume Exit_Кнопка20_Click
End Sub

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
28.05.2004, 13:11:27
| Ответить | Цитировать | Написать  
Удаление записи
    #32538714
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Daf
Участник
Sfagnum, хочу уточнить на будущее:

Код: plaintext
1.
DoCmd.DoMenuItem acFormBar, acEditMenu,  8 , , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu,  6 , , acMenuVer70

Это работат через стандартное меню. И если его отключить, то вылезает ошибка?
...
Рейтинг: 0 / 0
28.05.2004, 13:16:20
| Ответить | Цитировать | Написать  
Удаление записи
    #32538731
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
никогда не пользовался, такие конструкции вызывают у меня панический страх, так что однзначно ответить не смогу, но что точно, так это то что индексы меняются от версии к версии...

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
28.05.2004, 13:22:30
| Ответить | Цитировать | Написать  
Удаление записи
    #32538738
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Daf
Участник
Спасибки за инфу...
...
Рейтинг: 0 / 0
28.05.2004, 13:26:15
| Ответить | Цитировать | Написать  
Удаление записи
    #32538740
Victor5000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victor5000
Гость
убрал:

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Ошибки нет

А на месте RecordSourse в "Me.RecordSourse = Me.RecordSourse" что должно то быть имя таблицы? Чего-то не втыкаюсь...
...
Рейтинг: 0 / 0
28.05.2004, 13:26:54
| Ответить | Цитировать | Написать  
Удаление записи
    #32538751
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
автор
А на месте RecordSourse в "Me.RecordSourse = Me.RecordSourse" что должно то быть имя таблицы? Чего-то не втыкаюсь


должно так и остаться, это аналог Me.Requery
...
Рейтинг: 0 / 0
28.05.2004, 13:31:11
| Ответить | Цитировать | Написать  
Удаление записи
    #32538762
Victor5000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victor5000
Гость
Так оно же ругается на: Me.RecordSourse = Me.RecordSourse
...
Рейтинг: 0 / 0
28.05.2004, 13:35:52
| Ответить | Цитировать | Написать  
Удаление записи
    #32538774
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
ругается, на *уй посылает.....

очень ценная инфа, номер ошибки слабо сказать, или сообщение само...
...
Рейтинг: 0 / 0
28.05.2004, 13:39:31
| Ответить | Цитировать | Написать  
Удаление записи
    #32538777
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Daf
Участник
А если попробовать в место
Код: plaintext
Me.RecordSourse = Me.RecordSourse

написать Form.Requery
...
Рейтинг: 0 / 0
28.05.2004, 13:41:17
| Ответить | Цитировать | Написать  
Удаление записи
    #32538799
Victor5000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victor5000
Гость
ААААА! Прости ламера.
Ругается Microsoft Visual Basic:
Compile error:
Method or data member not found

Указывает на:
Private Sub Кнопка20_Click()
On Error GoTo Err_Кнопка20_Click
CurrentDb.Execute "DELETE * FROM Счет WHERE КодДокумента = " & Me!КодДокумента, dbFailOnError

Me.RecordSourse = Me.RecordSourse '(Этот RecordSourse выделен!)


Exit_Кнопка20_Click:
Exit Sub

Err_Кнопка20_Click:
MsgBox Err.Description
Resume Exit_Кнопка20_Click


End Sub

Вот...
Что думаешь?
...
Рейтинг: 0 / 0
28.05.2004, 13:48:20
| Ответить | Цитировать | Написать  
Удаление записи
    #32538802
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
RecordSour c e, господа!!!
...
Рейтинг: 0 / 0
28.05.2004, 13:48:29
| Ответить | Цитировать | Написать  
Удаление записи
    #32538808
Victor5000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victor5000
Гость
Вот, блин!
Спасибо Саныч!
Спасибо Daf!
Спасибо Kelme!

Все отлично работает!!!
...
Рейтинг: 0 / 0
28.05.2004, 13:52:22
| Ответить | Цитировать | Написать  
Удаление записи
    #32538809
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
ребят сильно не материтесь но походу у меня ачепятка закралась надо:
me.RecordSour c e = me.RecordSour c e

а в чём смысл: мы переназначаем сурс формы, на что форма реагирует однозначно - загружает данные из нового сурса. Но так как нам надо только обновить то мы подсовываем ему старое значение RecordSource. и получаем эффект обновление данных, почму так делаю, просто у меня сложилось что это единственный способ 100% обновить форму... за подробностями к поиску на форме...

ЗЫ Читай всё таки ошибки

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
28.05.2004, 13:52:49
| Ответить | Цитировать | Написать  
Удаление записи
    #32538813
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
Апаздал!!!(с) первоисточник не помню...

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
28.05.2004, 13:54:09
| Ответить | Цитировать | Написать  
Удаление записи
    #32585959
Dmitry-SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry-SQL
Участник
Господа!
В продолжение темы:

Код: plaintext
CurrentDb.Execute ("DELETE * FROM Состояние_ТЕ WHERE №_п/п=" & Me.№_п_п & ";", dbFailOnError)
Говорит - ошибка синтаксиса.

Код: plaintext
CurrentDb.Execute ("DELETE * FROM Состояние_ТЕ WHERE №_п/п=" & Me.№_п_п & ";")
или
Код: plaintext
CurrentDb.Execute ("DELETE * FROM Состояние_ТЕ WHERE №_п/п=" & Me.№_п_п)
Говорит - мало параметров, нужно 2.

Что-то, где-то?
...
Рейтинг: 0 / 0
01.07.2004, 18:00:25
| Ответить | Цитировать | Написать  
Удаление записи
    #32585982
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Dmitry-SQLГоворит - ошибка синтаксиса.
http://www.sql.ru/faq/faq_topic.aspx?fid=213
вопрос 15.
...
Рейтинг: 0 / 0
01.07.2004, 18:10:08
| Ответить | Цитировать | Написать  
Удаление записи
    #32585986
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Dmitry-SQLГоворит - мало параметров, нужно 2.
Чему равно Me.№_п_п?
...
Рейтинг: 0 / 0
01.07.2004, 18:13:01
| Ответить | Цитировать | Написать  
Удаление записи
    #32585992
Dmitry-SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry-SQL
Участник
Код: plaintext
1.
strSQL = "DELETE * FROM Состояние_ТЕ WHERE '№_п/п=" & Me.№_п_п & "'"
CurrentDb.Execute strSQL
Йо-х-хо! Удаляет ВСЁ!
...
Рейтинг: 0 / 0
01.07.2004, 18:16:23
| Ответить | Цитировать | Написать  
Удаление записи
    #32586032
Dmitry-SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry-SQL
Участник
Код: plaintext
1.
strSQL = "DELETE * FROM Состояние_ТЕ WHERE №_п/п=" & Me.№_п_п
CurrentDb.Execute strSQL
Мало параметров...
...
Рейтинг: 0 / 0
01.07.2004, 18:43:23
| Ответить | Цитировать | Написать  
Удаление записи
    #32586037
Dmitry-SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry-SQL
Участник
Владимир СанычЧему равно Me.№_п_п?
Это счетчик - целое число.
...
Рейтинг: 0 / 0
01.07.2004, 18:45:48
| Ответить | Цитировать | Написать  
25 сообщений из 52, страница 2 из 3
  2  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Удаление записи
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32538615&tid=1673466]:
 0ms
get settings:
 5ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 469ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 58ms
get tp. blocked users:
 1ms
others: 195ms
total:  764ms
созд. / загр.: 764ms
x
x
Закрыть


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