[Resolvido]Imprimir Contrato Alternado pelo Plano

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

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.

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




Olá FAbiovila,

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

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

Att,

Alexandre

Olá Alexandre,

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

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

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



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

Segue Arquivo,

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

Att

Olá FabioVila,

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

Espero ter ajudado.

Att,

Alexandre

Olá Alexandre,

Isso mesmo que precisava funcionou perfeitamente..muito obrigado parceiro..

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