Преобразование типов данных в Access 2013

Aleator · Регистрация: 04.05.2011

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

Ошибка 13 (преобразование данных). Но только в Access 2013. Сам я работаю в 2010. Работает без проблем.

Visual Basic

1
2
3

 If rst(63) <> "" And rst(71) <> "" Then
            rst(72) = CSng(Round(CDbl(rst(63)) / CDbl(rst(71)), 2))
        End If

Функции перепробовал разные. У меня всё работает, в 2013 - нет.
Что делать?

Добавлено через 28 минут
Тип ячеек - текстовый.

shanemac51 · 05.07.2015, 18:12

выведите в отладку ваши rst(63) и rst(71)
и проверьте, что в них

---
а заодно и тип rst(72)

mobile · 05.07.2015, 18:14

А если такую проверку испытать?

Visual Basic

1	If isnumeric(rst(63)) And isnumeric(rst(71)) Then

Хорошо бы видеть значения на которых спотыкается код...

@texnik-san · 05.07.2015, 18:22

Для начала - опубликовать не только оператор, вызывающий ошибку, но хотя бы и описание переменных и операторы присваивания. И рассказать, какого результата вы хотите в конечном итоге добиться этим оператором.

Потому что мне не очень ясно, зачем результат округления до 2 цифр после запятой преобразовывать к типу Simgle только для того, чтобы результат преобразования присвоить текстовой (?) переменной.

Aleator · 05.07.2015, 19:10 **[ТС]**

1.

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

выведите в отладку ваши rst(63) и rst(71)
и проверьте, что в них
---
а заодно и тип rst(72)

Тип везде текстовый. rst(63)="400000" и rst(71)="49506.43" - споткнулся же на первой строчке

Ещё раз повторяю, в Access 2010 работает. В Access 2013 - нет!
Может библиотеку какую-нибудь подключить?

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

Сообщение от texnik-san

Для начала - опубликовать не только оператор, вызывающий ошибку, но хотя бы и описание переменных и операторы присваивания. И рассказать, какого результата вы хотите в конечном итоге добиться этим оператором.
Потому что мне не очень ясно, зачем результат округления до 2 цифр после запятой преобразовывать к типу Simgle только для того, чтобы результат преобразования присвоить текстовой (?) переменной.

Да, да да... И за одно и проект... И выслушивать, почему я взялся за программирование вообще...

Visual Basic

Dim myString1 As String
Dim myString2 As String
Dim myString3 As String
 
Set myString1 = "400000" 
Set myString2 = "49506.43"
myString3 = CSng(Round(CDbl(myString1) / CDbl(myString2), 2))

- аналог моей "беды". Протестируйте в Access 2013

@texnik-san · 05.07.2015, 19:27

Смысла врать, спрашивая совета по работе кода, ровно столько же, сколько врать о симптомах на приеме у врача.

Приведенный вами код и в 2010 работать не может. Хотя бы потому, что текстовой переменной значения оператором Set не присваиваются. Set работает только с объектами. Также ошибку даст преобразование к типу Double переменной myString2, ибо точка - не десятичный разделитель.

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

Протестируйте в Access 2013

С удовольствием. Давно жажду познакомиться с этим зверем. Давайте доступ.

Aleator · 05.07.2015, 19:35 **[ТС]**

Сообщение от texnik-san

С удовольствием. Давно жажду познакомиться с этим зверем. Давайте доступ.

- это относилось к тем у кого этот Access установлен. (без обид)

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

Сообщение от texnik-san

Приведенный вами код и в 2010 работать не может. Хотя бы потому, что текстовой переменной значения оператором Set не присваиваются. Set работает только с объектами. Также ошибку даст преобразование к типу Double переменной myString2, ибо точка - не десятичный разделитель.

Извините.

Visual Basic

    Dim myString1 As String
Dim myString2 As String
Dim myString3 As String
 
myString1 = "400000"
myString2 = "49506.43"
myString3 = CSng(Round(CDbl(myString1) / CDbl(myString2), 2))

