Add a Button to the Form
Insert the following Code in the "On Click" event
Me.Numberfield = -(Me.Numberfield)
DoCmd.RunCommand acCmdSaveRecord
This will do the inverse as well should you need to undo the "negativizing" of the number.
Here's the answer to the problem I was experiencing earlier:
I ended up setting the template via Outlook (.oft) instead of Word (.docx) easy enough from there...
QuotedID = Me.QuoteID
DoCmd.OpenQuery "QuoteStatusDeliveryUpdate"
Dim myPath As String
Dim strReportName As String
myPath...
Private Sub Command86_Click()
QuotedID = Me.QuoteID
DoCmd.OpenQuery "QuoteStatusDeliveryUpdate"
Dim myPath As String
Dim strReportName As String
myPath = "J:\AccessApp\QuotesTemp\"
strReportName = "Finishing-TechnologySalesQuote" & ".pdf"
DoCmd.OutputTo...
What I'd like to do is use a Word 2007 (.docx) file as the body of the email message. (It has a company logo and a html link in the file) My code works perfectly if I type a string of text for the body, however, I'd like to dress up the email and have it send an email with the logo & link...
Is there a way to attach the already open MS Access report to this email without saving the report to the hard drive first? I'm not going to need the report saved on the hard drive after the email is sent... and I'd really like to avoid having to write code to tell it where & how to save the...
I'd like to send an open report as an attachment to this email without saving it to the hard drive first.
I can send emails with attachments all day with the "Sendobject" functionality but that function doesn't allow the "From" field to be set... (Hence the above code) Now that I've set the...
All,
I've been searching all morning for a way to set the "FROM" email address in a new email message in Outlook 2007 that's automated from Access 2007.
FYI - I'm writing this in a test DB so I can transfer the working code into a functional DB.
Here's the code I have:
(I placed a ' in the...
I made one quick modification adding "StartTime" and "EndTime" fields to the form, Setting them as "Unbound"
Then for the [ApptLength] I pasted the following formula into the "Default Value"
"=DateDiff("n"[EndTime],[StartTime])"
This sets the [Apptlength] to automatically calculate the...