Uso o seguinte codigo para poder enviar directamente dados de uma linha de uma tabela. Mas eu agora queria enviar os componentes de um produto que estao em outra tabela.
Queria +/- isto
To:
Subject: FORMULA
DL 3000/2006 400
DN 831 202
CII 520 350
CTE 5118 5
CTE 5550S02 12
CTE 5285 30
CTE 5007S01 1
CLIENTE IGUAL R 7005 P/CARVALHO
Obrigado.
HTML:
Private Sub Comando22_Click()
On Error GoTo Err_Comando22_Click
Dim stDocName As String
stDocName = Me!CódigoDoProduto.Value
' DoCmd.SendObject acReport, stDocName
DoCmd.SendObject acSendNoObject, stDocName, acFormatXLS, ".pt", "pt", , Me!Nome.Value, Me!Rótulo26.Caption & " " & Me!CódigoDoEncomenda.Value & Chr(13) & Me!Rótulo27.Caption & " " & CódigoDoProduto.Value & Chr(13) & Me!Rótulo29.Caption & " " & Me!Embalagem.Value & Chr(13) & Me!Rótulo28.Caption & " " & Me!Quantidade.Value & Chr(13) & Me!Rótulo34.Caption & " " & Me!Expr2.Value, , True
Exit_Comando22_Click:
Exit Sub
Err_Comando22_Click:
MsgBox Err.Description
Resume Exit_Comando22_Click
End SubQueria +/- isto
To:
HTML:
teste@teste.ptSubject: FORMULA
DL 3000/2006 400
DN 831 202
CII 520 350
CTE 5118 5
CTE 5550S02 12
CTE 5285 30
CTE 5007S01 1
CLIENTE IGUAL R 7005 P/CARVALHO
Obrigado.
Última edição por um moderador: