| |
|
|
| | Коллеги привет! У меня есть некая проблема которая заключается в следующем:
1.У меня есть таблица "ЗАКАЗЫ" в ней есть столбцы ( дата и время ), мне необходимо, чтобы когда текущая дата и текущее время совпадало с табличным значением какой либо строки, то строка выделялась (допустим красным цветом и курсор переносился на эту строку).
Вот по этому запросу осуществляется поиск даты и времени:
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If DLookup("dat", "tab2", "dat = #" & Format(Текущая_дата.Value, "mm\/dd\/yyyy") & "#") Then
y = DLookup("dat", "tab2", "dat = #" & Format(Текущая_дата.Value, "mm\/dd\/yyyy") & "#")
End If
If DLookup("Tim", "tab2", "Tim = #" & Format(Текущее_время, "HH:MM:SS") & "#") Then
x = DLookup("Tim", "tab2", "Tim = #" & Format(Текущее вермя, "HH:MM:SS") & "#")
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If x <> 0 And y <> 0 Then
MsgBox "Время выполнять заказ !!!!!!", vbCritical, Администратор
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Не могу сделать, чтобы фокус переходил к указанной записи, и чтобы сама запись как то выделялась.
Помоги чем можешь...
За ранее спасибо!!!! | |
| |
| |
| |
|
|
| | Может проще условное форматирование применить. Если выполняется какое-либо выражение, то формать такой-то. (фон) Типа IIF([Дата]=Date())...
А на счет фокуса, может надо типа
If DLookup("dat", "tab2", "dat = #" & Format(Текущая_дата.Value, "mm\/dd\/yyyy") & "#") Then
y = DLookup("dat", "tab2", "dat = #" & Format(Текущая_дата.Value, "mm\/dd\/yyyy") & "#")
Me![Поле].SetFocus
End If
Или нечто в этом роде. | |
| |
| |
| |
|
|
| | ок. Спс сейчас посмотрим. | |
| |
| |
| |
|
|
| | нет, все равно не получается. У меня идет ленточная форма, мне необходимо, чтобы фокус переходил к указанной строчки, а не просто к ту или иную колонку....  | |
| |
| |
| |
 3 Кб. |
|
| | Судя по вопросу, может лучше что бы в форме msgbox выводилось Время выполнять заказ ..... Администратор. Туда и вставь. В остальном не помощник. Тут наверняка с рекордсетом каким-нибудь дело иметь надо. Профи подскажут. Я бы через запрос делал и все.
Пристегнул инфу (ссылки на источник имеются). Может что поможет. | |
| |
| |
| |
|
|
| | К сведению: строчка в ленточной форме - это запись. Следовательно, переходить надо на... | |
| |
| |
