I am using Sendobject to send Access Reports to Outlook7.
Does anybody know how I can automatically insert my Outlook signature in the mail?
Sendobject does not seem to be very coorperative in doing so.
Any input would be helpful.
Rainer
It would be very helpful
to create a link ( Click) to a document from inside a form
to show important documents assotiated to a record.
I have tried to use a Hyperlink, but it needs to be dynamic.
I have just tried something like the following Hyperlink...
Thank you for helping me.
I want to give each of the reports a different text header.( One header could be "General Motors", the 2nd Report Header text could be "Ford Motors" ) I am presently using a text-field which I am filling each time when entering new data.
This works, but there must be a...
...DoCmd.OpenReport stDocName, acPreview, , "[Ausblenden]=False AND [Shipped] ='Nein' AND [Bestellnummer-D]Not Like 0 AND [Anfragende Firma] Like'Transatlantic*'"
Exit_Befehl122_Click:
Exit Sub
Err_Befehl122_Click:
MsgBox Err.Description
Resume Exit_Befehl122_Click
End Sub
Rainer
I have a report whose fields need an automatic line break at the end of the line. In most cases this works fine, but sometimes just the last character gets missing or only displayed partially.
Example:
I have an expession like: P/NO: L0E / 10 /630 in this case the report will dispay it like...
...stDocName, acPreview, , "[Ausblenden]=False AND [Shipped] ='Nein' AND [Bestellnummer-D]Not Like 0 AND [Anfragende Firma] Like'Transatlantic*'"
Exit_Befehl122_Click:
Exit Sub
End Sub
In my report I have created a text Field TEXT1000.
And in the header section I have an Onformat VBA like...
Hallo Hook'D
Thank you for your fast post. I will try it out tomorrow morning.
Shipped is not a Yes/No field, but I will try something like
"[Shipped]= "Yes" AND [Company]= "GM" AND---
It is too late for tests this evening in Germany.
Rainer
Halla,
I have been looking for a solution to implement a filter into my Reports, so I can use a report in multiple configurations.
( I presenty ase severeal different reports)
It would be a lot easier to handle having only one report and use a filter or query.
Here is what I want:
I intend to...
Hallo genomenon,
I am using Access 2007.
thank you for your link to the article. I have introduced
Application.Printer = Nothing
to reset all printer settings before calling my printer.
I am now getting what I want.
Thanks to all that responded.
Rainer
Hallo Skip,
thank you for your response. Yes I can do this without Code.
I am using a HP Laserjet 4050 Postscript.
From the "silence" in the forum I assume the code should work.
I will do some more testing like deleting/rewriting the code. Maybe it's one of the items that do not matter how it...
Hallo there,
I intend to print out a report sorted in such away that i get Page 1 twice, Page 2 twice and so on.
Access seems to ignore this request. It prints page 1 though X always one single page.
Here is the code I have.
Private Sub Befehl176_Click()
On Error GoTo Err_Befehl176_Click...
I would like to upgrade to Office2007 incl. Outlook 2007.
My Symantec Winfax 10.2 is using the OFFICE XP Outlook Data base's FAX numbers.
Will this still work using Outlook2007, has anybody dared to try?
Thank you for any help.
Rainer
HI Ginger,
I would like to use HTML as test.
I have tried the following:
DoCmd.SendObject acReport, "Angebot-e-mail", "HTMLFormat(*.HTML)",....
This gives me the error message that the format I want is "not available"
This Works:
'DoCmd.SendObject acReport, "Angebot-e-mail"...
...print out perfect.
The intention is to send this report via e-mail to a customer.
This is done by Sendobject.
DoCmd.SendObject acReport, "Angebot-e-mail", "RichTextFormat(*.rtf)", .....
But now the LOGO is gone in the rtf file.
Any ideas or suggestions would be appeciated to solve this.
Rainer
...the data only in the report.
Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
If Me.Text1 >= 25 Then Text11 = Text1 * 0.9
If Me.Text1 <= 4.5 Then Text11 = Text1 * 0.6
If Me.Text1 >= 5 And Me.Text1 <= 24.99 Then Text11 = Text1 * 0.8
End Sub
I may however be on a...
I have written the following code in a Form:
Private Sub Befehl90_Click()
If Me.Text86 < #12/31/1988# Then Text69 = "ERW"
If Me.Text86 >= #1/1/1989# And Me.Text86 < #12/31/1990# Then Text69 = "U19"
If Me.Text86 >= #1/1/1991# And Me.Text86 < #12/31/1992# Then Text69 = "U17"
If Me.Text86 >=...
Hallo Duane,
I got part 1 working: //Name qselRainerYears
SELECT Year([Beitrittsdatum]) AS Yrs // Date Joined
FROM Adressen_TVKall // MyTable with all members
GROUP BY Year([Beitrittsdatum]); // Date Joined
This gives me a list of years-nothing else.
Part 2 is more complex:
I got something...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.