> como posso eu se ajustar se uma quantidade > 0 devido e após 30 dias da data da fatura
adicionar >0 à coluna do amountdue e <> ONDE (((AmountDue) >0) E ((DateDue)<> e (), - 30)))
)
Para emitir o email. você poderia funcionar o código sempre que você abre a base de dados, quando você abre um formulário específico, quando você estala uma tecla ou mesmo a chama de um macro e o usa uma tarefa programada a emitir em uma estadia específica. Depende de como você quer a fazer.
Para o código. está aqui um exemplo simples. modificando algum do código outro afixaram. Colar estas duas funções em um módulo em sua base de dados e editar a função “YourSavedQueryName em mudança” de SendReport ao nome real de sua pergunta e “
[email protected]” a seu email address assim como qualquer outra coisa (tais como nomes de campo) esses precisa mudado. Chamar então a função de SendReport de onde quer que você gostaria (como sobre um clique da tecla ou de um macro) de emitir o relatório.
Função pública OutlookSend (MailUser de ByVal como a corda, ByVal MsgSubject como a corda, ByVal msgbody como a corda) como bôoleano
appOutLook não ofuscante como Outlook.Application
MailOutLook não ofuscante como Outlook.MailItem
No erro ErrHandler empreendedores
Se não "" de IsNull (MailUser) e <> de MailUser então
Ajustar o appOutLook = o CreateObject (“Outlook.Application
”)
Ajustar MailOutLook = appOutLook.CreateItem (o olMailItem
)
Receptor = MailUser
Com MailOutLook
. A = receptor
. Assunto = MsgSubject
. Corpo = msgbody
.DeleteAfterSubmit = verdadeiro 'isto deixaria a probabilidade emitir a nota sem armazená-la em seu escaninho emitido
. Emitir
Terminar com
Ajustar MailOutLook = nada
Ajustar o appOutLook = nada
Terminar se 'não IsNull (MailUser)
ExitHere:
Retirar a função
ErrHandler:
Selecionar o caso Err.Number
Caso 0
Resumo ExitHere
Caso mais
MsgBox “erro” & Err.Number & “(” & Err.Description & ") em OutlookSend”
Extremidade seleta
Função do fim
Função pública SendReport ()
MyMsgBody não ofuscante, MySubject, MyMailAddress como a corda
ItemCount não ofuscante como o inteiro
No erro ErrHandler empreendedores
Se DCount (“*”, “YourSavedQueryName”) > 0 então
Dbs não ofuscantes como a base de dados, rst como DAO.Recordset
Ajustar dbs = CurrentDb
Ajustar o rst = o dbs.OpenRecordset (“YourSavedQueryName
”)
rst.MoveFirst
ItemCount = 0
Fazer até rst.EOF
item1 = rst! AmountDue
item2 = rst! WorkOrder
item3 = rst! [Data da fatura]
MyMsgBody = MyMsgBody & item1 & vbTab & item2 & vbTab & item3 & vbCrLf
ItemCount = ItemCount + 1
rst.MoveNext
Laço
rst. Fim
MyMailAddress = “
[email protected]”
MySubject = das “relatório devido faturas: ” & ItemCount & “artigos”
Se não o "" de IsNull (MyMsgBody) e <> de MyMsgBody Ret então = OutlookSend (MyMailAddress,
MySubject, MyMsgBody)
Terminar se
ExitHere:
Retirar a função
ErrHandler:
Selecionar o caso Err.Number
Caso 0
Resumo ExitHere
Caso mais
MsgBox “erro” & Err.Number & “(” & Err.Description & ") em SendReport”
Extremidade seleta
Função do fim