@texnik-san · 05.07.2015, 20:04

Ладно, я готова поверить, что у вас в региональных стандартах действительно в качестве десятичного разделителя выставлена точка. Бывает экзотика.

А, другое дело. Вот теперь давайте пошагово вылавливать проблему. Сейчас напишу, как.

Добавлено через 4 минуты
Для начала, давайте попробуем заставить ваш оператор таки вернуть результат вычисления. Я предлагаю так:

myString3 = Round(Val(myString1) / Val(myString2), 2)

Добавлено через 13 минут
Aleator, попробуйте - работает или нет:

Visual Basic

Dim myString1 As String
Dim myString2 As String
Dim myString3 As String
 
myString1 = "400000"
myString2 = "49506.43"
Debug.Print CDbl(myString2)
myString3 = Round(Val(myString1) / Val(myString2), 2)
 
Debug.Print myString3 & "=" & Val(myString1) & "/" & Val(myString2)

В последнем операторе лично мне интересно значение после косой черты. Совпадет оно с исходным значением 49506,43 или останется только целя часть, а дробная будет отброшена.

Добавлено через 6 минут
А вообще, сейчас будем тренироваться на кошках. Качаю рантайм-версию 2013 ))) Чего не сделаешь для науки )))

Aleator · 05.07.2015, 20:05 **[ТС]**

Я попробовал в своей БД:

Visual Basic

1
2
3

        If rst(63) <> "" And rst(71) <> "" Then
            rst(72) = CSng(Round(Val(rst(63)) / Val(rst(71)), 2))
        End If

Всё получилось.
Итого, имеем разную работу функции CDbl в Access 2010 и Access 2013.

mobile · 05.07.2015, 20:08

texnik-san, в ВБА, в качестве десятичного разделителя может только точка. Никак иначе. Надо применять функцию STR, которая всегда дает точку.

Сообщение от texnik-san

Бывает экзотика.

У меня, например, так. И у большей половины моих заказчиков тоже точка.

@texnik-san · 05.07.2015, 20:23

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

Всё получилось.

Просто сработало, или дало именно тот числовой результат, который нужен?

Потому что функция Val очень своеобразная. Она преобразует строку в число до того символа, до которого у нее получается это сделать, и игнорирует остальные. В частности, если точка ее не устраивает как разделитель дробной части - она может просто взять целую часть числа.

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

Итого, имеем разную работу функции CDbl в Access 2010 и Access 2013.

Не факт. Попробуйте свой старый код с запятой вместо точки.

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

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

texnik-san, в ВБА, в качестве десятичного разделителя может только точка.

Речь не о коде vba, а о функции CDbl - она десятичный разделитель берет из региональных настроек.

Добавлено через 50 секунд

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

Надо применять функцию STR, которая всегда дает точку.

Опять же, вопрос не в том, что она дает, а в том, что берет.

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

Сообщение от texnik-san

Речь не о коде vba, а о функции CDbl - она десятичный разделитель берет из региональных настроек.

Вот если бы код был CDbl (49506.43) - тут да, тут только точка возможна. А CDbl ("49506.43") уже не так.

mobile · 05.07.2015, 20:30

Сообщение от texnik-san

Речь не о коде vba, а о функции CDbl - она десятичный разделитель берет из региональных настроек.

Но это же Ваше выражение:

Сообщение от texnik-san

myString3 = Round(Val(myString1) / Val(myString2), 2)

Функция Val не воспринимает запятую как десятичный разделитель. Только точку.

@texnik-san · 05.07.2015, 20:39

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

Функция Val не воспринимает запятую как десятичный разделитель. Только точку.

К аргументу, в явном виде прописанном в коде программы, требования одни, к текстовой строке, передаваемой в виде аргумента - совсем другие. В текстовой строке можно и запятую, и вообще любые символы, не имеющие отношения к числам. Даже Val("4356ы32") - можно. Но результат будет 4356.

Добавлено через 2 минуты
Кстати, в только что установленной рантайм версии 2013 оператор CDbl("49506,43") у меня сработал. Именно с запятой.

