Ïîäñêàæèòå, ãäå îøèáêà? Ýòîò çàïðîñ â ïðèëîæåíèè 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
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-