MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Imprimir Contrato Alternado pelo Plano

    avatar
    fabioavila
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  fabioavila 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 : 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 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
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  fabioavila 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 : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Fim 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
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  fabioavila 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 : 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 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
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  fabioavila 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 : 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 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
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  fabioavila 6/1/2018, 19:51

    Segue Arquivo,

    https://www.4shared.com/rar/cLxsMD5Vei/Contrato.html

    Att
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Fim 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 28 vez(es)
    avatar
    fabioavila
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  fabioavila 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 : Respeito às Regras 100%

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

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

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

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


      Data/hora atual: 12/4/2021, 23:19