Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: SuperSem
Коллеги привет! У меня есть некая проблема которая заключается в следующем:
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, Администратор
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Не могу сделать, чтобы фокус переходил к указанной записи, и чтобы сама запись как то выделялась.
Помоги чем можешь...

За ранее спасибо!!!!


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.