Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Как купить рекламу на форуме


Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы Поиск в этой теме
Старый 16.12.2020, 15:29   #1
NemoSUN
Новичок
Джуниор
 
Регистрация: 16.04.2015
Сообщений: 3
По умолчанию Как ввести данные с клавиатуры

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

Есть таблица, в которой по строкам идут наименования. А в столбцах толщина. На пересечении - цена за квадрат. Нужно ввести с клавиатуры ширину и высоту, выбрать цену в соответствии с наименованием стекла и толщиной и перемножить. Ничего не получается.
Изображения
Тип файла: jpg Untitled-1.jpg (78.1 Кб, 1 просмотров)
NemoSUN вне форума Ответить с цитированием
Старый 16.12.2020, 15:37   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,142
По умолчанию

Ну а база с таблицей где, по фото сложно гадать
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 16.12.2020, 16:00   #3
NemoSUN
Новичок
Джуниор
 
Регистрация: 16.04.2015
Сообщений: 3
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
Ну а база с таблицей где, по фото сложно гадать
Приложил
Вложения
Тип файла: zip Gl.zip (66.5 Кб, 1 просмотров)
NemoSUN вне форума Ответить с цитированием
Старый 16.12.2020, 16:23   #4
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,142
По умолчанию

почему ТолщинаСтекла.[Толщина стекла] - число, а ЦенаСтекла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
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 16.12.2020, 17:21   #5
NemoSUN
Новичок
Джуниор
 
Регистрация: 16.04.2015
Сообщений: 3
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
почему ТолщинаСтекла.[Толщина стекла] - число, а ЦенаСтекла4.Толщина - текст?
Неправильно завёл. Конечно, и то и то - число.
А без такой дико навороченной кнопки как-то можно попроще обойтись ????? Простыми вызовами и формой
NemoSUN вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме 20000 рублей в месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как в C# ввести данные в массив rusDobryak C# (си шарп) 2 13.02.2020 13:25
Как ввести массив с клавиатуры? alhon Общие вопросы C/C++ 4 31.05.2013 21:00
Вычислить площадь трапеции. Данные ввести с клавиатуры. Bracho1994 Помощь студентам 3 10.04.2013 17:19
как ввести с клавиатуры двузначные и отрицательные числа - Assembler Варвара Помощь студентам 5 20.12.2009 14:29
как ввести числа с клавиатуры и запомнить их в переменные mandarinka27 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 18.05.2009 16:03


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS