MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Formatar campo CPF no WORD como feito no ACCESS

    Compartilhe

    Ari
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 28/11/2009

    [Resolvido]Formatar campo CPF no WORD como feito no ACCESS

    Mensagem  Ari em Sab 08 Nov 2014, 03:24

    Tenho este código abaixo mas o CPF e outros campos que exigem formatação própria, não aparecem com a formatação do Access:
    Por exemplo, o CPF aparece assim no Word: 12345678900 e não aparece os pontos e o traço.

    Private Sub VisualizarContrato_Click()
    Dim AppWord As Object, strFinalDoc As String
    strFinalDoc = CurrentProject.Path & "\ContratoModelo.rtf"

    Set AppWord = CreateObject("Word.Application")
    AppWord.Visible = True
    Set DocWord = AppWord.Documents.Add(strFinalDoc)

    With DocWord.Content.Find
    .Execute findtext:="{DATA}", replacewith:=Data, Format:=True, Replace:=2
    .Execute findtext:="{NRCONTRATO}", replacewith:=Me.NrContrato, Format:=True, Replace:=2
    .Execute findtext:="{EMPREENDIMENTO}", replacewith:=Me.Empreendimento, Format:=True, Replace:=2

    .Execute findtext:="{VENDEDORA}", replacewith:=Nz(Me.Vend1), Format:=True, Replace:=2
    .Execute findtext:="{CNPJ}", replacewith:=Nz(Me.Vend1CNPJ), Format:=True, Replace:=2
    .Execute findtext:="{ENDEREÇO}", replacewith:=Nz(Me.Vend1End), Format:=True, Replace:=2
    .Execute findtext:="{CIDADE}", replacewith:=Nz(Me.Vend1Cidade), Format:=True, Replace:=2
    .Execute findtext:="{ESTADO}", replacewith:=Nz(Me.Vend1Estado), Format:=True, Replace:=2

    .Execute findtext:="{VENDEDORA2}", replacewith:=Nz(Me.Vend2), Format:=True, Replace:=2
    .Execute findtext:="{CNPJVEND2}", replacewith:=Nz(Me.Vend2CNPJ), Format:=True, Replace:=2
    .Execute findtext:="{ENDVEND2}", replacewith:=Nz(Me.Vend2End), Format:=True, Replace:=2
    .Execute findtext:="{CIDADEVEND2}", replacewith:=Nz(Me.Vend2Cidade), Format:=True, Replace:=2
    .Execute findtext:="{ESTADOVEND2}", replacewith:=Nz(Me.Vend2Estado), Format:=True, Replace:=2

    .Execute findtext:="{TITULAR1}", replacewith:=Nz(Me.Vend1TitNome), Format:=True, Replace:=2
    .Execute findtext:="{CPF1}", replacewith:=Nz(Me.Vend1TitCPF), Format:=True, Replace:=2
    .Execute findtext:="{IDENTIDADE1}", replacewith:=Nz(Me.Vend1TitIdentidade), Format:=True, Replace:=2
    .Execute findtext:="{ORGAOESTADO1}", replacewith:=Nz(Me.Vend1TitOrgaoEstado), Format:=True, Replace:=2
    .Execute findtext:="{ENDEREÇO1}", replacewith:=Nz(Me.Vend1TitEndereço), Format:=True, Replace:=2
    .Execute findtext:="{CIDADE1}", replacewith:=Nz(Me.Vend1TitCidade), Format:=True, Replace:=2
    .Execute findtext:="{ESTADO1}", replacewith:=Nz(Me.Vend1TitEstado), Format:=True, Replace:=2
    .Execute findtext:="{NAC1}", replacewith:=Nz(Me.Vend1TitNac), Format:=True, Replace:=2
    .Execute findtext:="{ESTCIVIL1}", replacewith:=Nz(Me.Vend1TitEstCivil), Format:=True, Replace:=2
    .Execute findtext:="{PROF1}", replacewith:=Nz(Me.Vend1TitProf), Format:=True, Replace:=2

    .Execute findtext:="{TITULAR2}", replacewith:=Me.Vend2TitNome, Format:=True, Replace:=2
    .Execute findtext:="{CPF2}", replacewith:=Me.Vend2TitCPF, Format:=True, Replace:=2
    .Execute findtext:="{IDENTIDADE2}", replacewith:=Me.Vend2TitIdentidade, Format:=True, Replace:=2
    .Execute findtext:="{ORGAOESTADO2}", replacewith:=Me.Vend2TitOrgaoEstado, Format:=True, Replace:=2
    .Execute findtext:="{ENDEREÇO2}", replacewith:=Me.Vend2TitEndereço, Format:=True, Replace:=2
    .Execute findtext:="{CIDADE2}", replacewith:=Me.Vend2TitCidade, Format:=True, Replace:=2
    .Execute findtext:="{ESTADO2}", replacewith:=Me.Vend2TitEstado, Format:=True, Replace:=2
    .Execute findtext:="{NAC2}", replacewith:=Me.Vend2TitNac, Format:=True, Replace:=2
    .Execute findtext:="{ESTCIVIL2}", replacewith:=Me.Vend2TitEstCivil, Format:=True, Replace:=2
    .Execute findtext:="{PROF2}", replacewith:=Me.Vend2TitProf, Format:=True, Replace:=2

    .Execute findtext:="{NOMEC1}", replacewith:=Me.C1Nome, Format:=True, Replace:=2
    .Execute findtext:="{NACC1}", replacewith:=Me.C1Nac, Format:=True, Replace:=2
    .Execute findtext:="{ESTCIVILC1}", replacewith:=Me.C1EstCivil, Format:=True, Replace:=2
    .Execute findtext:="{PROFC1}", replacewith:=Me.C1Prof, Format:=True, Replace:=2
    .Execute findtext:="{IDENTC1}", replacewith:=Me.C1Ident, Format:=True, Replace:=2
    .Execute findtext:="{ORGAOESTADOC1}", replacewith:=Me.C1OrgaoEstado, Format:=True, Replace:=2
    .Execute findtext:="{CPFC1}", replacewith:=Me.C1Cpf, Format:=True, Replace:=2
    .Execute findtext:="{ENDC1}", replacewith:=Me.C1End, Format:=True, Replace:=2
    .Execute findtext:="{CIDADEC1}", replacewith:=Me.C1Cidade, Format:=True, Replace:=2
    .Execute findtext:="{ESTADOC1}", replacewith:=Me.C1Estado, Format:=True, Replace:=2
    .Execute findtext:="{CEPC1}", replacewith:=Me.C1Cep, Format:=True, Replace:=2
    .Execute findtext:="{TELFIXOC1}", replacewith:=Nz(Me.C1Tel1), Format:=True, Replace:=2
    .Execute findtext:="{TELCELC1}", replacewith:=Nz(Me.C1Tel2), Format:=True, Replace:=2
    .Execute findtext:="{EMAILC1}", replacewith:=Nz(Me.C1Email), Format:=True, Replace:=2

    .Execute findtext:="{NOMEC2}", replacewith:=Nz(Me.C2Nome), Format:=True, Replace:=2
    .Execute findtext:="{NACC2}", replacewith:=Nz(Me.C2Nac), Format:=True, Replace:=2
    .Execute findtext:="{ESTCIVILC2}", replacewith:=Nz(Me.C2EstCivil), Format:=True, Replace:=2
    .Execute findtext:="{PROFC2}", replacewith:=Nz(Me.C2Prof), Format:=True, Replace:=2
    .Execute findtext:="{IDENTC2}", replacewith:=Nz(Me.C2Ident), Format:=True, Replace:=2
    .Execute findtext:="{ORGAOESTADOC2}", replacewith:=Nz(Me.C2OrgaoEstado), Format:=True, Replace:=2
    .Execute findtext:="{CPFC2}", replacewith:=Nz(Me.C2Cpf), Format:=True, Replace:=2
    .Execute findtext:="{ENDC2}", replacewith:=Nz(Me.C2End), Format:=True, Replace:=2
    .Execute findtext:="{CIDADEC2}", replacewith:=Nz(Me.C2Cidade), Format:=True, Replace:=2
    .Execute findtext:="{ESTADOC2}", replacewith:=Nz(Me.C2Estado), Format:=True, Replace:=2
    .Execute findtext:="{CEPC2}", replacewith:=Nz(Me.C2Cep), Format:=True, Replace:=2
    .Execute findtext:="{TELFIXOC2}", replacewith:=Nz(Me.C2Tel1), Format:=True, Replace:=2
    .Execute findtext:="{TELCELC2}", replacewith:=Nz(Me.C2Tel2), Format:=True, Replace:=2
    .Execute findtext:="{EMAILC2}", replacewith:=Nz(Me.C2Email), Format:=True, Replace:=2

    .Execute findtext:="{LOTE}", replacewith:=Me.Lote, Format:=True, Replace:=2
    .Execute findtext:="{QUADRA}", replacewith:=Me.Quadra, Format:=True, Replace:=2
    .Execute findtext:="{LOGRADOURO}", replacewith:=Me.Logradouro, Format:=True, Replace:=2
    .Execute findtext:="{FRENTE}", replacewith:=Me.Frente, Format:=True, Replace:=2
    .Execute findtext:="{FUNDOS}", replacewith:=Me.Fundos, Format:=True, Replace:=2
    .Execute findtext:="{LADODIREITO}", replacewith:=Me.LadoDireito, Format:=True, Replace:=2
    .Execute findtext:="{LADOESQUERDO}", replacewith:=Me.LadoEsquerdo, Format:=True, Replace:=2
    .Execute findtext:="{CHANFRO}", replacewith:=Nz(Me.Chanfro), Format:=True, Replace:=2
    .Execute findtext:="{DIVFUNDOS}", replacewith:=Me.DivFundos, Format:=True, Replace:=2
    .Execute findtext:="{DIVLD}", replacewith:=Me.DivLD, Format:=True, Replace:=2
    .Execute findtext:="{DIVLE}", replacewith:=Me.DivLE, Format:=True, Replace:=2
    .Execute findtext:="{METRAGEMTOTAL}", replacewith:=Me.MetragemTotal, Format:=True, Replace:=2
    .Execute findtext:="{METRAGEMEXT}", replacewith:=Me.MetragemTotalExt, Format:=True, Replace:=2
    .Execute findtext:="{VALORTOTAL}", replacewith:=Me.ValorTotal, Format:=True, Replace:=2
    .Execute findtext:="{VALORTOTALEXT}", replacewith:=Me.ValorTotalExt, Format:=True, Replace:=2
    .Execute findtext:="{QTDEPARCELA}", replacewith:=Me.QtdeParcelas, Format:=True, Replace:=2
    .Execute findtext:="{QTDEPARCELAEXT}", replacewith:=Me.QtdeParcelasExt, Format:=True, Replace:=2
    .Execute findtext:="{VALORPARCELA}", replacewith:=Me.ValorParcela, Format:=True, Replace:=2
    .Execute findtext:="{VALORPARCELAEXT}", replacewith:=Me.ValorParcExt, Format:=True, Replace:=2
    .Execute findtext:="{VENCPARCELA1}", replacewith:=Me.VencParcela1, Format:=True, Replace:=2
    .Execute findtext:="{DATACORREÇÃO}", replacewith:=Me.DataCorreção, Format:=True, Replace:=2

    EscribeWord (Me.Id)
    DoEvents
    If MsgBox("Visualizar Contrato " & vbCrLf & Me.NrContrato & "-" & Me.NomeC1, vbExclamation + vbNo, "Confirme") = vbYes Then
    AppWord.PrintOut
    End If
    'DocWord.Open True
    Set DocWord = Nothing
    End With

    AppWord.Quit
    Set AppWord = Nothing
    End Sub

    ----------------------------------------------------------------------------------------
    Atenciosamente

    Ari

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Formatar campo CPF no WORD como feito no ACCESS

    Mensagem  criquio em Qua 19 Nov 2014, 04:16

    Já tentou algo assim?

    Código:
    ...=Nz(Format(Me.Vend1TitCPF, "###.###.###-##"))...

    Ou talvez assim:

    Código:
    =Nz(Left(Me.Vend1TitCPF, 3)) & "." & Nz(Mid(Me.Vend1TitCPF, 4, 3)) & "." & Nz(Mid(Me.Vend1TitCPF, 7, 3)) & "-" & Nz(Right(Me.Vend1TitCPF, 2))


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Ari
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 28/11/2009

    Re: [Resolvido]Formatar campo CPF no WORD como feito no ACCESS

    Mensagem  Ari em Qui 20 Nov 2014, 02:06

    Não funcionaram

    Ari

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2503
    Registrado : 29/06/2012

    Re: [Resolvido]Formatar campo CPF no WORD como feito no ACCESS

    Mensagem  Noobezinho em Qui 20 Nov 2014, 12:19

    Ari

    Esse botão de visualização está no Access?
    Ou seja, esses dados que quer visualizar no Word estão numa tabela?
    Se sim, verifique como está gravado na tabela esses CPF's, se formatados ou somente números.
    Lembre-se que o número do CPF/CGC é string e não numéricos, portanto , na máscara de entrada do CPF/CGC,
    você pode escolher gravar na tabela somente os números ou com a mascara (xxx.xxx.xxx-xx).
    Uma vez escolhido com a máscara, acredito que os dados serão importados para o Word , formatados.
    Caso estejam gravados somente números da na tabela, teste colocando a formatação diretamente em um registro e visualize.

    Abraços

    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Ari
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 28/11/2009

    Re: [Resolvido]Formatar campo CPF no WORD como feito no ACCESS

    Mensagem  Ari em Qui 20 Nov 2014, 16:18

    Botão de visualização está num formulário access.
    Os dados estão numa tabela com o campo CPF formatado com máscara 000\.000\.000\-00;;_ e os detalhes da máscara(pontos e hífen) não são enviados ao ContratoModelo.rtf.

    O problema está na máscara do formulário:
    Se coloco a máscara 000\.000\.000\-00;;_ não envia o cpf formatado como 000.000.000-00.
    Se tiro a máscara, sou obrigado a digitar os pontos e hífen (texto) - o que eu não quero -

    Ari

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2503
    Registrado : 29/06/2012

    Re: [Resolvido]Formatar campo CPF no WORD como feito no ACCESS

    Mensagem  Noobezinho em Qui 20 Nov 2014, 16:23

    Ari

    O que gostaria de saber é se o CPF está gravado com mascara na tabela (123.456.789.10) se sim,
    você pode pegar o cpf da tabela e não do formulário.


    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Ari
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 28/11/2009

    Re: [Resolvido]Formatar campo CPF no WORD como feito no ACCESS

    Mensagem  Ari em Qui 20 Nov 2014, 16:44

    Sim, seria a solução...mas como direcionar para a tabela? O código que postei não fui eu que fiz. Onde modificar-lo para que isto aconteça?

    Ari

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2503
    Registrado : 29/06/2012

    Re: [Resolvido]Formatar campo CPF no WORD como feito no ACCESS

    Mensagem  Noobezinho em Qui 20 Nov 2014, 19:21

    Ari

    Anexe as partes de teu aplicativo, com os objetos em questão,
    Assim podemos der uma boa olhada de perto e fazer os testes., ok?


    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Ari
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 28/11/2009

    Re: [Resolvido]Formatar campo CPF no WORD como feito no ACCESS

    Mensagem  Ari em Sab 22 Nov 2014, 11:20

    Eis o arquivo:
    [Você precisa estar registrado e conectado para ver este link.]

    Obs: Este mesmo arquivo que está em formato zip, depois de "Escolher arquivo", ao "Enviar" retorna que "o arquivo não é válido". E não é a primeira vez.

    Abraços

    Ari
    Anexos
    SGL-8-7_19-11-14.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (276 Kb) Baixado 8 vez(es)

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2503
    Registrado : 29/06/2012

    Re: [Resolvido]Formatar campo CPF no WORD como feito no ACCESS

    Mensagem  Noobezinho em Sab 22 Nov 2014, 11:33

    Olá Ari

    Como pode ver, eu anexei o teu arquivo.zip

    Como você compactou esse arquivo?
    Estou propenso a acreditar que usou o winrar
    criando um arquivo.rar e depois renomeando para .zip, é isso?

    Vou ver teu aplicativo.

    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2503
    Registrado : 29/06/2012

    Re: [Resolvido]Formatar campo CPF no WORD como feito no ACCESS

    Mensagem  Noobezinho em Sab 22 Nov 2014, 12:12

    Ari

    Aqui está teu aplicativo modificado.

    Veja que modifiquei somente uma linha no código.
    Deixo pra você modificar, onde precisar, tendo por base o código que coloquei

    Abraços


    Noob

    Novo Anexo - 23/11/2004
    Anexos
    SGL8-7_Noob_Modif.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (442 Kb) Baixado 12 vez(es)


    Última edição por Noobezinho em Dom 23 Nov 2014, 10:43, editado 1 vez(es)


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Ari
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 28/11/2009

    Re: [Resolvido]Formatar campo CPF no WORD como feito no ACCESS

    Mensagem  Ari em Sab 22 Nov 2014, 13:12

    Caro Noobe,
    O problema não foi resolvido.
    Faça o seguinte teste:
    No formulário preciso digitar o CPF com máscara.
    Coloque a máscara de CPF no C2CPF que você tirou e veja se funciona.
    Sem a máscara, funciona, mas não é o que eu preciso.
    O "X" da questão está aí.

    Abraços

    Ari

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2503
    Registrado : 29/06/2012

    Re: [Resolvido]Formatar campo CPF no WORD como feito no ACCESS

    Mensagem  Noobezinho em Sab 22 Nov 2014, 13:54

    Ari

    Se você baixar e verificar no teu exemplo disponibilizado no 4shared ,
    irá verificar que eu não mudei NADA na estrutura do formulário e que
    a máscara mencionada por você, não existe nesse controle já no
    exemplo disponibilizado por você.

    Veja que C1Cpf está com máscara e C2Cpf está sem.

    E mais outra coisa, quando colocar o código passado por mim em C1Cpf, irá notar que vai
    continuar não aceitando a formatação.
    Então, entre na tabela e redigite o cpf e irá funcionar.

    Ari - Clique aqui para ver a imagem:

    [Você precisa estar registrado e conectado para ver esta imagem.]

    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Ari
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 28/11/2009

    Re: [Resolvido]Formatar campo CPF no WORD como feito no ACCESS

    Mensagem  Ari em Dom 23 Nov 2014, 02:13

    Primeiramente lhe peço desculpas por dizer que você havia retirado a máscara do campo C1CPF, me perdoe, me confundi.

    Segundo:
    - Coloquei o código que você fez no C2CPF, no campo C1CPF
    - Coloquei máscara nos campos C1CPF e C2CPF no Formulário
    - Coloquei máscara nos campos C1CPF e C2CPF na tabela
    - Alterei o CPF na tabela.
    Funcionou...

    Ops...Mas se eu atualizar pelo formulário, que é o caminho certo, não funciona.

    Abraços

    Ari

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2503
    Registrado : 29/06/2012

    Re: [Resolvido]Formatar campo CPF no WORD como feito no ACCESS

    Mensagem  Noobezinho em Dom 23 Nov 2014, 10:42

    Ari

    Fiz o mesmo procedimento que você.
    Coloquei as máscaras  nos campos da tabela e nos dois controles do formulário.
    Eu recriei as máscaras. optando para armazenar com os símbolos na tabela , fiz isso tanto na tabela quanto nos controles.
    Adicionei uma linha de código no botão visualizar para SALVAR o registro antes de visualizar no word.
    Vou susbstituir  o anexo que postei por outro. baixe ele lá,ok?
    Há !!,  Enganos faz parte da vida de nós "Umanos", fica frio !!  Razz   Wink

    Abraços

    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Ari
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 28/11/2009

    Re: [Resolvido]Formatar campo CPF no WORD como feito no ACCESS

    Mensagem  Ari em Dom 23 Nov 2014, 12:31

    Very Happy Funcionou!!!
    Muito obrigado Noob pelo acompanhamento.

    Abraços.

    Ari.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2503
    Registrado : 29/06/2012

    Re: [Resolvido]Formatar campo CPF no WORD como feito no ACCESS

    Mensagem  Noobezinho em Dom 23 Nov 2014, 12:35

    Ótimo Ari

    Valeu o retorno

    Boa sorte!

    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: Qua 07 Dez 2016, 20:14