ник: П.Полиграфович
Забиндил кнопку:
Private Sub Кнопка_Click()
Dim TimeSab As Variant
TimeSab = CurrentProject.Connection.Execute("SELECT Sabado FROM Расписание WHERE " & _
"WDay = '" & Forms!Заказы!Days & "' AND Группа = " & Forms!Заказы!Группа & " " & _
"AND Время = " & Forms!Заказы!Время & ";").Fields(0)
MsgBox "rec:" & TimeSab
End Sub
|
Отображается ошибка (в прикрепленном рисунке)
???
Что интересно, ежели в комбобокс ставлю такой же запрос:
"SELECT Sabado FROM Расписание WHERE " & _
"WDay = Forms!Заказы!Days AND Группа = Forms!Заказы!Группа " & _
"AND Время = Forms!Заказы!Время;"
|
то замечательно выбираю из него необходимые мне значения времени...
Типы полей: Wday - текст
Группа - числовой
Время - Дата/Время
Sabado - Дата/Время
???