for Steve Schapel about sending e-mails conditions

[ldiaz]

Hi Steve,,

I did that you tell me, But where do I need to added the

condition,,please see my programming and tell me please where is goes the
conditional thay you explained for me..

Thanks.


Private Sub SendEmail_Click()
On Error GoTo Err_SendEmail_Click

Dim stDocName As String “ declarando el combo de la direcciones de
correoâ€
Dim Documento As String “ declarando el attachmentâ€
If IsNull(CustomerID) Then
MsgBox "There is no e-mail address to send email to!", vbOKOnly, "Error"
CustomerID.SetFocus

Exit Sub

End If



stDocName = CustomerID.Column(2) “ El combo y quiero que me jale la
columna 2â€
Documento = "catalog" “Este es el nombre del archivoâ€

DoCmd.SendObject acReport, Documento, , stDocName

Exit_SendEmail_Click:
Exit Sub
Err_SendEmail_Click:
Select Case Err.Number
Case 0
Resume Next
Case Else
MsgBox Err.Number & ": " & Err.Description
End Select

Resume Exit_SendEmail_Click

End Sub

Idiaz,

Do you want the report to be the InvoiceNumber of the current Invoice as
shown on the Form? If so, go the design view of the Query that the
Report is based on, and put the equivalent of this in the Criteria of
the InvoiceNumber field in the query...
[Forms]![NameOfYourForm]![InvoiceNumber]

--
Steve Schapel, Microsoft Access MVP

Hola....I'm trying to send an e-mail with access, but I don't how pull a
specific number of Invoice,,.
for example I have a report named: "Invoices" wich contain

InvoiceNumber Product Description Qty PriceUnit Total

but when I want to send an e-mail with the report it pulls all Invoice, I'm
trying from an Form where I can see all descriptions.


well I hope your help..

Thanks..
(e-mail address removed)

 

[Steve Schapel]

Replied in original thread.