Удаление записи из таблицы VBA, ошибка ODBC

@agps-5 · Регистрация: 21.03.2020

Студворк — интернет-сервис помощи студентам

День добрый! Есть база данных учета количества сотрудников и техники на сутках, изначально работала просто в Access, таблицы перенес в SQL сервер, все работает, но удалить запись не получается, подскажите в чем ошибка
код кнопки для удаления такой

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub btnDelete_Click()
On Error GoTo Err_btnDelete_Click
    
    SilentDeleteRecord Me.DateKey_Date, Me.Unit_ID
    DoCmd.Close acForm, Me.Name, acSaveNo
    Form_Dates.Refresh
 
Exit_btnDelete_Click:
    Exit Sub
 
Err_btnDelete_Click:
    MsgBox Err.Description
    Resume Exit_btnDelete_Click
    
End Sub

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub SilentDeleteRecord(ByVal data As Date, ByVal UnitID As Long)
' удаление записи
Dim dbs As Database
Dim rec As Recordset
 
    Set dbs = CurrentDb
    Set rec = dbs.OpenRecordset("Records", dbOpenDynaset)
 
    rec.FindFirst "DateKey_Date=#" & FixDate(data) & "# AND Unit_ID=" & UnitID
    rec.Delete
 
    Set rec = Nothing
    Set dbs = Nothing
 
End Sub

@alvk · 04.02.2021, 11:16

Сообщение от Eugene-LS

DELETE FROM

Очень, понимаете ли обидно в последнее время за звёздочку, сам не знаю почему...

@agps-5 · 14.02.2021, 17:17 **[ТС]**

Вся проблема была в связи таблиц, по этому была ошибка при удалении

@alvk · 15.02.2021, 02:16

Сообщение от agps-5

была ошибка при удалении

это не ошибка, вы не с той стороны удаляли видимо

@agps-5 · 15.02.2021, 17:44 **[ТС]**

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

@alvk · 16.02.2021, 11:40

Откуда у вас такое непреодолимое желание удалять записи? Может стоит подумать о том, чтобы их не вносили?

@agps-5 · 16.02.2021, 14:40 **[ТС]**

Сообщение от alvk

Откуда у вас такое непреодолимое желание удалять записи? Может стоит подумать о том, чтобы их не вносили?

Да нет) нет такого желания, просто данные ежедневно заполняются одновременно в разных городах диспетчерами, они могут быть подменные (не штатные) и допускать какие-либо ошибки, данные заполняются по личному составу и технике заступившие на дежурные сутки

@Andrey-MSK · 16.02.2021, 15:29

agps-5, а зачем удалять? Можно ведь просто пометить как удаленную, допустим ввести поле IsDeleted, по умолчанию 0, если запись не нужна то менять на 1 и в запросе не учитывать эти записи (WHERE IsDeleted <> 1)... И всегда можно будет посмотреть историю удаления и причины...

@agps-5 · 17.02.2021, 18:17 **[ТС]**

Вот самое интересное, что в версии сервера 2008 клиент работает без каких то доработок, в чем секрет? дата в 2008 и в 2019 на сервере храниться в разных форматах?

@UBUNTU · 18.02.2021, 08:06

agps-5, в SQL Server нет понятия # для пометки даты, она идет как ' и дата исчисляется по стандартам ГГГГ-ММ-ДД

@alvk · 18.02.2021, 08:54

Я уже писал - вы копаете не в ту сторону, сейчас уже совсем не в ту. Контролируйте ввод!

При переносе данных у вас связи остались или вы оперируете триггерами?

Добавлено через 3 минуты

Сообщение от UBUNTU

agps-5, в SQL Server нет понятия # для пометки даты, она идет как '

А мы говорим про Акцесс. Так что всё есть, как и было до переноса.

@UBUNTU · 18.02.2021, 11:12

Сообщение от alvk

А мы говорим про Акцесс.

Сообщение от agps-5

изначально работала просто в Access, таблицы перенес в SQL сервер

Вы меня конечно извините, но я не прослеживаю логики...

Удалить запись можно просто послав запрос:

SQL
1
DELETE FROM ТакаяТоТаблица WHERE ТакоеТоУсловие

@alvk · 18.02.2021, 11:41

Сообщение от UBUNTU

Вы меня конечно извините, но я не прослеживаю логики...

Логика одна, с датой нужно обращаться как и раньше. Если вы не в теме, то зачем тут пишите? Давать плохие советы любой ламер умеет. Но они нам не нужны!

@agps-5 · 20.02.2021, 12:13 **[ТС]**

Сообщение от alvk

При переносе данных у вас связи остались или вы оперируете триггерами?

Связи с таблицами, которые все без исключения на сервере, я еще не во всем разобрался, учусь по ходу доработки) в VBA много запросов и многие в стиле DХххх которые не выполняются на стороне Access, тут мне нужно поэтапно переписывать под выполнение на сервере я так понимаю, без советов мне не разобраться. С удалением вопрос решен, проблема была только в связи таблиц.

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@agps-5 0 / 0 / 0 Регистрация: 21.03.2020 Сообщений: 67
	14.02.2021, 17:17 [ТС]
	Вся проблема была в связи таблиц, по этому была ошибка при удалении 0

@agps-5 0 / 0 / 0 Регистрация: 21.03.2020 Сообщений: 67
	15.02.2021, 17:44 [ТС]
	Возможно, теперь не могу разобраться с другой проблемой, есть форма, в ней подчиненная форма, в обе при открытии загружаются данные с прошлого дежурства, при попытке удалить запись, если еще не внесены изменения в загруженные данные, Access ругается, что данные были изменены другим пользователем, почитал подобные ситуации, не не понял как победить это 0

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,383
	16.02.2021, 11:40
	Откуда у вас такое непреодолимое желание удалять записи? Может стоит подумать о том, чтобы их не вносили? 0

@Andrey-MSK 3397 / 2283 / 388 Регистрация: 14.08.2018 Сообщений: 7,762 Записей в блоге: 4
	16.02.2021, 15:29
	agps-5, а зачем удалять? Можно ведь просто пометить как удаленную, допустим ввести поле `IsDeleted`, по умолчанию 0, если запись не нужна то менять на 1 и в запросе не учитывать эти записи (`WHERE IsDeleted <> 1`)... И всегда можно будет посмотреть историю удаления и причины... 0

@agps-5 0 / 0 / 0 Регистрация: 21.03.2020 Сообщений: 67
	17.02.2021, 18:17 [ТС]
	Вот самое интересное, что в версии сервера 2008 клиент работает без каких то доработок, в чем секрет? дата в 2008 и в 2019 на сервере храниться в разных форматах? 0

@UBUNTU 352 / 213 / 42 Регистрация: 04.02.2015 Сообщений: 1,344
	18.02.2021, 08:06
	agps-5, в SQL Server нет понятия # для пометки даты, она идет как ' и дата исчисляется по стандартам ГГГГ-ММ-ДД 0