>, wie ich wenn Menge passendes > 0 und nach 30 Tagen des Rechnungsdatums einstellen kann
>0 der amountdue Spalte hinzufügen und <> WO (((AmountDue) >0) UND ((DateDue)<> e (), - 30)))
)
Zu die eMail senden. Sie konnten den Code laufen lassen, wann immer Sie die Datenbank öffnen, wenn Sie eine spezifische Form öffnen, wenn Sie einen Knopf anklicken oder sogar ihn von einem Makro benennen und eine zeitlich geplante Aufgabe verwenden, sie zu einem spezifischen Zeitpunkt zu senden. Abhängt davon, wie Sie ihn tun möchten.
Für den Code. ist hier ein einfaches Beispiel. etwas von dem Code ändernd, bekannt gegeben andere egeben. Diese zwei Funktionen in ein Modul in Ihrer Datenbank kleben und die SendReport Funktion änderndes „YourSavedQueryName“ zum tatsächlichen Namen Ihrer Frage redigieren und „
[email protected]“ zu Ihrem email address sowie noch etwas (wie Feldnamen) diese braucht geändert. Die SendReport Funktion von dann benennen, wohin Sie (wie an ein Knopfklicken oder von einem Makro) den Report senden möchten.
Allgemeine Funktion OutlookSend (ByVal MailUser als Schnur, ByVal MsgSubject als Schnur, ByVal msgbody als Schnur) wie Boolesch
Schwaches appOutLook als Outlook.Application
Schwaches MailOutLook als Outlook.MailItem
Auf Störung Goto- ErrHandler
Wenn nicht IsNull (MailUser) und MailUser <> "" dann
appOutLook = CreateObject („Outlook.Application“
) einstellen
MailOutLook = appOutLook.CreateItem (olMailItem)
einstellen
Empfänger = MailUser
Mit MailOutLook
. Zu = Empfänger
. Thema = MsgSubject
. Körper = msgbody
.DeleteAfterSubmit = zutreffend 'dieses lassen Aussicht die Anmerkung senden, ohne sie in Ihrem gesendeten Sortierfach zu speichern
. Senden
Mit beenden
MailOutLook einstellen = nichts
appOutLook einstellen = nichts
Beenden, wenn 'nicht IsNull (MailUser)
ExitHere:
Funktion herausnehmen
ErrHandler:
Fall Err.Number vorwählen
Rechtssache 0
Zusammenfassung ExitHere
Fall sonst
MsgBox „Störung“ u. Err.Number u. „(“ u. Err.Description u. ") in OutlookSend“
Ende auserwählt
Enden-Funktion
Allgemeine Funktion SendReport ()
Schwaches MyMsgBody, MySubject, MyMailAddress als Schnur
Schwaches ItemCount als ganze Zahl
Auf Störung Goto- ErrHandler
Wenn DCount („*“, „YourSavedQueryName“) > 0 dann
Schwache dbs als Datenbank, rst als DAO.Recordset
Dbs = CurrentDb einstellen
Rst = dbs.OpenRecordset („YourSavedQueryName“
) einstellen
rst.MoveFirst
ItemCount = 0
Bis rst.EOF tun
item1 = rst! AmountDue
item2 = rst! WorkOrder
item3 = rst! [Rechnungs-Datum]
MyMsgBody = MyMsgBody u. item1 u. vbTab u. item2 u. vbTab u. item3 u. vbCrLf
ItemCount = ItemCount + 1
rst.MoveNext
Schleife
rst. Abschluss
MyMailAddress = „
[email protected]“
MySubject = „Rechnungs-passender Report: “ U. ItemCount u. „Einzelteile“
Wenn nicht IsNull (MyMsgBody) und MyMsgBody <> "" dann = OutlookSend rösten (MyMailAddress,
MySubject, MyMsgBody)
Beenden wenn
ExitHere:
Funktion herausnehmen
ErrHandler:
Fall Err.Number vorwählen
Rechtssache 0
Zusammenfassung ExitHere
Fall sonst
MsgBox „Störung“ u. Err.Number u. „(“ u. Err.Description u. ") in SendReport“
Ende auserwählt
Enden-Funktion
