[Resolvido]Selecionar notas de subformulário no access

Olá,
Sou novo aqui no fórum, e já preciso de uma ajuda de vocês, hehe.

Andei desenvolvendo um mini sistema para abrir o e-mail padrão e preenche-lo automaticamente, até ai tudo bem, mas estou com um problema, neste sistema possui um subformulário com as notas e não estou conseguindo colocar todas as notas referente ao código no corpo do e-mail, apenas uma.

Segue em anexo para exemplo.

Espero que consigam compreender minha duvida e deste já agradeço.

Boas XD, seja bem vindo ao Fórum.


Criei uma ListBox baseada na tabela Notas, ela exibirá as notas filtradas de acordo com o codigo do form tblMsg

Nesta listBox clique nas notas e ela vai inserindo na caixa texto abaixo.

e no código de envio referenciei esta caixa texto.

https://dl.dropbox.com/u/26441349/XD.rar


Cumprimentos.

Olá,

Era isto mesmo, muito obrigado, mas outra duvida hehe.
Teria como selecionar tudo o que há na listbox automaticamente, pois neste processo eu gostaria que tivesse um minimo de interferencia do usuário.

Desde já agradeço

Boas XD...

Apague a lista que criei, deixe apenas a caixa de Texto
Apague os codigos referentes a lista e sua execução.


Em eventos do Form, no atual:

Private Sub Form_Current()
Dim Rs As DAO.Recordset
Dim StrNota As String

StrSQL = "SELECT * FROM Notas WHERE Codigo = " & Me.txtCodigo & ";"

Set Rs = CurrentDb.OpenRecordset(StrSQL)
Rs.MoveFirst
Do While Not Rs.EOF
StrNota = StrNota & Rs!Notas & ","
Rs.MoveNext
Loop
StrNota = Left(StrNota, (InStr(Len(StrNota), StrNota, ",") - 1))
Me.CaixaDeTexto = StrNota
End Sub



Cumprimentos.

Exato, muito obrigado por sua ajuda, caso encerado.

Só faltou o Resolvido amigão.

Para colocar como resolvido acima do botão enviar, do lado esquerdo há um botão resolvido, basta clicar nele,

Não se esqueça de clicar no joinha da mensagem que o auxiliou.

Cumprimentos.

Desta vez eu coloco como resolvido.