Удаление записи из таблицы 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

@tkrainyk · 02.02.2021, 18:39

Я не считаю себя специалистом, но с практики работы знаю, что когда в запросе используются функции, которые не понимает SQL Server, возникает ошибка.

В данном случае подозрение падает на DCount.

У меня например возникала ошибка, когда я в запросе использовал Switch. А когда заменил Switch на Iif - все зароботало.

@Eugene-LS · 02.02.2021, 18:40

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

в выражении запроса 'DateKey_Date = ## 02/02/21 ## And Unit_ID=1'

Ну и ??? - никак не догадаться - да!

@agps-5 · 02.02.2021, 19:10 **[ТС]**

Ошибки нет, но запрос не корректно работает, отображает все записи, даже те что уже заполнены ((

Добавлено через 14 минут
При попытке добавить запись снова ошибка
в выражении запроса 'DateKey_Date = ## 02/02/21 ## And Unit_ID=1'

Добавлено через 5 минут
А, вон оно что))) вы же написали что для исполнения на сервере один код, а в клиенте другой....

Добавлено через 5 минут
нет, не хочет так работать редиска(

@Eugene-LS · 02.02.2021, 19:22

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

в выражении запроса 'DateKey_Date = ## 02/02/21 ##

Должно быть:
" ... DateKey_Date = '02.02.2021' Аnd Unit_ID=1"

@agps-5 · 02.02.2021, 19:56 **[ТС]**

S

Visual Basic
1
2
3
4
5
elect Case DataRecordGrope
        Case Is = DataRecordsGroups.drgUnits
            stLinkCriteria = "[DateKey_Date]=" & FixDate(Me.SF_Records.Form.Controls("DateKey_date")) & " And [Unit_ID]=" & Me.SF_Records.Form.Controls("Unit_ID")
            DoCmd.OpenForm "Records", acNormal, , stLinkCriteria
            Form_Records.IsAdd = False

Добавлено через 1 минуту
Поправил, открывает без ошибок, но данных нет, думаю это снова с датой беда

Добавлено через 16 минут
Кажется я понял, в таблице ID, а в списке Name, в обычной версии в таблице настроена подстановка, записывается ID, а отображается Name, после присоединения с базой (думал обновить связи когда формат поля менял), все настройки подстановки слетели, из-за этого может не работать?

Добавлено через 12 минут
И не пойму почему запись в таблице создается при открытии формы сразу, а не после нажатия на кнопку сохранить?

@Eugene-LS · 02.02.2021, 20:44

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

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

А как вы создаёте запись?

@agps-5 · 02.02.2021, 21:50 **[ТС]**

Кнопка сохранить, а код формы указано не сохранять, в версии без SQL не сохраняется запись без нажатия на кнопку...

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

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

А как вы создаёте запись?

Нет, напутал, форма открывается в режиме добавления, кнопка отмена отменяет внесение изменений

Добавлено через 1 минуту
Eugene-LS,
но что бы я не делал не работает(((
ни запрос, ни открытие формы для редактирования, ни загрузка данных в форму(((

@Eugene-LS · 02.02.2021, 22:41

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

но что бы я не делал не работает(

Что вы неправильно делаете, видимо.
Но помочь вам, в слепую, не могу.
Сочувствую.

@agps-5 · 02.02.2021, 22:44 **[ТС]**

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

Но помочь вам, в слепую, не могу.

так давайте я скину файл вам, может не сильно сложно исправить....)

@Eugene-LS · 02.02.2021, 23:00

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

может не сильно сложно исправить....

Может ...
Скидывайте. Опишите только точку входа в проблему.

@agps-5 · 02.02.2021, 23:02 **[ТС]**

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

Скидывайте. Опишите только точку входа в проблему.

вам вместе с таблицами сервера?

@Eugene-LS · 02.02.2021, 23:23

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

вам вместе с таблицами сервера?

Ну а сами то как думаете?
Хм ...
Конечно с таблицами!

Часа за 4 - 5 успеете?
Хотя вряд-ли ...
До завтра!

@agps-5 · 02.02.2021, 23:23 **[ТС]**

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

Скидывайте. Опишите только точку входа в проблему.

База служит для учета сил и средств пожарной охраны, ежедневно заносятся сведенья и формируется итоговая таблица, на нее ссылается другая база данных по учету выездов на тушение и проведение аварийно-спасательных работ, но это в целом. Сведенья заносят диспетчера, ПК подключены по сети, но из-за особенностей работы, локальная сеть+сеть интернет шифрованная VipNet, регулярно повреждается файл базы данных, восстановить не проблема, но это вызывает еще ряд ошибок. Решил поробовать перенести таблицы в SQL.
При входе в базу открывается окно ввода данных, слева список подразделений, по которым данные не заполнены
проблема такая
Не работает запрос вывода не заполненных подразделений
не загружаются данные с прошлого дежурства
при открытии для редактирования нет заполненных данных
не удалить заполненные данные
при этом, в локальной версии все исправно работает
если сменить тип поля DataKey_Data в таблице Records с даты на текст все работает (включая импорт в Excel), кроме удаления записи
Я так понимаю вся проблема связана именно с датой
Если не сложно, посмотрите, возможно ли изменить запрос на выборку не заполненных подразделений на более оптимальный

@Eugene-LS · 02.02.2021, 23:36

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

База служит для учета сил и средств пожарной охраны

Смотрю....
Это ваша первая?

@agps-5 · 02.02.2021, 23:40 **[ТС]**

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

Это ваша первая?

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

@Eugene-LS · 02.02.2021, 23:43

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

Если не сложно, посмотрите, возможно ли изменить запрос на выборку не заполненных подразделений на более оптимальный

Как я это сделаю
- без ваших таблиц (во первых)?
- без точки входа в запрос.

Вы куда торопитесь?

Обычно подготовка к публикации примера занимает несколько недель (или даже месяцев), а вы на 5-м часе уже всё ...

Нет - не всё.
Это очень сложный процесс ...

@agps-5 · 02.02.2021, 23:49 **[ТС]**

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

Вы куда торопитесь?

Не тороплюсь))
вход с формы Dates если я правильно понял вопрос
таблицы есть в локальном файле, я подумал тут от них пользы мало

@Eugene-LS · 02.02.2021, 23:54

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

Мне далеко до такого, ее нам помогали сделать

Ладно ...
Подсказываю:
01. Таблички в пример оттранслируйте
02. "Точка входа" - это точное описание объекта и процесса (где не работает)
- Что я должен открыть и что сделать что бы увидеть проблему + как должно быть.

.. а чем занимается приложение тут без разницы, но для понимания не повредит..

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

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

таблицы есть в локальном файле

В каком? - не наблюдаю., только ссылки на таблицы сервера.

я подумал тут от них пользы мало

А зачем вы их тогда используете?
...
И действительно: Если не использовать таблицы, запросы и формы с отчётами - то и проблем не будет!
Факт!

Вы, видимо, решили поиздеваться - понял.
Успехов!

@agps-5 · 02.02.2021, 23:57 **[ТС]**

Eugene-LS,
да нет, какое издевательство, и не думал
я скинул файл базы SQL и файл рабочий
я тут еще не сильно ориентируюсь просто не обижайтесь, вы мне очень помогаете

@Eugene-LS · 03.02.2021, 00:00

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

просто не обижайтесь

И ... не собирался даже.

Почитайте пожалуйста Правила раздела, и старайтесь, насколько это возможно, следовать им.

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр 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 и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .

@tkrainyk 775 / 256 / 43 Регистрация: 09.12.2016 Сообщений: 855
	02.02.2021, 18:39
	Я не считаю себя специалистом, но с практики работы знаю, что когда в запросе используются функции, которые не понимает SQL Server, возникает ошибка. В данном случае подозрение падает на DCount. У меня например возникала ошибка, когда я в запросе использовал Switch. А когда заменил Switch на Iif - все зароботало. 0

@agps-5 0 / 0 / 0 Регистрация: 21.03.2020 Сообщений: 67
	02.02.2021, 19:10 [ТС]
	Ошибки нет, но запрос не корректно работает, отображает все записи, даже те что уже заполнены (( Добавлено через 14 минут При попытке добавить запись снова ошибка в выражении запроса 'DateKey_Date = ## 02/02/21 ## And Unit_ID=1' Добавлено через 5 минут А, вон оно что))) вы же написали что для исполнения на сервере один код, а в клиенте другой.... Добавлено через 5 минут нет, не хочет так работать редиска( 0

@agps-5 0 / 0 / 0 Регистрация: 21.03.2020 Сообщений: 67
	02.02.2021, 23:57 [ТС]
	Eugene-LS, да нет, какое издевательство, и не думал я скинул файл базы SQL и файл рабочий я тут еще не сильно ориентируюсь просто не обижайтесь, вы мне очень помогаете 0