mobile · 05.07.2015, 20:42

Сообщение от texnik-san

Но результат будет 4356.

Совершенно верно. И результат деления

Visual Basic

1	m="1": n="0,1": ?Val(m)/Val(n)

будет не 10, как предполагается, а деление на 0.

@texnik-san · 05.07.2015, 20:59

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

Совершенно верно. И результат деления
Код Visual BasicВыделить код
1
m="1": n="0,1": ?Val(m)/Val(n)
будет не 10, как предполагается, а деление на 0.

В том-то и дело, что может быть деление на ноль, а может быть и 10, и зависит это от региональных настроек. У меня это таки 10.

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

Варианты
1) поменять настройки региональный стандартов (сделать, чтобы десятичным разделителем стала таки точка)
2) добиться замены точки на запятую еще при присваивании значения
3) заменять точку на запятую при передаче параметра
4) написать фукнцию преобразования строки в число, которой все равно, точка там или запятая.

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

Сообщение от texnik-san

В том-то и дело, что может быть деление на ноль, а может быть и 10, и зависит это от региональных настроек. У меня это таки 10

А нет, соврала. 10 именно с CDbl, Val таки деление на ноль. Сори.

mobile · 05.07.2015, 20:59

Сообщение от texnik-san

зависит это от региональных настроек. У меня это таки 10.

Я сейчас специально поменял десятичный разделитель на запятую и устойчиво получаю деление на 0. А не 10.

@texnik-san · 05.07.2015, 21:02

Да, вы правы, я не права. Val только с точкой работает. Ну фух, тогда изначальная задача решена вроде бы )

Aleator · 05.07.2015, 21:30 **[ТС]**

Да, действительно, начальная задача решена. Спасибо всем большое.

mobile · 05.07.2015, 21:37

Кстати, texnik-san, может быть это Вас заинтересует в связи разным десятичным разделителем на разных ПК. Довольно легко узнать какой же именно десятичный разделитель на машине, нужно только вычислить выражение format(0,"."):

Visual Basic

1 2	?format(0,".") ,

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	05.07.2015, 20:59	16
	Сообщение от texnik-san зависит это от региональных настроек. У меня это таки 10. Я сейчас специально поменял десятичный разделитель на запятую и устойчиво получаю деление на 0. А не 10. 0

@texnik-san шапоклякистка 8-го дня 3679 / 2239 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	05.07.2015, 21:02	17
	Да, вы правы, я не права. Val только с точкой работает. Ну фух, тогда изначальная задача решена вроде бы ) 0

shanemac51 Модератор 11960 / 4828 / 779 Регистрация: 07.08.2010 Сообщений: 14,138 Записей в блоге: 4
	05.07.2015, 18:12	2
	выведите в отладку ваши rst(63) и rst(71) и проверьте, что в них --- а заодно и тип rst(72) 1

@texnik-san шапоклякистка 8-го дня 3679 / 2239 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	05.07.2015, 18:22	4
	Для начала - опубликовать не только оператор, вызывающий ошибку, но хотя бы и описание переменных и операторы присваивания. И рассказать, какого результата вы хотите в конечном итоге добиться этим оператором. Потому что мне не очень ясно, зачем результат округления до 2 цифр после запятой преобразовывать к типу Simgle только для того, чтобы результат преобразования присвоить текстовой (?) переменной. 0

@texnik-san шапоклякистка 8-го дня 3679 / 2239 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	05.07.2015, 19:27	6
	Смысла врать, спрашивая совета по работе кода, ровно столько же, сколько врать о симптомах на приеме у врача. Приведенный вами код и в 2010 работать не может. Хотя бы потому, что текстовой переменной значения оператором Set не присваиваются. Set работает только с объектами. Также ошибку даст преобразование к типу Double переменной myString2, ибо точка - не десятичный разделитель. Сообщение от Aleator Протестируйте в Access 2013 С удовольствием. Давно жажду познакомиться с этим зверем. Давайте доступ. 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	05.07.2015, 20:08	10
	texnik-san, в ВБА, в качестве десятичного разделителя может только точка. Никак иначе. Надо применять функцию STR, которая всегда дает точку. Сообщение от texnik-san Бывает экзотика. У меня, например, так. И у большей половины моих заказчиков тоже точка. 0

