Email Button Request

S

Sheria

Hi,

I have created a subform and on that subform I added a email request button.
When email out the clients information I want only one client to be emailed
one at a time, instead of all the different clients. I use the same code on a
form and it will work, but for some reason it will not work on a sub form.
Below is a copy of the code that i used:

Function Email_CustAcctInquire()

'Emails form results to All Staff Members

On Error GoTo Email_CustAcctInquire_Err
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.SendObject acSendForm, "subfrmCustAcctInquire" , acFormatHTML, , ,
, _
"Customer Service Database Request", "This is an automated e-mail
message created by the Customer Service Database." _
, False

Email_CustAcctInquire_Exit:

Exit Function

Email_CustAcctInquire_Err:

MsgBox Error$
Resume Email_CustAcctInquire_Exit

End Function

Could some one help me out

Thanks
 
Top