[Resolvido]Problemas com InputMask

Olá Galerinha,

Tenho uma Base de Dados Geográfica onde estão todos os dados geográficos do Brasil, e uma base de dados onde estão todos os dados dos clientes. As tabelas da Base de dados Geográfica são vinculadas para a Base de Dados dos Clientes.

O problema ocorre que no evento "Após atualizar" do campo CEP em meu formulário de cadastro onde está com a função InputMask. No Campo CEP das tabelas de endereços das base de dados Geográfica e de Clientes, o CEP é inserido sem máscara! Em uma outra tabela na base de Cliente é guardado um caminho de imagens QR Code que está com o número do CEP só que com a máscara "00000-000".

Após Atualizar

Código:

Private Sub CEP_AfterUpdate()
    Me.CEP.InputMask = "00000\-000;0;_"
End Sub

Evento do Botão Anexar QR Code

Código:

Private Sub QRCode_Click()
Dim CEPValue
Dim strCaminho As String

    Me.CEP.InputMask = "00000\-000;0;_"
    CEPValue = Me.CEP 'Aqui o CEP já deveria estar com a máscara "00000-000"?
    strCaminho =  ("\\192.168.0.1\VBAccess\Imagens\QRCode\" & CEPValue & ".png")

    DoCmd.RunSQL "INSERT INTO [QRCodeEnderecos] ([CodigoDoCliente], [strCaminhoImagem]) VALUES ('" & CodigoCliente.Value & "', " & strCaminho & ")"
End Sub

Quando eu insiro o CEP no formulário o mesmo insere a máscara "00000-000" legal, mas quando clico no botão Anexar QR Code (comando acima) o Access guarda o CEP sem a máscara! é como se o comando InputMask não tivesse sido interpretado

Alguém pode me ajudar?

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

Fala Jefferson.....

O Avelino matou a pau, como sempre!!!!

Só inserindo na sua dúvida....

Private Sub QRCode_Click()
Dim CEPValue
Dim strCaminho As String

Me.CEP.InputMask = "00000\-000;0;_"
CEPValue = Format(Me.CEP, "00000\-000;0;_") 'Aqui o CEP já deveria estar com a máscara "00000-000"?
strCaminho = ("\\192.168.0.1\VBAccess\Imagens\QRCode\" & CEPValue & ".png")

DoCmd.RunSQL "INSERT INTO [QRCodeEnderecos] ([CodigoDoCliente], [strCaminhoImagem]) VALUES ('" & CodigoCliente.Value & "', " & strCaminho & ")"
End Sub


A forma de armazenar a informação está correta.... devemos sempre registrar em tabela, a informação "pura", sem nenhum tipo de formatação!!!!!

Segue o Avelino que é sucesso!!!!!
HAHAHAHAHAHAHAHAHAH

Desde já agradeço....

Abraço a todos!!!!!

Grande Avelino, deu certíssimo. Muito obrigado pela ajuda!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?