Слишком мало параметров. Требуется 2

Autcomm

Дата: 10.01.2012 20:31:43

Друзья!

Ну не могу я решить эту проблему!

Dim ID As DAO.Recordset
Dim User As String
User = Me.User
Set ID = CurrentDb.OpenRecordset("SELECT &#209;&#243;&#225;&#224;&#227;&#229;&#237;&#242;&#251;.&#209;&#243;&#225;&#224;&#227;&#229;&#237;&#242;&#251;, &#209;&#243;&#225;&#224;&#227;&#229;&#237;&#242;&#251;.&#226;&#237;&#243;&#242;&#240;_&#237;&#224;&#232;&#236;&#229;&#237;&#238;&#226;&#224;&#237;&#232;&#229; From &#209;&#243;&#225;&#224;&#227;&#229;&#237;&#242;&#251; WHERE ((&#209;&#243;&#225;&#224;&#227;&#229;&#237;&#242;&#251;.&#226;&#237;&#243;&#242;&#240;_&#237;&#224;&#232;&#236;&#229;&#237;&#238;&#226;&#224;&#237;&#232;&#229;)=User)")

Слишком мало параметров. Требуется 2
Помогите!

Autcomm

Дата: 10.01.2012 20:39:16

ой

Dim ID As DAO.Recordset
Dim User As String
User = Me.User
Set ID = CurrentDb.OpenRecordset("SELECT Субагенты.Субагенты, Субагенты.внутр_наименование From Субагенты WHERE ((Субагенты.внутр_наименование)=User)")

EvAnd

Дата: 10.01.2012 20:55:22

Autcomm,
sql.ru/faq/faq_topic.aspx?fid=410

EvAnd

Дата: 10.01.2012 20:58:57

Сердитого смайлика не нашёл... :-)

Владимир Саныч

Дата: 10.01.2012 21:16:11

EvAnd
Сердитого смайлика не нашёл... :-)

Hезабайнин

Дата: 10.01.2012 21:20:19

Владимир Саныч

EvAnd
Сердитого смайлика не нашёл... :-)

ну или так

:
11860338

Владимир Саныч

Дата: 10.01.2012 21:24:54

Да. Еще где-то был красный смайлик, помельче этого, который я когда-то ставил от имени модератора. Не могу найти.

Guest33

Дата: 10.01.2012 21:47:32

автор
Ну не могу я решить эту проблему!

Слишком мало параметров. Требуется 2

EvAnd

Дата: 10.01.2012 22:04:22

Guest33

автор
Ну не могу я решить эту проблему!

Слишком мало параметров. Требуется 2

Hезабайнин

Дата: 10.01.2012 22:11:08

Autcomm
ой Dim ID As DAO.Recordset Dim User As String User = Me.User Set ID = CurrentDb.OpenRecordset("SELECT Субагенты.Субагенты, Субагенты.внутр_наименование From Субагенты WHERE ((Субагенты.внутр_наименование)=User)")

Autcomm

ой

Dim ID As DAO.Recordset
Dim User As String
User = Me.User
Set ID = CurrentDb.OpenRecordset("SELECT Субагенты.Субагенты, Субагенты.внутр_наименование From Субагенты WHERE ((Субагенты.внутр_наименование)=User)")

Set ID = CurrentDb.OpenRecordset("SELECT Субагенты.Субагенты, Субагенты.внутр_наименование From Субагенты WHERE ((Субагенты.внутр_наименование)= '" & User & "'" & ")")