VBA->SQL запрос -> Как запятую точкой заменить??? / Microsoft Access

ReSQL.ru

2.0.61

Планшетная версия Контакт Правила FAQ Помощь

Гость

Войти | Профиль | Очистить

Нов. | Гор. | Избр.

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / VBA->SQL запрос -> Как запятую точкой заменить??? / 25 сообщений из 66, страница 1 из 3

все

01.03.2004, 21:32

#32427079

Vsevolod V

Участник

Откуда: Россия. Санкт-Петербург
Сообщения: 3 136
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

А мне все не заснуть :)
------
Ошибка синтаксиса (запятая) в выражении запроса.

Код: plaintext

Format(Me![fld_Sum] * YeRate(Me![lst_currency]) / (YeRate(YeType( "1 ")) * YePer( "1 ")),  "#.##" )

Почему это не помомает???

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

01.03.2004, 21:33

#32427082

Темный

Участник

Сообщения: 12 072
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

Точку с запятой вместо запятой попробуй :)

Код: plaintext

.......YePer( "1 "));  "#.##" )

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

01.03.2004, 21:35

#32427084

Vsevolod V

Участник

Откуда: Россия. Санкт-Петербург
Сообщения: 3 136
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

Не-не-не
Это не из той оперы :) Тут запятая нужна

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

01.03.2004, 21:47

#32427089

Темный

Участник

Сообщения: 12 072
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

Блин. Я тоже хочу спать. Поэтому никак не пойму, чего не работает-то? Или работает, но не так как надо?

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

01.03.2004, 21:51

#32427094

Vsevolod V

Участник

Откуда: Россия. Санкт-Петербург
Сообщения: 3 136
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

вот это равно 6,54

Код: plaintext

Me![fld_Sum] * YeRate(Me![lst_currency]) / (YeRate(YeType( "1 ")) * YePer( "1 "))

И это равно 6,54

Код: plaintext

Format(Me![fld_Sum] * YeRate(Me![lst_currency]) / (YeRate(YeType( "1 ")) * YePer( "1 ")),  "#.##" )

Вот и вся фишка :)

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

01.03.2004, 21:53

#32427097

Темный

Участник

Сообщения: 12 072
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

Ты в какой стране живешь?
В России...
Региональные настройки в Виндах какие?
Российские...
В России как принято целую часть от дробной отделять?
Запятой...

Хватит мучать зверушку!

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

01.03.2004, 21:55

#32427099

Vsevolod V

Участник

Откуда: Россия. Санкт-Петербург
Сообщения: 3 136
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

И что мне теперь настроики виндов менять, чтобы это запрос выполнить? :)

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

01.03.2004, 21:55

#32427100

Темный

Участник

Сообщения: 12 072
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

з.ы.
Цитата из хелпа:

Код: plaintext

При попытке форматировать числа без указания формата функция 
Format работает так же, как функция Str, но с учетом региональных параметров.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

01.03.2004, 21:56

#32427101

Темный

Участник

Сообщения: 12 072
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

Блин, ну равно и равно... Тебе так сильно точка нужна в этом выражении?????

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

01.03.2004, 22:07

#32427106

Vsevolod V

Участник

Откуда: Россия. Санкт-Петербург
Сообщения: 3 136
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

Да я то гадить хотел на эту точку!
Вот, что мешает: Ошибка синтаксиса (запятая) в выражении запроса.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

01.03.2004, 22:09

#32427108

Темный

Участник

Сообщения: 12 072
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

МЛЯ\r
/topic/77852#558277

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

01.03.2004, 22:11

#32427111

Vsevolod V

Участник

Откуда: Россия. Санкт-Петербург
Сообщения: 3 136
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

ВО-ВО\r
/topic/77852#558279]

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

01.03.2004, 22:13

#32427113

Темный

Участник

Сообщения: 12 072
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

А попробовать? Или уговаривать надо? У меня-то работает с ; и не работает с ,

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

01.03.2004, 22:13

#32427114

Vsevolod V

Участник

Откуда: Россия. Санкт-Петербург
Сообщения: 3 136
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

Короче, дело в том, что вышеуказанная ошибка возникает, когда делаешь так:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.

SQLStr =  "INSERT INTO Bill_Arrival(OperID_2, [Реф №], Дата1, [Код счета], Потребитель, Наименование, "  _
        &  "Валюта, Приход, Эквивалент1,User_ID) SELECT "  & Forms![ПАРТНЕРЫ_Договор]!OperId &  ", "  _
        &  "'" & Me!fld_Ref & "', date(), '" & Me!lst_Bill & "', '" & Me!lst_Consumer & "', "  _
        &  "'" & Me!fld_Name & "', '" & Me!lst_currency & "', "  & Me!fld_Sum &  ", ("  _
        & Format(Me![fld_Sum] * YeRate(Me![lst_currency]) / (YeRate(YeType( "1 ")) * YePer( "1 ")),  "#.##" ) &  "), "  _
        &  "'" & Forms!UserID!UserID & "'" 

CurrentDb.Execute SQLStr

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

01.03.2004, 22:14

#32427115

Vsevolod V

Участник

Откуда: Россия. Санкт-Петербург
Сообщения: 3 136
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

При запятой возникает ошибка синтаксиса

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

01.03.2004, 22:14

#32427117

Vsevolod V

Участник

Откуда: Россия. Санкт-Петербург
Сообщения: 3 136
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

