-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


Ïîäñêàæèòå, ãäå îøèáêà? Ýòîò çàïðîñ â ïðèëîæåíèè Access âûïîëíÿåòñÿ, íî â VBA îøèáêà 3065

Ïÿòíèöà, 28 Àïðåëÿ 2017 ã. 10:00 + â öèòàòíèê
Sub ÎáíîâèòüÊëàññèôèêàòîð()
Dim s

s = "SELECT first(ÊîäÎòäåëà), first(ÍàèìåíîâàíèåÎòäåëà), first(ÊîäÃðóïïû), first(ÍàèìåíîâàíèåÃðóïïû), first(ÊîäÏîäãðóïïû), first(ÍàèìåíîâàíèåÏîäãðóïïû) FROM " & _
    "(SELECT ÊîäÎòäåëà, ÍàèìåíîâàíèåÎòäåëà, ÊîäÃðóïïû, ÍàèìåíîâàíèåÃðóïïû, ÊîäÏîäãðóïïû, ÍàèìåíîâàíèåÏîäãðóïïû " & _
    "FROM Êëàññèôèêàòîð " & _
    "Union " & _
    "SELECT Classif.Ïîëå1, Classif.Ïîëå2, Classif.Ïîëå3, Classif.Ïîëå4, Classif.Ïîëå5, Classif.Ïîëå6 " & _
    "FROM Classif) WHERE NOT ÊîäÏîäãðóïïû IS NULL " & _
    "Group by ÊîäÏîäãðóïïû;"

CurrentDb.Execute s
MsgBox ("Èìïîðò óñïåøíî çàâåðøåí")

End Sub

http://www.sql.ru/forum/1258639/podskazhite-gde-oshibka-etot-zapros-v-prilozhenii-access-vypolnyaetsya-no-v-vba-oshibka-3065


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó