> come posso regolarmi se importo > 0 dovuto e dopo i 30 giorni della data della fattura
aggiungere >0 alla colonna del amountdue e <> DOVE (((AmountDue) >0) E ((DateDue)<> e (), - 30)))
)
Per per trasmettere il email. potreste fare funzionare il codice ogni volta che aprite la base di dati, quando aprite una forma specifica, quando scattate un tasto o persino lo denominate da una macro ed usate un'operazione preveduta trasmetterla ad un momento specifico. Dipende da come volete farli.
Per il codice. qui è un esempio semplice. modificando alcuno del codice altri hanno inviato. Incollare queste due funzioni in un modulo nella vostra base di dati e pubblicare la funzione “YourSavedQueryName„ cambiante di SendReport al nome reale della vostra domanda e “
[email protected]„ al vostro email address così come niente altro (quali i nomi di campo) quei ha bisogno di variabile. Allora denominare la funzione di SendReport da dovunque abbiate voluto (come sopra uno scatto del tasto o da una macro) trasmettere il rapporto.
Funzione pubblica OutlookSend (MailUser di ByVal come stringa, ByVal MsgSubject come stringa, ByVal msgbody come stringa) come booleano
appOutLook fioco come Outlook.Application
MailOutLook fioco come Outlook.MailItem
Sull'errore ErrHandler di avanzamento
Se non "" di IsNull (MailUser) e <> del MailUser allora
Regolare il appOutLook = CreateObject (“Outlook.Application
„)
Regolare MailOutLook = appOutLook.CreateItem (olMailItem
)
Destinatario = MailUser
Con MailOutLook
. A = destinatario
. Oggetto = MsgSubject
. Corpo = msgbody
.DeleteAfterSubmit = allineare 'questo lascerebbe la prospettiva trasmettere la nota senza immagazzinarla nel vostro scomparto trasmesso
. Trasmettere
Concluder con
Regolare MailOutLook = niente
Regolare il appOutLook = niente
Concluder se 'non IsNull (MailUser)
ExitHere:
Uscire la funzione
ErrHandler:
Selezionare il caso Err.Number
Caso 0
Riassunto ExitHere
Caso altrimenti
MsgBox “errore„ & Err.Number & “(" & Err.Description & ") in OutlookSend„
Estremità prescelta
Funzione di conclusione
Funzione pubblica SendReport ()
MyMsgBody fioco, MySubject, MyMailAddress come stringa
ItemCount fioco come numero intero
Sull'errore ErrHandler di avanzamento
Se DCount (“*„, “YourSavedQueryName„) > 0 allora
Dbs fiochi come base di dati, rst come DAO.Recordset
Regolare i dbs = CurrentDb
Regolare il rst = dbs.OpenRecordset (“YourSavedQueryName
„)
rst.MoveFirst
ItemCount = 0
Fare fino a rst.EOF
item1 = rst! AmountDue
item2 = rst! WorkOrder
item3 = rst! [Data della fattura]
MyMsgBody = MyMsgBody & item1 & vbTab & item2 & vbTab & item3 & vbCrLf
ItemCount = ItemCount + 1
rst.MoveNext
Ciclo
rst. Fine
MyMailAddress = “
[email protected]„
MySubject = “rapporto dovuto delle fatture: „ & ItemCount & “articoli„
Se non il "" di IsNull (MyMsgBody) e <> di MyMsgBody allora macera = OutlookSend (MyMailAddress,
MySubject, MyMsgBody)
Concluder se
ExitHere:
Uscire la funzione
ErrHandler:
Selezionare il caso Err.Number
Caso 0
Riassunto ExitHere
Caso altrimenti
MsgBox “errore„ & Err.Number & “(" & Err.Description & ") in SendReport„
Estremità prescelta
Funzione di conclusione