тобишь при точке с запятой

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

01.03.2004, 22:20

#32427118

Темный

Участник

Сообщения: 12 072
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

Теперь-то уже понял... Нет, чтобы сразу код привести...

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

02.03.2004, 10:15

#32427303

Vsevolod V

Участник

Откуда: Россия. Санкт-Петербург
Сообщения: 3 136
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

Поясню проблему заново:
Есть запрос

Код: plaintext

1.
2.
3.
4.
5.
6.
7.

SQLStr =  "INSERT INTO Bill_Arrival(OperID_2, [Реф №], Дата1, [Код счета], Потребитель, Наименование, "  _
        &  "Валюта, Приход, Эквивалент1,User_ID) SELECT "  & Forms![ПАРТНЕРЫ_Договор]!OperId &  ", "  _
        &  "'" & Me!fld_Ref & "', date(), '" & Me!lst_Bill & "', '" & Me!lst_Consumer & "', "  _
        &  "'" & Me!fld_Name & "', '" & Me!lst_currency & "', "  & Me!fld_Sum &  ", ("  _
        & Format(Me![fld_Sum] * YeRate(Me![lst_currency]) / (YeRate(YeType( "1 ")) * YePer( "1 ")),  "#.##" ) &  "), "  _
        &  "'" & Forms!UserID!UserID & "'" 

CurrentDb.Execute SQLStr

При его выполнении возникает ошибка: "Ошибка синтаксиса (запятая) в выражении запроса."
Что делать?

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

02.03.2004, 10:26

#32427334

Чумаков А.

Гость

VBA->SQL запрос -> Как запятую точкой заменить???

Я у себя сделал фунцию для засовывания числа в SQL-строку:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.

Public Function ChangeFormatDoubleToSQL(Num As Double) As String
Dim NumTxt As String

NumTxt = Format$(Num,  "0 . 00 ")
Mid$(NumTxt, Len(NumTxt) -  2 ,  1 ) =  "." 

ChangeFormatDoubleToSQL = NumTxt

End Function

так что у тебя можно было бы заменить твое

Код: plaintext

Format(Me![fld_Sum] * YeRate(Me![lst_currency]) / (YeRate(YeType( "1 ")) * YePer( "1 ")),  "#.##" )

на

Код: plaintext

ChangeFormatDoubleToSQL(Me![fld_Sum] * YeRate(Me![lst_currency]) / (YeRate(YeType( "1 ")) * YePer( "1 ")))

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

02.03.2004, 13:10

#32427767

sasha_1

Участник

Откуда: Санкт-Петербург
Сообщения: 1 613
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

напиши
SQLStr = "INSERT INTO Bill_Arrival(OperID_2, [Реф №], Дата1, [Код счета], Потребитель, Наименование, " _
& "Валюта, Приход, Эквивалент1,User_ID) SELECT " & Forms![ПАРТНЕРЫ_Договор]!OperId & ", " _
& "'" & Me!fld_Ref & "', date(), '" & Me!lst_Bill & "', '" & Me!lst_Consumer & "', " _
& "'" & Me!fld_Name & "', '" & Me!lst_currency & "', " & Me!fld_Sum & ", ( CDbl( " _
& Format(Me![fld_Sum] * YeRate(Me![lst_currency]) / (YeRate(YeType("1")) * YePer("1")), "#.##") & " ) ), " _
& "'" & Forms!UserID!UserID & "'"

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

06.04.2004, 00:14

#32469819

Vsevolod V

Участник

Откуда: Россия. Санкт-Петербург
Сообщения: 3 136
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

В предложенном варианте sasha_1 возникает ошибка:
Неверное число аргументов функции в выражении запроса '(CDbl(908,34))'
-----
Чумаков А.
Твоя функция возращает стринг, а нужно число...
-----
Ерунда какая-то: никак мне не внести значение поля в таблицу. :(

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

06.04.2004, 00:29

#32469822

Serge Gavrilov

Участник

Сообщения: 3 285
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

Может не в тему, но если хотите значение числа получать с точкой, то используйте Str. Эта функция всегда вернет число с точкой в качестве десятичного разделителя
?Str(5/3)
1.66666666666667

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

06.04.2004, 08:44

#32469949

Vsevolod V

Участник

Откуда: Россия. Санкт-Петербург
Сообщения: 3 136
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

Serge Gavrilov

Код: plaintext

Str Function
Returns a Variant (String) representation of a number

Тобиш не получиться вставить стринг в числовое поле.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

06.04.2004, 11:58

#32470297

Serge Gavrilov

Участник

Сообщения: 3 285
Рейтинг: 0 / 0

VBA->SQL запрос -> Как запятую точкой заменить???

Может вы и правы, но я не понял о чем речь.
И почему "не получиться вставить стринг в числовое поле"?
Длинный топик....

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

06.04.2004, 12:22

#32470366

епрст

Гость

VBA->SQL запрос -> Как запятую точкой заменить???

блин,

А Format(), что по вашему вам репрезентейтит.
тут надысь один полагал, что дату :0)

епрст
разззруха

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

все

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&mobile=1&tid=1675529]:	0ms
get settings:	8ms
get forum list:	15ms
check forum access:	3ms
check topic access:	3ms
track hit:	166ms
get topic data:	12ms
get forum data:	3ms
get page messages:	84ms
get tp. blocked users:	2ms
others:	201ms

total:	497ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы