MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Escolher registos a imprimir

    Compartilhe
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 841
    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.
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    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 27 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.]
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 841
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 841
    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.
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3384
    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!
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 841
    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)
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 841
    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 22 Jul 2017, 05:34