--
Bob Larson
Access MVP
Access World Forums Administrator
Utter Access VIP
Tutorials at http://www.btabdevelopment.com
__________________________________
Thanks. I had looked there, and I'll go through them again, but didn't see
anything that fit. I'm hoping to find something that can report on who has
responsibility for each contract, emails reminders of due dates, and
(ideally) can attach PDFs containing scans of the contracts.
RBM
Steve
Put the following code in the Declarations Section of your form module:
Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long
Put the following code in the Click event of the appropriate buttom on your
form:
Private Sub EmailJobSheetToServiceTechnician_Click()
Dim TechnicianEmailAddress As String
Dim JobSheetFile As String, Ret
TechnicianEmailAddress = DLookup("[EmailAddress]", "TblServiceTech",
"[ServiceTechID] = " & Me!ServiceTechID)
JobSheetFile = CurrentDBDir & "JobSheet.PDF"
' Check If There Is An Email File
If Len(Dir(JobSheetFile)) = 0 Then
MsgBox "There Is No Job Sheet File In " & CurrentDBDir & " To Email" _
, , "No Job Sheet File"
Exit Sub
End If
' Check For Internet Connection
If Not IsConnected Then
MsgBox "There Is No Active Internet Connection." & vbCrLf & vbCrLf _
& "You Must Connect To The Internet Before" & vbCrLf _
& "You Can Send An Email.", , "No Internet Connection"
Exit Sub
End If
' Create Outlook Express Email With JobSheet.PDF Attached
ShellExecute Me.hWnd, "Open", "mailto:" & TechnicianEmailAddress &
"?subject=" & JobSheetFile & "&body=" & Me!JobSheetServiceDate & " Job Sheet
Attached", _
vbNullString, vbNullString, vbNormalFocus
DoEvents
While Ret = 0
Ret = FindWindow(vbNullString, JobSheetFile)
Wend
SendKeys ("%ia" & JobSheetFile & "{TAB}{TAB}{ENTER}")
End Sub
"RBM" <R...@discussions.microsoft.com> wrote in message
news:B59DF2B0-6371-427B...@microsoft.com...
Thanks
Steve
san...@penn.com
"pb" <p...@discussions.microsoft.com> wrote in message
news:6E96A06F-715D-4E55...@microsoft.com...
Steve is not a resource to be trusted!
These newsgroups are provided by Microsoft for FREE peer to peer support.
There are many highly qualified individuals who gladly help for free. Stevie
is not one of them, but he is the only one who just does not get the idea of
"FREE" support. He offers questionable results at unreasonable prices. If he
was any good, the "thousands" of people he claims to have helped would be
flooding him with work, but there appears to be a continuous drought and he
needs to constantly grovel for work.
A few gems gleaned from the Word New User newsgroup over the past Christmas
period and a few gems from the Access newsgroups to show Stevie's
"expertise".
Dec 17, 2008 7:47 pm
Word 2007 ..........
In older versions of Word you could highlght some text then go to Format -
Change Case and change the case of the hoghloghted text. Is this still
available in Word 2007? Where?
Thanks! Steve
Dec 22, 2008 8:22 pm
I am designing a series of paystubs for a client. I start in landscape and
draw a table then add columns and rows to setup labels and their
corresponding value. This all works fine. After a landscape version is
completed, I next need to design a portrait version. Rather than strating
from scratch, I'd like to be able to cut and paste from the landscape
version and design the portrait version.
Steve
Dec 24, 2008, 1:12 PM
How do you protect the document for filling in forms?
Steve
One of my favourites:
Dec 30, 2008 8:07 PM - a reply to stevie
(The original poster asked how to sort a list and stevie offered to create
the OP an Access database)
Steve wrote:
> Yes, you are right but a database is the correct tool to use not a
> spreadsheet.
Not at all. If it's just a simple list then a spreadsheet is perfectly
adequate...
Sept 10, 2009
(In respose to a perfectly adequate GENERIC solution stevie wrote)
This function is specific to the example but not generic for any amount paid
out.
Steve
Sept 9, 2009
"Steve" <notmy...@address.com> wrote in message
> you can then return all the characters in front of it with the Left()
> fumction. Would look like:
> Left("YourString",Instr("YourString","VbCr" Or "VbLf") - 1)
>
> Steve
No, it would not look like
Left("YourString",Instr("YourString","VbCr" Or "VbLf") - 1)
First of all, the constants are vbCr and vbLf: no quotes around them. With
the quotes, you're looking for the literal strings.
Second, you can't Or together character constants like that. Even if you
could, Or'ing them together in the InStr function like that makes no sense
at all.
Sept 22,2009
Sorry Steve, even I can see that this is a useless answer. I made it pretty
clear that "CW259" is just ONE possible value for the control.
"Steve" wrote:
> Hello David,
>
> Open your report in design view and select txtOrderID. Open properties and
> go to the Data tab. Put the following expression in the Control Source
> property:
>
> =IIF([chkActive],"CW259","(CW259)")
>
> Steve
John... Visio MVP
Check out the renewed website $teve... You will like it !!
--
Get lost $teve. Go away... far away....
Again... Get lost $teve. Go away... far away....
No-one wants you here... no-one needs you here...
This newsgroup is meant for FREE help..
No-one wants you here... no-one needs you here...
OP look at http://home.tiscali.nl/arracom/whoissteve.html
(Website has been updated and has a new 'look'... very soon we will 'celebrate' 10.000
pageloads...)
Arno R