События. Не удается получить значение из таблицы.

[Forest62]

Доброго времени суток. Я уже писал по своей проблеме и мне помогли но далеко я не ушел. Имеется две таблицы "формовка" "продукция", а также форма "формовка". Помогите пожалуйста вытащить из таблицы "продукция" в форму "формовка" значение поля "площадь ряда"

Private Sub количество_тактов_AfterUpdate()
If Len(количество_тактов.Value) <> 0 And Len(тип_продукции.Value) <> 0 Then
коэф.Value = DLookup("[площадь_ряда]", "продукция", "[Вид_продукции] =" & тип_продукции.Value)
квадратных_метров.Value = Round(количество_тактов.Value * коэф.Value)

End If

End Sub

[Teslenko_EA]

Здравствуйте Forest62.
в Вашем случае код может быть работоспособным после подобной корректировки:

Private Sub количество_тактов_AfterUpdate()
Dim коэф#
If Val([количество тактов] & "") <> 0 And Len([тип продукции] & "") > 0 Then
    коэф = DLookup("[площадь ряда]", "продукция", "[вид продукции] ='" & [тип продукции] & "'")
    [квадратных метров] = Round([количество тактов] * коэф)
End If
End Sub

совет:
откажитесь от применения "длинных имен" в объектах БД (имена таблиц, форм, полей,...),
например заменив пробелы подчеркиваниями - "длинных_имен".
Евгений

[Forest62]

Огромное спасибо, друг. Спас мой мозг. Все работает.
И еще раз огромное спасибо