Гость
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Expected: end of statment / 12 сообщений из 12, страница 1 из 1
25.05.2020, 10:11
    #39961555
kniga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Expected: end of statment
Дд!

Хочу добавить сортировку по полю "txtCode". В конце выражения (да и в середину пробовал) добавляю ORDER BY txtCode, но пишет, что не закрыл выражение.

Код: vbnet
1.
2.
3.
Me.ctrlSubForm.Form.RecordSource = "SELECT *,  IIf(IsNull([Power]),[Info],[Power] & "" kW"" & ""; "" &Vmin &"" - ""&Vmax&"" m3"") As tex, " & _
 "IIF(IsNull([Forms]![frmData]![Ïîëå38]), Format(PriceEU, '# ###.00 ˆ'), Format([Forms]![frmData]![Ïîëå38]*[PriceEU], 'Currency')) " & _
 "AS Price FROM tblBranchPipes WHERE IDData=" & Mid(Node.Key, 2)




Подскажите, пж, какими знаками это сделать?
...
Рейтинг: 0 / 0
25.05.2020, 10:34
    #39961572
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Expected: end of statment
kniga,

Думаю, что аксессу не нравятся (точки с запятой) в форматах - в аксесс это конец инструкции
да и в кавычках поля tex не уверена - проверьте по debug.print

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
SS = "SELECT *,"
ss=ss & "  IIf(IsNull([Power]),[Info],[Power] & "" kW"" & ""; "" &Vmin &"" - ""&Vmax&"" m3"") As tex,"
SS=SS  &  " IIF(IsNull([Forms]![frmData]![Ïîëå38]),"
SS=SS & " Format(PriceEU, '# ###.00 ˆ'),"
SS=SS & " Format([Forms]![frmData]![Ïîëå38]*[PriceEU], 'Currency')) " 
SS=SS & " AS Price FROM tblBranchPipes WHERE IDData=" & Mid(Node.Key, 2)
DEBUG.PRINT SS

Me.ctrlSubForm.Form.RecordSource = SS
...
Рейтинг: 0 / 0
25.05.2020, 11:28
    #39961609
kniga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Expected: end of statment
ПЕНСИОНЕРКА,

ой, у меня в коде то не так.. ) я когда просматривал, то только на начало посмотрел и конец, а в середине что то вставилось, непонятно что. На самом деле у меня так:

Код: vbnet
1.
2.
3.
Me.ctrlSubForm.Form.RecordSource = "SELECT *,  IIf(IsNull([Power]),[Info],[Power] & "" kW"" & ""; "" &Vmin &"" - ""&Vmax&"" m3"") As tex, " & _
 "IIF(IsNull([Forms]![frmData]![Поле38]), Format(PriceEU, '# ###.00 €'), Format([Forms]![frmData]![поле38]*[PriceEU], 'Currency')) " & _
 "AS Price FROM tblBranchPipes WHERE IDData=" & Mid(Node.Key, 2)



точек с запятой нет. Может из-за знака евро так все "закодировалось"?
PS. Я, честно говоря, debug.print не знаю как делать, извиняюсь )
...
Рейтинг: 0 / 0
25.05.2020, 12:29
    #39961640
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Expected: end of statment
kniga, а теперь простыми словами, без всей этой фигни, опиши что ты хочешь получить.
...
Рейтинг: 0 / 0
25.05.2020, 13:19
    #39961664
kniga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Expected: end of statment
Панург,

делаю прайс-лист, слева дерево, справа подчиненная форма с информацией из таблицы tblBranchPipes. Отрывок кода это то, что подгружается в этой подчиненной форме при загрузке формы с деревом. В таблице есть поле txtCode (Код товара), вот по нему хочу сделать сортировку в этой подчиненной форме. На добавление ORDER BY txtCode в конце выражения выдает ошибку. Я так понял надо закрыть выражение, типа кавычками или еще чем-то, пробовал разные знаки, не получается.
В принципе, чтобы было видней, можно сократить выражение
Код: vbnet
1.
Me.ctrlSubForm.Form.RecordSource = "SELECT * FROM tblBranchPipes WHERE IDData=" & Mid(Node.Key, 2)
...
Рейтинг: 0 / 0
25.05.2020, 13:33
    #39961673
kniga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Expected: end of statment
в приложении БД (с деревом) на основе которой я делаю прайс-лист.
...
Рейтинг: 0 / 0
26.05.2020, 05:00
    #39961972
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Expected: end of statment
kniga,
...
Рейтинг: 0 / 0
26.05.2020, 05:04
    #39961973
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Expected: end of statment
kniga
В таблице есть поле txtCode (Код товара), вот по нему хочу сделать сортировку в этой подчиненной форме.
такого поля в примере не увидел
...
Рейтинг: 0 / 0
26.05.2020, 08:43
    #39962002
kniga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Expected: end of statment
Панург,

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

Я утром нашел заморский форум, где увидел в коде какие знаки мне надо поставить )

Me.ctrlSubForm.Form.RecordSource = "SELECT * FROM tblBranchPipes WHERE IDData=" & Mid(Node.Key, 2) & " OREDER BY [txtCode] " У меня с амперсантами и кавычками недопонимание происходит )

Еще вот вопрос, хочу добавить к сортировке еще одно поле, т. е. сначала по txtCode (сделано), а потом по Наименованию. Через запятую не идет.. ) Что нужно добавить, подскажите, пж.
...
Рейтинг: 0 / 0
26.05.2020, 09:25
    #39962015
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Expected: end of statment
kniga
Еще вот вопрос, хочу добавить к сортировке еще одно поле, т. е. сначала по txtCode (сделано), а потом по Наименованию. Через запятую не идет.. ) Что нужно добавить, подскажите, пж.
У формы есть свойство OrderBy и OrderByOn . Пользуйся.
...
Рейтинг: 0 / 0
26.05.2020, 09:28
    #39962017
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Expected: end of statment
kniga
У меня с амперсантами и кавычками недопонимание происходит )
что ты прицепился к сборке строки? Я тебе показал как без этого можно прекрасно обойтись штатными возможностями.
А запрос собери в редакторе запросов (QBE) и сохрани (этого же добиваешься, когда правишь источник строк формы, просто запрос не отображается).

— Видишь суслика?
— Нет
— И я не вижу. А он есть.

(с)
...
Рейтинг: 0 / 0
26.05.2020, 11:46
    #39962103
kniga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Expected: end of statment
Панург,

спасибо за советы!
авторА запрос собери в редакторе запросов (QBE) Наверно так и сделаю, в нем и сортировку проще сделать )
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Expected: end of statment / 12 сообщений из 12, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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