ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / VBA->SQL запрос -> Как запятую точкой заменить???
25 сообщений из 66, страница 1 из 3
  1  все
VBA->SQL запрос -> Как запятую точкой заменить???
    #32427079
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
А мне все не заснуть :)
------
Ошибка синтаксиса (запятая) в выражении запроса.
Код: plaintext
Format(Me![fld_Sum] * YeRate(Me![lst_currency]) / (YeRate(YeType( "1 ")) * YePer( "1 ")),  "#.##" )

Почему это не помомает???
...
Рейтинг: 0 / 0
01.03.2004, 21:32
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32427082
Фотография Темный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Темный
Участник
Точку с запятой вместо запятой попробуй :)
Код: plaintext
1.
.......YePer( "1 "));  "#.##" )
...
Рейтинг: 0 / 0
01.03.2004, 21:33
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32427084
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Не-не-не
Это не из той оперы :) Тут запятая нужна
...
Рейтинг: 0 / 0
01.03.2004, 21:35
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32427089
Фотография Темный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Темный
Участник
Блин. Я тоже хочу спать. Поэтому никак не пойму, чего не работает-то? Или работает, но не так как надо?
...
Рейтинг: 0 / 0
01.03.2004, 21:47
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32427094
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
вот это равно 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:51
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32427097
Фотография Темный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Темный
Участник
Ты в какой стране живешь?
В России...
Региональные настройки в Виндах какие?
Российские...
В России как принято целую часть от дробной отделять?
Запятой...

Хватит мучать зверушку!
...
Рейтинг: 0 / 0
01.03.2004, 21:53
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32427099
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
И что мне теперь настроики виндов менять, чтобы это запрос выполнить? :)
...
Рейтинг: 0 / 0
01.03.2004, 21:55
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32427100
Фотография Темный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Темный
Участник
з.ы.
Цитата из хелпа:
Код: plaintext
1.
При попытке форматировать числа без указания формата функция 
Format работает так же, как функция Str, но с учетом региональных параметров.
...
Рейтинг: 0 / 0
01.03.2004, 21:55
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32427101
Фотография Темный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Темный
Участник
Блин, ну равно и равно... Тебе так сильно точка нужна в этом выражении?????
...
Рейтинг: 0 / 0
01.03.2004, 21:56
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32427106
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Да я то гадить хотел на эту точку!
Вот, что мешает: Ошибка синтаксиса (запятая) в выражении запроса.
...
Рейтинг: 0 / 0
01.03.2004, 22:07
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32427108
Фотография Темный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Темный
Участник
МЛЯ\r
/topic/77852#558277
...
Рейтинг: 0 / 0
01.03.2004, 22:09
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32427111
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
ВО-ВО\r
/topic/77852#558279]
...
Рейтинг: 0 / 0
01.03.2004, 22:11
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32427113
Фотография Темный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Темный
Участник
А попробовать? Или уговаривать надо? У меня-то работает с ; и не работает с ,
...
Рейтинг: 0 / 0
01.03.2004, 22:13
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32427114
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Короче, дело в том, что вышеуказанная ошибка возникает, когда делаешь так:
Код: 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:13
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32427115
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
При запятой возникает ошибка синтаксиса
...
Рейтинг: 0 / 0
01.03.2004, 22:14
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32427117
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
тобишь при точке с запятой
...
Рейтинг: 0 / 0
01.03.2004, 22:14
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32427118
Фотография Темный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Темный
Участник
Теперь-то уже понял... Нет, чтобы сразу код привести...
...
Рейтинг: 0 / 0
01.03.2004, 22:20
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32427303
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Поясню проблему заново:
Есть запрос
Код: 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:15
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32427334
Чумаков А.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чумаков А.
Гость
Я у себя сделал фунцию для засовывания числа в 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, 10:26
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32427767
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
напиши
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
02.03.2004, 13:10
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32469819
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
В предложенном варианте sasha_1 возникает ошибка:
Неверное число аргументов функции в выражении запроса '(CDbl(908,34))'
-----
Чумаков А.
Твоя функция возращает стринг, а нужно число...
-----
Ерунда какая-то: никак мне не внести значение поля в таблицу. :(
...
Рейтинг: 0 / 0
06.04.2004, 00:14
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32469822
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge Gavrilov
Участник
Может не в тему, но если хотите значение числа получать с точкой, то используйте Str. Эта функция всегда вернет число с точкой в качестве десятичного разделителя
?Str(5/3)
1.66666666666667
...
Рейтинг: 0 / 0
06.04.2004, 00:29
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32469949
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Serge Gavrilov
Код: plaintext
1.
Str Function
Returns a Variant (String) representation of a number

Тобиш не получиться вставить стринг в числовое поле.
...
Рейтинг: 0 / 0
06.04.2004, 08:44
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32470297
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge Gavrilov
Участник
Может вы и правы, но я не понял о чем речь.
И почему "не получиться вставить стринг в числовое поле"?
Длинный топик....
...
Рейтинг: 0 / 0
06.04.2004, 11:58
| Ответить | Цитировать | Написать  
VBA->SQL запрос -> Как запятую точкой заменить???
    #32470366
епрст
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
епрст
Гость
блин,

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

епрст
разззруха
...
Рейтинг: 0 / 0
06.04.2004, 12:22
| Ответить | Цитировать | Написать  
25 сообщений из 66, страница 1 из 3
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / VBA->SQL запрос -> Как запятую точкой заменить???
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32427117&tid=1675529]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 176ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 58ms
get tp. blocked users:
 1ms
others: 242ms
total:  515ms
созд. / загр.: 515ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]