Ошибка Data type mismatch

@.polythene · Регистрация: 25.03.2010

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

Dim MySQL As String
Dim MyID As Long <- код записи
....

MyID = Me![listGR_SELECTED]

MySQL = 'DELETE SEL_GR.*, SEL_GR.Gr3' & _
' FROM SEL_GR' & _
' WHERE (((SEL_GR.gr3)=' & MyID & '));'

....

CurrentDb.Execute MySQL

пишет - Data type mismatch...

@SoftDevMaster · 03.05.2010, 11:55

Уберите последние кавички и скобки

MySQL = 'DELETE SEL_GR.*, SEL_GR.Gr3' & _
' FROM SEL_GR' & _
' WHERE SEL_GR.gr3=' & MyID

@SoftDevMaster · 03.05.2010, 12:00

...Sorry....у вас эта ощибка может появиться гораздо раньше...

поменяйте MyID = Me![listGR_SELECTED]

на

MyID = CINT(Me![listGR_SELECTED] )

и дальше так же
MySQL = 'DELETE SEL_GR.*, SEL_GR.Gr3' & _
' FROM SEL_GR' & _
' WHERE SEL_GR.gr3=' & MyID

@kpoxa · 03.05.2010, 15:06

По поводу строки: MyID = CINT(Me![listGR_SELECTED] )
1. Переменная MyID определена как long поэтому надо использовать CLng вместо CInt.
2. Даже с такой записью может быть ошибка в случае если по какой либо причине listGR_SELECTED может вернуть значение NULL
для этого в ACCESS есть функция NZ которая конвертирует NULL в значение нужного типа, если же это код программы на VB, то
можно использовать мою функцию:
'Function: NZ
'Description: converts NULL values to the default given by user
' (used to escape collisions with type mismatch errors)
'Parameters: src - original variable to be checked.
' defValue - new value to be returned in case when src is NULL
Public Function NZ(ByVal src As Variant, ByVal defValue As Variant) As Variant
NZ = defValue
On Error Resume Next
If (Not IsNull(src)) Then NZ = src
End Function

3. Поле с которым идет сравнение также обязано быть типа long (поле SEL_GR.Gr3)

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@.polythene 0 / 0 / 0 Регистрация: 25.03.2010 Сообщений: 210

	Ошибка Data type mismatch 03.05.2010, 11:02. Показов 1727. Ответов 3 Метки нет (Все метки) Dim MySQL As String Dim MyID As Long <- код записи .... MyID = Me![listGR_SELECTED] MySQL = 'DELETE SEL_GR.*, SEL_GR.Gr3' & _ ' FROM SEL_GR' & _ ' WHERE (((SEL_GR.gr3)=' & MyID & '));' .... CurrentDb.Execute MySQL пишет - Data type mismatch... 0

@SoftDevMaster 0 / 0 / 0 Регистрация: 02.04.2010 Сообщений: 9
	03.05.2010, 11:55
	Уберите последние кавички и скобки MySQL = 'DELETE SEL_GR.*, SEL_GR.Gr3' & _ ' FROM SEL_GR' & _ ' WHERE SEL_GR.gr3=' & MyID 0

@SoftDevMaster 0 / 0 / 0 Регистрация: 02.04.2010 Сообщений: 9
	03.05.2010, 12:00
	...Sorry....у вас эта ощибка может появиться гораздо раньше... поменяйте MyID = Me![listGR_SELECTED] на MyID = CINT(Me![listGR_SELECTED] ) и дальше так же MySQL = 'DELETE SEL_GR.*, SEL_GR.Gr3' & _ ' FROM SEL_GR' & _ ' WHERE SEL_GR.gr3=' & MyID 0

@kpoxa 5 / 5 / 0 Регистрация: 08.12.2009 Сообщений: 213
	03.05.2010, 15:06
	По поводу строки: MyID = CINT(Me![listGR_SELECTED] ) 1. Переменная MyID определена как long поэтому надо использовать CLng вместо CInt. 2. Даже с такой записью может быть ошибка в случае если по какой либо причине listGR_SELECTED может вернуть значение NULL для этого в ACCESS есть функция NZ которая конвертирует NULL в значение нужного типа, если же это код программы на VB, то можно использовать мою функцию: 'Function: NZ 'Description: converts NULL values to the default given by user ' (used to escape collisions with type mismatch errors) 'Parameters: src - original variable to be checked. ' defValue - new value to be returned in case when src is NULL Public Function NZ(ByVal src As Variant, ByVal defValue As Variant) As Variant NZ = defValue On Error Resume Next If (Not IsNull(src)) Then NZ = src End Function 3. Поле с которым идет сравнение также обязано быть типа long (поле SEL_GR.Gr3) 0