|
|
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
Такое дело, есть форма, созданная для ввода данных в таблицу. В ней кнопка удалить запись. При нажатии на нее Access спрашивает подтверждения на удаление.(В желтом окне: "Microsoft Access Предпринимается попытка удалить ... ") Вопрос: можно это отменить или заменить на свое окно? Как-то не красиво получается, что порекомендуете делать, товарищи! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 10:28:45 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
Код: plaintext 1. 2. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 10:32:24 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
блин, опечатка: docmd.SetWarning s ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 10:33:41 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
"delete NameTable where id=" & Screen.ActiveForm!NameField или Me.NameField И вызывай эту констукцию из своего окна. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 10:35:16 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
CurrentDB.Execute Сделать можно всё!!! Только бы знать как... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 10:37:45 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
CurrentDB.Execute - как понимать, объясните плизз. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 10:54:25 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
что-то типа этого: Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 10:57:03 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
Тут ошибку он выдает: Процесс остановлен ядром Microsoft Jet, так как другой пользователь пытается одновресенно изменить те же данные. Но записи удаляет... Как быть? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 11:13:50 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
compact/repair попробуй сделать для начала ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 11:16:14 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
CurrentDB.Execute ..., dbFailOnError Сделать можно всё!!! Только бы знать как... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 11:23:25 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
2 Kelme ПАМЯТКА ОТВЕЧАЮЩЕМУ п.2 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 11:36:29 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
Спасибо, учту ;) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 11:41:32 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
А compact/repair как делать?, извини ламера. Сделал CurrentDB.Execute ..., dbFailOnError , продолжает ругаться. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 11:46:35 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
авторА compact/repair как делать? Меню Сервис --> Служебные программы --> Сжать/Восстановить базу ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 11:48:22 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
У тебя база разненсена на данные и клиентскую часть? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 11:57:07 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
нет БД должна быть простенькой для доступа в однопользовательском режиме. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 11:59:55 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
Попробуй импортнуть всё в новую базу ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 12:04:25 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
А я так делаю: Dim B1 As Boolean B1 = GetOption("Confirm Action Queries") SetOption "Confirm Action Queries", False что- то ужасное SetOption "Confirm Action Queries", B1 А правильный способ устранения ВСЕХ проблем эксеса- импорт всех объектов в пустую базу. При разработке это раз в неделю надо делать. При некотором навыке;-) это занимает две минуты. импортировал, поправил референсы, поправил параметры запуска и ура. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 12:04:26 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
Вешаешь на событие открытия формы: SetOption ("0Confirm Document Deletions"), 0 - это выключить; А на закрытие формы: SetOption ("0Confirm Document Deletions"), 1 - включить. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 12:06:04 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
2 Daf: а причем здесь удаление объектов базы? ;) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 12:08:16 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
Либо если нужно свое окно, то: Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 12:10:15 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
Эх, и точно, ошибся.... Вешаешь на событие открытия формы: SetOption ("Confirm Record Changes"), 0 - это выключить; А на закрытие формы: SetOption ("Confirm Record Changes"), 1 - включить. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 12:14:17 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
Окошко сделал Dim strSQL response = acDataErrContinue If MsgBox("Удалить запись?", vbExclamation + vbOKCancel) = vbCancel Then Cancel = True Else DoCmd.SetWarnings False DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings True End If А с "CurrentDb.Execute "DELETE * FROM Table WHERE RecordID = " & me!RecordID" продолжает ругаться ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 12:33:35 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
ээээ.... А у тебя таблица Table1, поле RecordID имеются? ;) это я тебе для примера написал, и не забудь dbFailOnError в CurrentDb.Execute поставить. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 12:42:11 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
А до окошка, что не ругался? и где ты это пишишь? Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 12:50:28 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
пилять.... сори вырвалось... вопросы 1. Ты когда-нить писал что-нить ручками в VBA/SQL? 2. есть ли параметр(ы) который однозначно определяет текущую запись если есть приведи их здесь, с описанием формата, и название соответствующего(их) полей в таблице... Сделать можно всё!!! Только бы знать как... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 13:04:40 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
ах да ещё текст ошибки Сделать можно всё!!! Только бы знать как... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 13:05:15 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
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" - черт с ним. Хотелось этот вариант просто попробывать, сравнить, что лучше. Видать, не очень он корректный. Так что всем спасибо!!! С днем пограничника!!! :-) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 13:06:56 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
ещё раз пять-десять пилять... у тебя ошибка вылетает не на CurrentDb.Execute... а на Код: plaintext 1. 2. в итоге у тебя должОн получится такой код: Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. Сделать можно всё!!! Только бы знать как... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 13:11:27 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
Sfagnum, хочу уточнить на будущее: Код: plaintext 1. Это работат через стандартное меню. И если его отключить, то вылезает ошибка? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 13:16:20 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
никогда не пользовался, такие конструкции вызывают у меня панический страх, так что однзначно ответить не смогу, но что точно, так это то что индексы меняются от версии к версии... Сделать можно всё!!! Только бы знать как... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 13:22:30 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
Спасибки за инфу... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 13:26:15 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
убрал: DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 Ошибки нет А на месте RecordSourse в "Me.RecordSourse = Me.RecordSourse" что должно то быть имя таблицы? Чего-то не втыкаюсь... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 13:26:54 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
автор А на месте RecordSourse в "Me.RecordSourse = Me.RecordSourse" что должно то быть имя таблицы? Чего-то не втыкаюсь должно так и остаться, это аналог Me.Requery ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 13:31:11 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
Так оно же ругается на: Me.RecordSourse = Me.RecordSourse ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 13:35:52 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
ругается, на *уй посылает..... очень ценная инфа, номер ошибки слабо сказать, или сообщение само... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 13:39:31 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
А если попробовать в место Код: plaintext написать Form.Requery ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 13:41:17 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
ААААА! Прости ламера. Ругается 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 Вот... Что думаешь? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 13:48:20 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
RecordSour c e, господа!!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 13:48:29 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
Вот, блин! Спасибо Саныч! Спасибо Daf! Спасибо Kelme! Все отлично работает!!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 13:52:22 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
ребят сильно не материтесь но походу у меня ачепятка закралась надо: me.RecordSour c e = me.RecordSour c e а в чём смысл: мы переназначаем сурс формы, на что форма реагирует однозначно - загружает данные из нового сурса. Но так как нам надо только обновить то мы подсовываем ему старое значение RecordSource. и получаем эффект обновление данных, почму так делаю, просто у меня сложилось что это единственный способ 100% обновить форму... за подробностями к поиску на форме... ЗЫ Читай всё таки ошибки Сделать можно всё!!! Только бы знать как... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 13:52:49 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
Апаздал!!!(с) первоисточник не помню... Сделать можно всё!!! Только бы знать как... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.05.2004, 13:54:09 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
Господа! В продолжение темы: Код: plaintext Код: plaintext Код: plaintext Что-то, где-то? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 18:00:25 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 18:10:08 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
Dmitry-SQLГоворит - мало параметров, нужно 2. Чему равно Me.№_п_п? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 18:13:01 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
Код: plaintext 1. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 18:16:23 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
Код: plaintext 1. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 18:43:23 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
Владимир СанычЧему равно Me.№_п_п? Это счетчик - целое число. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 18:45:48 |
|
||
|
Удаление записи
|
|||
|---|---|---|---|
|
#18+
Кто-нибудь подскажет? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.07.2004, 10:20:42 |
|
||
|
|

start [/forum/topic.php?all=1&fid=45&tid=1673466]: |
0ms |
get settings: |
7ms |
get forum list: |
13ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
680ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
70ms |
get tp. blocked users: |
1ms |
| others: | 185ms |
| total: | 971ms |

| 0 / 0 |
