[Resolvido]Escolher registos a imprimir

Com base no exemplo do viera,

http://maximoaccess.forumeiros.com/t747-resolvidoescolher-campos-a-serem-impresssos

apareceu-me uma duvida:

Será que em vez de escolher os campos quequero imprimir dava para escolher os registos a imprimir? ou seja, por exemplo, eu tenho um relatório oficio que tenho de colocar vários numeros de faturas o problema é que tenho de colocar todos os numeros.

As faturas estão registadas numa tabela.

queria por exemplo selecionar as faturas 1/14; 5/14; 18/14; 43/14 e me aparecesse no relatório o respetivo numero tipo:

Junto remeto as faturas com a seguinte numeração:


234534
223424
345231
345324
556432

ou assim

234534; 223424; 345231; 345324; 556432

Boa noite toyebom,

veja se esse exemplo serve para sua necessidade.

Obrigado pela ajuda Fernando mas não expliquei bem.

As faturas pertencem à tabela faturas e o oficio pertence à tabela oficio
Queria abrir um formulário de escolha, escolher os registos e então clicava no botão abrir formulário oficio e os registos que eu escolhia passassem automáticamente para lá.
Por isso dei o exemplo.
Se o seu der para fazer isso tambem serve.

tipo isto:
on click
docmd.openform "oficio"
me.campotexto = form "selecção" selected records
docmd.closeform "seleção"

Ok Fernando, adaptando o teu exemplo fiz assim:

Código:

Private Sub Comando504_Click()
Dim intLinha%
intLinha = Me.Lista502.ListIndex
Forms![Oficio Conhecimento].Form!valoresfu = Me.Lista502.Column(3, intLinha) & "; "
End Sub

O problema é que apenas me copia o ultimo registo que seleciono e não copia os restantes.

queria que copiasse todos e ficasse assim:

1234323; 343423; 3546455; 5767656

Obrigado a todos, resolvi da seguinte forma:

No formulário que tem todos os registos criei um campo de texto desacoplado, coloquei a caixa de listagem em selecção multipla simples, no evento ao fazer click da caixa de listagem coloquei:

Código:

Private Sub Lista502_Click()
Me.CaixaDeTexto.Value = Me.CaixaDeTexto.Value & Me.Lista502.Column(3) & "; " & ""
Me.CaixaDeTexto.Requery
End Sub

de seguida coloquei um botão, como está na imagem "Incluir registos no oficio" e no evento ao fazer click

Código:

Private Sub Comando308_Click()
Forms![Oficio Conhecimento].[11] = [CaixaDeTexto]
End Sub

Ou seja, fasso clique nos registos que quero e são copiados para a caixa de texto desacoplada, tudo no painel que pertence á tabela registos, de seguida, mando tudo o que está na caixa de texto para a caixa de texto do oficio da tabela oficio.

aqui está a imagem:

Esqueci o resolvido.