ник: Анатолий (Киев)
On Error Resume Next
Dim TimeSab As Date
TimeSab = CurrentProject.Connection.Exequte("SELECT Sabado FROM расписание WHERE " _ & "WDay = " & Forms!Заказы!Days & " AND Время = " & Forms!Заказы!Время & ";").Field(0)
|
Еще проще:
Dim TimeSab As Variant
TimeSab = DLookup("[Sabado]", "[расписание]"; "WDay = " & Forms!Заказы!Days & " AND Время = " & Forms!Заказы!Время)
|
Предполагается, что поля "WDay" и "Время" - числовые. Если нет, то условие отбора должно выглядеть по-другому.