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


2 participantes

    [Resolvido]Dúvidas com formatação...

    Luiz Carlos Junior
    Luiz Carlos Junior
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 21/08/2012

    [Resolvido]Dúvidas com formatação... Empty Dúvidas com formatação...

    Mensagem  Luiz Carlos Junior 17/4/2013, 15:50

    Tenho que colocar esse código em algum evento do relatório para que na hora da impressão saia devidamente formatado. Como agora temos esse problema de em alguns lugares ter 8 ou 9 números no tel e os RGs do Brasil não terem um padrão, tive que fazer esse esquema.
    Então, no form fica perfeito, mas na hora de passar para o rel não funfa, pois ele busca os valores da tabela. Tentei colocar esse código no Report_Load mas não funcionou. Tem algum outro evento que possa funcionar, pois, ele imprime direto, sem visualização.

    Dim NC1, NC2, NC3, NC4, NC5, NC6

    NC1 = Len(txtTEL1)
    If NC1 = 10 Then
    Me.txtTEL1.Format = "(@@) @@@@-@@@@"
    ElseIf NC1 = 11 Then
    Me.txtTEL1.Format = "(@@) @@@@@-@@@@"
    End If

    NC2 = Len(txtTEL2)
    If NC2 = 10 Then
    Me.txtTEL2.Format = "(@@) @@@@-@@@@"
    ElseIf NC2 = 11 Then
    Me.txtTEL2.Format = "(@@) @@@@@-@@@@"
    End If

    NC3 = Len(txtTEL3)
    If NC3 = 10 Then
    Me.txtTEL3.Format = "(@@) @@@@-@@@@"
    ElseIf NC3 = 11 Then
    Me.txtTEL3.Format = "(@@) @@@@@-@@@@"
    End If

    NC4 = Len(txtTEL4)
    If NC4 = 10 Then
    Me.txtTEL4.Format = "(@@) @@@@-@@@@"
    ElseIf NC4 = 11 Then
    Me.txtTEL4.Format = "(@@) @@@@@-@@@@"
    End If

    NC5 = Len(txtRGMAE)
    Select Case NC5
    Case 7
    Me.txtRGMAE.Format = "@@@.@@@-@"
    Case 8
    Me.txtRGMAE.Format = "@.@@@.@@@-@"
    Case 9
    Me.txtRGMAE.Format = "@@.@@@.@@@-@"
    Case 10
    Me.txtRGMAE.Format = "@@@.@@@.@@@-@"
    End Select

    NC6 = Len(txtRGPAI)
    Select Case NC6
    Case 7
    Me.txtRGPAI.Format = "@@@.@@@-@"
    Case 8
    Me.txtRGPAI.Format = "@.@@@.@@@-@"
    Case 9
    Me.txtRGPAI.Format = "@@.@@@.@@@-@"
    Case 10
    Me.txtRGPAI.Format = "@@@.@@@.@@@-@"
    End Select
    End Sub

    Além disso, tenho outro form(CLM), que abro através do frm Funcionários e à partir dele, abro o Relatório rel_CEM, onde necessito que sejam preenchidos os dados desta forma:

    Os campos do cabeçalho (Noe, Reg, Cargo) vem do form Funcionários e os das datas, vem do form CEM, porém, nele há uma escolha através de um Quadro de opções. Se OP = 1, as datas Inicial e Final ficam na Licença Médica no RElatório CEM. Automaticamente os outros campos de Data do rel são preenchidos com "___ /___ / ______".
    Da pra fazer isso?

    Segue o BD.

    Agradeço desde já.

    Luiz Carlos Junior.
    Luís Augusto
    Luís Augusto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 129
    Registrado : 28/10/2011

    [Resolvido]Dúvidas com formatação... Empty Re: [Resolvido]Dúvidas com formatação...

    Mensagem  Luís Augusto 21/4/2013, 19:09

    Amigo, dê uma olhadinha na vídeo-aula "programação de relatórios" com o colega Avelino Sampaio, acho que pode lhe ajudar!

    http://www.usandoaccess.com.br/tutoriais/tuto32.asp

    Att, Luís Augusto.
    Luiz Carlos Junior
    Luiz Carlos Junior
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 21/08/2012

    [Resolvido]Dúvidas com formatação... Empty Re: [Resolvido]Dúvidas com formatação...

    Mensagem  Luiz Carlos Junior 23/4/2013, 13:32

    Valeu Luís.
    Funfou agora.
    O pior é que já tinha tentado no Evento Imprimir do Detalhe e não tinha funcionado (certeza que era problema da peça que fica em frente a tela, rs).
    Agora ta perfeito!!!
    Grato!!!

    Luiz Carlos Junior.
    Luís Augusto
    Luís Augusto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 129
    Registrado : 28/10/2011

    [Resolvido]Dúvidas com formatação... Empty Re: [Resolvido]Dúvidas com formatação...

    Mensagem  Luís Augusto 24/4/2013, 02:46

    Obrigado pelo retorno.

    Conteúdo patrocinado


    [Resolvido]Dúvidas com formatação... Empty Re: [Resolvido]Dúvidas com formatação...

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 11/5/2024, 06:10