У кого есть время и желание напрячь мозги - помогите, пожалуйста.
Есть таблица в Access. В ней есть поля IdКонтрагента и Дата следующего контакта. Мне надо, чтобы при наступлении даты из второго поля в определенное время, например, в 10:00, выскакивало сообщение, что надо позвонить контрагенту Х или, есть их несколько, то Х и Y. Проще говоря, надо создать напоминалку.
При этом надо чтобы была возможность после появления на экране сообщения либо полностью отключить их до следующей загрузки программы, либо чтобы опять она напомнила через определенное время.
Поскольку я не великий спец в VBA, будьте добры, опуститесь до моего уровня и напишите подробнее, если предложите не готовый код, а решение

Если решать задачу на VBA - придется Держать ее загруженной.
Поищи такие шедулеры, держащие данные в формате Аксесса, и приспособь туда свою базу.

Что мне придется держать загруженной? Мне надо, чтобы при открытии моей БД появлялось при необходимости сообщение о наступлении даты. То есть, мне надо описание сообтветствующей процедуры, которая реагирует на загрузку БД. А что касается БД, то предполагается, что она и так юудет загружена весь день

Цитата

Мне надо, чтобы при открытии моей БД появлялось при необходимости сообщение о наступлении даты

В таком разе пишешь либо соотв. код в Form_Load открываемой при старте формы, либо в подпрограмму в каком-либо модуле и вызываешь ее из макроса по имени AutoExec.

То что пишется код для Form_Load я догадалась, спасибо. ПРоблема именно в том, что я не могу написать правильно код.

Что-нить типа:

Код

Sub Form_Load Dim dbs as Database Dim rst as Recordset Dim tmp as string Set dbs=CurrentDB Set rst=dbs.Openrecordset "SELECT IDКонтрагент From Контрагенты Where ДатаСледКонтракта = Date(Now)" If rst.Count > 0 Then   with rst   .movefirst   while not .oef      tmp=tmp & !IDКонтрагент & vbCR   wend   end with   MsgBox "Позвонить контрагентам:" & vbCR & tmp EndIf End Sub

OK Спасибо. Я попробую. Вообще-то я уже решила, что создам запрос, который будет выводить контрагентов с текущей датой и именно этот запрос будет выполняться при загрузке БД. Спасибо за помощь. Ваш путь я тоже попробую.

Vic

Цитата

создам запрос, который будет выводить контрагентов с текущей датой и именно этот запрос будет выполняться при загрузке БД

Тогда на основе этого запроса создай отчет и установи у него реакцию самонеоткрывания на пустой набор данных. Получится что он будет выводиться только если отобран хотя бы один контрагент. Впрочем что запрос, что отчет придется выводить макросом - как я уже говорил ранее, он должен иметь имя AutoExec.

Это сообщение отредактировал(а) Akina - 24.8.2004, 12:50

А почему именно AutoExec?

Vic
Так... марш читать хелп к Аксессу.

А почему именно AutoExec?
Добавлено @ 13:53
Сорри... слона-то я и не заметил

Так и не поняла почему Autoexec. В общем, у меня при загрузке БД загружается кнопочная форма, которая не закрывается пока БД открыта. И при загурзки этой формы срабатывает макрос, который будет открывать этот запрос. ЧТо касается открытия через полчаса, то тут я еще подумаю, хотя тут уже проще. Что касается справки Access? то там по поводу Autoexec ф ничего не нашла. Спасибо. Меня обсуждение обычно наводит на мысль

Цитата

Что касается справки Access? то там по поводу Autoexec ф ничего не нашла

Как не нашла, посмотри тему AutoExec macros.

Цитата

Как не нашла, посмотри тему AutoExec macros.

Или в русском варианте - "Настройка параметров открытия файла Microsoft Access"

Да, спасибо. Именно эту справку я и нашла

Vic
Да, учти - если ты сделаешь макрос AutoExec, то будет стартовать именно он, а кнопчатая форма - нет. Поэтому чтобы кнопочная форма открывалась - ты ее должна открывать тем же макросом после отчета о контрагентах.

Выше приведенный код не работает. как миниму содержт ошибки.. Может кто ее исправит?
Или есть другая возможность выстроит как-нить напоминалку. у меня еще проблемка - напоминалка должна сверяться с датой в подформе (субформе). попробывал сделать через запрос - а он выдает как раз запрос на дату а не фильтрует сама по себе..


Может кто поможет? перерыл весь интернет - ничего не нашел подходящего под напоминалку чтобы работало.. неужели так сложно в Аccess сделать ее?