Как ввести данные с клавиатуры

[NemoSUN]

Я совсем ещё зелёный в этом и никак не могу понять как сделать запрос (как понимаю)

Есть таблица, в которой по строкам идут наименования. А в столбцах толщина. На пересечении - цена за квадрат. Нужно ввести с клавиатуры ширину и высоту, выбрать цену в соответствии с наименованием стекла и толщиной и перемножить. Ничего не получается.

[Aleksandr H.]

Ну а база с таблицей где, по фото сложно гадать

[NemoSUN]

Сообщение от Aleksandr H.

Ну а база с таблицей где, по фото сложно гадать

Приложил

[Aleksandr H.]

почему ТолщинаСтекла.[Толщина стекла] - число, а ЦенаСтекла4.Толщина - текст?

бросьте кнопку на форму с таким кодом внутри

On Error GoTo Err_Кнопка14_Click
    Dim rs As Recordset
    Dim sSql As String
    sSql = "SELECT ЦенаСтекла4.Стоимость " & _
" FROM МаркаСтекла INNER JOIN (ЦенаСтекла4 INNER JOIN ТолщинаСтекла ON ЦенаСтекла4.Толщина = ТолщинаСтекла.[Толщина стекла]) ON МаркаСтекла.[Марка стекла] = ЦенаСтекла4.Марка " & _
" WHERE МаркаСтекла.Код = " & Form_СтеклоВсёВключено.ПолеСоСписком7 & " AND ТолщинаСтекла.[Толщина стекла]= " & Form_СтеклоВсёВключено.ПолеСоСписком9

    Set rs = CurrentDb.OpenRecordset(sSql)
    If rs.RecordCount = 1 Then
        MsgBox "Цена : " & rs.Fields(0), vbInformation + vbOKOnly, "Price"
    Else
        MsgBox "Ошибка получения цены", vbError + vbOKOnly, "Price"
    End If

Exit_Кнопка14_Click:
    Exit Sub

Err_Кнопка14_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка14_Click

[NemoSUN]

Сообщение от Aleksandr H.

почему ТолщинаСтекла.[Толщина стекла] - число, а ЦенаСтекла4.Толщина - текст?

Неправильно завёл. Конечно, и то и то - число.
А без такой дико навороченной кнопки как-то можно попроще обойтись ????? Простыми вызовами и формой