@texnik-san шапоклякистка 8-го дня 3679 / 2239 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	05.07.2015, 20:23	11
	Сообщение от Aleator Всё получилось. Просто сработало, или дало именно тот числовой результат, который нужен? Потому что функция Val очень своеобразная. Она преобразует строку в число до того символа, до которого у нее получается это сделать, и игнорирует остальные. В частности, если точка ее не устраивает как разделитель дробной части - она может просто взять целую часть числа. Сообщение от Aleator Итого, имеем разную работу функции CDbl в Access 2010 и Access 2013. Не факт. Попробуйте свой старый код с запятой вместо точки. Добавлено через 1 минуту Сообщение от mobile texnik-san, в ВБА, в качестве десятичного разделителя может только точка. Речь не о коде vba, а о функции CDbl - она десятичный разделитель берет из региональных настроек. Добавлено через 50 секунд Сообщение от mobile Надо применять функцию STR, которая всегда дает точку. Опять же, вопрос не в том, что она дает, а в том, что берет. Добавлено через 11 минут Сообщение от texnik-san Речь не о коде vba, а о функции CDbl - она десятичный разделитель берет из региональных настроек. Вот если бы код был CDbl (49506.43) - тут да, тут только точка возможна. А CDbl ("49506.43") уже не так. 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	05.07.2015, 20:30	12
	Сообщение от texnik-san Речь не о коде vba, а о функции CDbl - она десятичный разделитель берет из региональных настроек. Но это же Ваше выражение: Сообщение от texnik-san myString3 = Round(Val(myString1) / Val(myString2), 2) Функция Val не воспринимает запятую как десятичный разделитель. Только точку. 0

@texnik-san шапоклякистка 8-го дня 3679 / 2239 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	05.07.2015, 20:39	13
	Сообщение от mobile Функция Val не воспринимает запятую как десятичный разделитель. Только точку. К аргументу, в явном виде прописанном в коде программы, требования одни, к текстовой строке, передаваемой в виде аргумента - совсем другие. В текстовой строке можно и запятую, и вообще любые символы, не имеющие отношения к числам. Даже Val("4356ы32") - можно. Но результат будет 4356. Добавлено через 2 минуты Кстати, в только что установленной рантайм версии 2013 оператор CDbl("49506,43") у меня сработал. Именно с запятой. 0

@texnik-san шапоклякистка 8-го дня 3679 / 2239 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	05.07.2015, 20:59	15
	Сообщение от mobile Совершенно верно. И результат деления Код Visual BasicВыделить код 1 m="1": n="0,1": ?Val(m)/Val(n) будет не 10, как предполагается, а деление на 0. В том-то и дело, что может быть деление на ноль, а может быть и 10, и зависит это от региональных настроек. У меня это таки 10. Поэтому ждем ответа от автора темы, получил ли он именно то числовое значение, которое ожидал, или нет. Если нет - нужно принять волевое решение о дальнейшем пути исправления ошибки. Варианты 1) поменять настройки региональный стандартов (сделать, чтобы десятичным разделителем стала таки точка) 2) добиться замены точки на запятую еще при присваивании значения 3) заменять точку на запятую при передаче параметра 4) написать фукнцию преобразования строки в число, которой все равно, точка там или запятая. Добавлено через 8 минут Сообщение от texnik-san В том-то и дело, что может быть деление на ноль, а может быть и 10, и зависит это от региональных настроек. У меня это таки 10 А нет, соврала. 10 именно с CDbl, Val таки деление на ноль. Сори. 0

Aleator 102 / 87 / 17 Регистрация: 04.05.2011 Сообщений: 1,330
	05.07.2015, 21:30 [ТС]	18
	Да, действительно, начальная задача решена. Спасибо всем большое. 0