> как могу я установить если количество должное > 0 и после 30 дней даты фактуры
добавьте >0 к колонке amountdue и <> ГДЕ (((AmountDue) >0) И ((DateDue)<> e (), - 30)))
)
Послать электронная почта. вы smogли побежать Кодий когда вы раскрываете базу данных, когда вы раскрываете специфически форму, когда вы щелкаете кнопкой или даже вызываете ее от макроса и используете запланированную задачу послать ее на специфическом временени. Быть в зависимости от как вы хотите сделать его.
Для Кодего. здесь просто пример. дорабатывающ некоторое из Кодего другие вывешивали. Наклеите эти 2 функции в модуль в вашей базе данных и отредактируйте функцию изменяя «YourSavedQueryName» SendReport к фактическому имени ваших вопроса и «
[email protected]» к вашему адресу электронная почта так же, как что-нибудь еще (как названия поля) те изменено. После этого вызовите функцию SendReport от везде, где вы хотел были бы (как дальше щелчок кнопки или от макроса) послать рапорт.
Общественная функция OutlookSend (MailUser ByVal как шнур, ByVal MsgSubject как шнур, ByVal msgbody как шнур) как булевско
Тусклое appOutLook как Outlook.Application
Тусклое MailOutLook как Outlook.MailItem
На ошибке переход ErrHandler
Если "" не IsNull (MailUser) и <> MailUser после этого
Установите appOutLook = CreateObject («Outlook.Application
»)
Установите MailOutLook = appOutLook.CreateItem (olMailItem
)
Получатель = MailUser
С MailOutLook
. К = получатель
. Вопрос = MsgSubject
. Тело = msgbody
.DeleteAfterSubmit = поистине 'это препятствовало бы внешнему виду послать примечание без хранить оно в вашем посланном ящике
. Пошлите
Закончитесь с
Установите MailOutLook = ничего
Установите appOutLook = ничего
Закончитесь если 'не IsNull, то (MailUser)
ExitHere:
Выходите функция
ErrHandler:
Выберите случай Err.Number
Случай 0
Резюме ExitHere
Случай еще
MsgBox «ошибка» & Err.Number & «(" & Err.Description & ") в OutlookSend»
Конец отборный
Функция конца
Общественная функция SendReport ()
Тусклое MyMsgBody, MySubject, MyMailAddress как шнур
Тусклое ItemCount как интежер
На ошибке переход ErrHandler
Если DCount («*», «YourSavedQueryName») > 0 после этого
Тусклые dbs как база данных, rst как DAO.Recordset
Установите dbs = CurrentDb
Установите rst = dbs.OpenRecordset («YourSavedQueryName
»)
rst.MoveFirst
ItemCount = 0
Не сделать до rst.EOF
item1 = rst! AmountDue
item2 = rst! WorkOrder
item3 = rst! [Дата фактуры]
MyMsgBody = MyMsgBody & item1 & vbTab & item2 & vbTab & item3 & vbCrLf
ItemCount = ItemCount + 1
rst.MoveNext
Петля
rst. Конец
MyMailAddress = «
[email protected]»
MySubject = «отчет о фактур должный: » & ItemCount & «детали»
Если "" не IsNull (MyMsgBody) и <> MyMsgBody после этого Ret = OutlookSend, то (MyMailAddress,
MySubject, MyMsgBody)
Закончитесь если
ExitHere:
Выходите функция
ErrHandler:
Выберите случай Err.Number
Случай 0
Резюме ExitHere
Случай еще
MsgBox «ошибка» & Err.Number & «(" & Err.Description & ") в SendReport»
Конец отборный
Функция конца
