MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Escolher registos a imprimir

    Compartilhe

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    [Resolvido]Escolher registos a imprimir

    Mensagem  toyebom em Sex 08 Ago 2014, 22:22

    Com base no exemplo do viera,

    [Você precisa estar registrado e conectado para ver este link.]

    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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1818
    Registrado : 13/04/2012

    Re: [Resolvido]Escolher registos a imprimir

    Mensagem  Fernando Bueno em Sab 09 Ago 2014, 00:09

    Boa noite toyebom,

    veja se esse exemplo serve para sua necessidade.
    Anexos
    Exemplo_Relatorio.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (40 Kb) Baixado 26 vez(es)


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Escolher registos a imprimir

    Mensagem  toyebom em Ter 12 Ago 2014, 00:48

    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"


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Escolher registos a imprimir

    Mensagem  toyebom em Qua 13 Ago 2014, 19:47

    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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3347
    Registrado : 04/04/2010

    Re: [Resolvido]Escolher registos a imprimir

    Mensagem  Avelino Sampaio em Qui 14 Ago 2014, 09:06

    Olá!

    Veja se a minha dica 36 oferece uma luz:

    [Você precisa estar registrado e conectado para ver este link.]

    Bom estudo!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Escolher registos a imprimir

    Mensagem  toyebom em Sex 15 Ago 2014, 19:12

    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:
    Anexos
    Sem Título.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (142 Kb) Baixado 6 vez(es)


    Última edição por toyebom em Sex 15 Ago 2014, 19:14, editado 1 vez(es)

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Escolher registos a imprimir

    Mensagem  toyebom em Sex 15 Ago 2014, 19:13

    Esqueci o resolvido. lol!


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

      Data/hora atual: Sab 03 Dez 2016, 04:38