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]Imprimir Contrato Alternado pelo Plano

    avatar
    fabioavila
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 192
    Registrado : 22/03/2011

    [Resolvido]Imprimir Contrato Alternado pelo Plano Empty [Resolvido]Imprimir Contrato Alternado pelo Plano

    Mensagem  fabioavila em 4/1/2018, 15:46

    Bom Dia Amigos,

    Tenho um controle de planos da nossa associação aonde preciso imprimir o contrato dos associados.. o problemas é que são 2 tipo de contratos BRONZE e PRATA, minha duvida é como fazer para que a impressão sai o contratde acordo com o tipo de PLANO selecionado do Associado..

    Ex: no Cadastro estiver BRONZE na hora de imprmir ele imprima o CONTRATO BRONZE..

    Obrigado
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Imprimir Contrato Alternado pelo Plano Empty Re: [Resolvido]Imprimir Contrato Alternado pelo Plano

    Mensagem  FabioPaes em 4/1/2018, 17:07

    Olá! No Botão que chama a impressão do Contrato coloque uma condição IF:

    If Me.TipoContrato="Broze" Then

    'Aqui o comando para imprimir o Contrato Bronze

    else

    'Aqui o Comando para Imprimir o Contrato Ouro

    End if



    Me.TipoContrato <== Aqui é o nome do campo que armazena se o contrato do associado é Bronze ou Ouro.


    Última edição por FabioPaes em 5/1/2018, 17:20, editado 1 vez(es)


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    fabioavila
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 192
    Registrado : 22/03/2011

    [Resolvido]Imprimir Contrato Alternado pelo Plano Empty Re: [Resolvido]Imprimir Contrato Alternado pelo Plano

    Mensagem  fabioavila em 4/1/2018, 20:44

    Olá Fábio ,

    Tentei colocar assim e esta dando erro de Expressão, ficou assim

    Código:

    Private Sub Contrato_Click()

    If Me.TipoContrato='Bronze' Then

    DoCmd.OpenReport "Contrato1", acViewNormal

    Else


    DoCmd.OpenReport "Contrato2", acViewNormal


    Exit Sub
    Trato:
    If Err.Number = 2501 Then
    Exit Sub
    Else
    MsgBox Err.Description

    End If
    End Sub


    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 940
    Registrado : 13/12/2016

    [Resolvido]Imprimir Contrato Alternado pelo Plano Empty Re: [Resolvido]Imprimir Contrato Alternado pelo Plano

    Mensagem  Alexandre Fim em 4/1/2018, 22:01

    Olá FAbiovila,

    Substitua o ' (apóstrofo) por " (aspas)

    ANTES: If Me.TipoContrato='Bronze' Then
    DEPOIS: If Me.TipoContrato="Bronze" Then

    Att,

    Alexandre
    avatar
    fabioavila
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 192
    Registrado : 22/03/2011

    [Resolvido]Imprimir Contrato Alternado pelo Plano Empty Re: [Resolvido]Imprimir Contrato Alternado pelo Plano

    Mensagem  fabioavila em 5/1/2018, 14:27

    Olá Alexandre,

    Coloquei como vc mencionou e Agora ao executar o botão ele da o erro : Bloco If sem End If
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Imprimir Contrato Alternado pelo Plano Empty Re: [Resolvido]Imprimir Contrato Alternado pelo Plano

    Mensagem  FabioPaes em 5/1/2018, 17:20

    Faltou fechar o primeiro If Aberto... O que escolhe o Contrato a ser impresso... Feche ele


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    fabioavila
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 192
    Registrado : 22/03/2011

    [Resolvido]Imprimir Contrato Alternado pelo Plano Empty Re: [Resolvido]Imprimir Contrato Alternado pelo Plano

    Mensagem  fabioavila em 5/1/2018, 18:25

    Olá,

    Fechei o If porém ao clicar no botão não faz nada..

    Código:

     Private Sub Contrato_Click()

        If Me.Plano = "Bronze" Then

        DoCmd.OpenReport "Contrato1", acViewNormal

    Else

    DoCmd.OpenReport "Contrato2", acViewNormal

    End If
     
      Exit Sub
    Trato:
        If Err.Number = 2501 Then
        Exit Sub
        Else
        MsgBox Err.Description
    End If
       
        End Sub

    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Imprimir Contrato Alternado pelo Plano Empty Re: [Resolvido]Imprimir Contrato Alternado pelo Plano

    Mensagem  FabioPaes em 5/1/2018, 20:35

    Olá, então posta por favor o aplicativo para analisarmos... Posta somente as partes envolvidas!!!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    fabioavila
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 192
    Registrado : 22/03/2011

    [Resolvido]Imprimir Contrato Alternado pelo Plano Empty Re: [Resolvido]Imprimir Contrato Alternado pelo Plano

    Mensagem  fabioavila em 6/1/2018, 19:51

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 940
    Registrado : 13/12/2016

    [Resolvido]Imprimir Contrato Alternado pelo Plano Empty Re: [Resolvido]Imprimir Contrato Alternado pelo Plano

    Mensagem  Alexandre Fim em 6/1/2018, 21:40

    Olá FabioVila,

    Fiz algumas alterações no seu projeto conforme sua necessidade.

    Espero ter ajudado.

    Att,

    Alexandre
    Anexos
    [Resolvido]Imprimir Contrato Alternado pelo Plano AttachmentContrato.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (491 Kb) Baixado 21 vez(es)
    avatar
    fabioavila
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 192
    Registrado : 22/03/2011

    [Resolvido]Imprimir Contrato Alternado pelo Plano Empty Re: [Resolvido]Imprimir Contrato Alternado pelo Plano

    Mensagem  fabioavila em 8/1/2018, 15:05

    Olá Alexandre,

    Isso mesmo que precisava funcionou perfeitamente..muito obrigado parceiro..
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 940
    Registrado : 13/12/2016

    [Resolvido]Imprimir Contrato Alternado pelo Plano Empty Re: [Resolvido]Imprimir Contrato Alternado pelo Plano

    Mensagem  Alexandre Fim em 8/1/2018, 17:00

    Valeu FabioVila.
    Qualquer dúvida, estamos aí.
    Um abraço.


      Data/hora atual: 25/5/2020, 15:28