>, hur kan I-uppsättningen om beloppet rakt > 0, och efter 30 dagar av fakturera daterar
tillfoga >0 till amountduekolonnen och <> VAR (((AmountDue) >0) OCH ((DateDue)<> e (), - 30)))
)
Att att överföra e-posten. du kunde köra kodifiera, när som helst du öppnar databasen, när du öppnar en närmare detalj, bilda, när du klickar en knäppas eller även en appell det från en makro och använder en planlagd uppgift att överföra den på en specifik tid. Beror på hur du önskar att göra den.
För kodifiera. är här ett enkelt exempel. ändra någon av kodifiera har andra postat. Klistra dessa två fungerar in i en enhet i din databas och redigerar SendReporten fungerar ändrande ”YourSavedQueryName” till det faktiskt namnger av din query, och ”
[email protected]” till din e-post tilltalar, såväl som något annat (liksom sätta in namnger) som är de, behöver ändrande. Därefter appell som SendReporten fungerar från, wherever du skulle något liknande (något liknande på en knäppas klickar eller från en makro), för att överföra rapporten.
Allmänhet fungerar OutlookSend (den ByVal mailUseren som stränger, ByVal MsgSubject som stränger, msgbody ByVal som stränger) som Boolean
Dunkel appOutLook som Outlook.Application
Dunkla MailOutLook som Outlook.MailItem
På felet GoTo ErrHandler
Om inte IsNull (MailUser) och MailUser <> "" därefter
Fastställd appOutLook = CreateObject (”Outlook.Application
”)
Fastställda MailOutLook = appOutLook.CreateItem (olMailItem
)
Mottagareare = MailUser
Med MailOutLook
. Till = mottagareare
. Betvinga = MsgSubject
. Förkroppsliga = msgbody
.DeleteAfterSubmit = riktigt 'detta skulle l5At framtidsutsikt överför notera, utan att lagra den i överfört ditt, slänga i soptunnan
. Överför
Avsluta med
Fastställda MailOutLook = ingenting
Fastställd appOutLook = ingenting
Avsluta, om 'inte IsNull (MailUser)
ExitHere:
Gå ut fungerar
ErrHandler:
Välj fallet Err.Number
Fall 0
Meritförteckning ExitHere
Fall annars
MsgBox ”fel” & Err.Number & ”(” & Err.Description & ”) i OutlookSend”,
Avsluta valt
Avsluta fungerar
Allmänhet fungerar SendReport ()
Dunkla MyMsgBody, MySubject, MyMailAddress som stränger
Dunkla ItemCount som heltal
På felet GoTo ErrHandler
Om DCount (”*”, ”YourSavedQueryName”) > 0 därefter
Dunkla dbs som databas, rst som DAO.Recordset
Fastställda dbs = CurrentDb
Fastställd rst = dbs.OpenRecordset (”YourSavedQueryName
”)
rst.MoveFirst
ItemCount = 0
Gör till rst.EOF
item1 = rst! AmountDue
item2 = rst! WorkOrder
item3 = rst! [Fakturera daterar],
MyMsgBody = MyMsgBody & item1 & vbTab & item2 & vbTab & item3 & vbCrLf
ItemCount = ItemCount + 1
rst.MoveNext
Kretsa
rst. Nära
MyMailAddress = ”
[email protected]”,
MySubject = ”fakturerar rakt rapporten: ” & ItemCount & ”objekt”,
Om inte IsNull (MyMsgBody) och MyMsgBody <> "" retur därefter = OutlookSend (MyMailAddress,
MySubject, MyMsgBody)
Avsluta om
ExitHere:
Gå ut fungerar
ErrHandler:
Välj fallet Err.Number
Fall 0
Meritförteckning ExitHere
Fall annars
MsgBox ”fel” & Err.Number & ”(” & Err.Description & ”) i SendReport”,
Avsluta valt
Avsluta fungerar
