Запрос на добавление.

[Prin53]

Есть форма, в которой заполняется два поля: Разряд и Код.

Нужно выбрать из другой таблицы коэффициент для Разряда, и вставить его и поле Код в еще одну таблицу.

Я написал такой код для кнопки:

Me.Dirty = False

CurrentDb.Execute "INSERT INTO Расчет ( Коэффициент, Код )values (" + (CurrentProject.Connection.Execute("SELECT Разряд.Коэффициент FROM Разряд WHERE (((Разряд.Разряд)=" + Me.Разряд + "));").Fields(0)) + ", " + Me.Код + ");"

DoCmd.Close

Но пишет, type mismatch.
Чего так?

[Myhaylo]

Замените "+" на "&" (без кавычек)

[Prin53]

Спасибо, но теперь пишет, что не совпадает число значений запроса и число результирующих значений. Хотя запрос (который вложен) должен выдавать лишь одно значение, соответствующее коэффициенту разряда, а они уникальны.

[alvk]

Так попробуйте тогда уж:

SELECT top 1 Разряд.Коэффициент FROM Разряд

[Prin53]

Все же не помогает.

Private Sub Кнопка74_Click()
Me.Dirty = False
t = CurrentProject.Connection.Execute("SELECT TOP 1 Разряд.Коэффициент FROM Разряд WHERE (((Разряд.Разряд)=" & Me.Разряд & "));").Fields(0)
CurrentDb.Execute "INSERT INTO Расчет ( Коэффициент, Код )values (" & t & ", " & Me.Код & ");"
DoCmd.Close
End Sub

Сделал так, что бы разобраться было легче.
Ошибка во вставке. Как там могут быть не такие результирующие значения?

[Teslenko_EA]

Здравствуйте Prin53.
Вашу задачу лучше решать в более наглядной конструкции, и тогда на каждом этапе можно контролировать её выполнение.

Const sQ1 = "SELECT TOP 1 Коэффициент FROM Разряд WHERE Разряд=", sQ2 = "INSERT INTO Расчет ( Коэффициент, Код ) Values ("
Dim s1$, s2$, rs AS ADODB.Recordset, cn AS ADODB.Connection
s1 = Val(Me.Разряд & ""): s2 =  Val(Me.Код & "")
If Val(s1) * Val(s2) = 0 Then Exit Sub 'значение поля(ей) не числовые или равно(ны) нулю
Set cn = CurrentProject.Connection
Set rs = cn..Execute(sQ1 + s1)
If rs.Eof Then Exit Sub ' в таблице Разряд нет соответствующей записи
s1 = rs(0) & "" ' 
cn..Execute(sQ2 + s1 + ", " + s2 + ")")

Евгений.

[Prin53]

Спасибо, Евгений!
Но код не вызывает ошибку. "User-defined type not defined'.

rs As ADODB.Recordset

[alvk]

Подцепите ADO в референсах (alt+f11 - tools - references), вообще странно, что его у вас нет там.

[Prin53]

Опять же, вставка ему не нравится.