[Resolvido] Zeros à esquerda na caixa de texto

Viva aqui estou eu outra vez:

Desta vez tenho um problema que é igual à de um outro membro, só que a solução deste que estava na Dropbox expirou.

Estava aqui: http://maximoaccess.forumeiros.com/t18755-resolvidozeros-a-esquerda-na-caixa-de-texto?highlight=zero+%C3%A0+esquerda

Sendo assim faço dele as minha palavras.

Tenho uma caixa de texto que faz uma junção dos códigos das outras caixas de texto exemplo:

Cód_Tipo
Cód_Marca
Cód_Tamanho
Cód_Form
Cód_Geral

Onde Cód_Tipo pode ser M, F, A.
Cód_Marca 1, 2, 3
Cód_Tamanho P, M, G
Cód_Form são os caracteres 0000005
e no
Cód_Geral quando ele recebe foco eu coloco a seguinte formula
Cód_Geral = [Cód_Tipo] & "." & [Cód_Marca] & "." & [Cód_Tamanho] & "." & [Cód_Form]
Simulação:
Eu gostaria que ele colocasse assim
F.1.P.0000005
Mais ele coloca assim
F.1.P.5
!!!
O que eu posso fazer?

Bruno Gordino

Bruno

Coloque :


Cód_Geral = [Cód_Tipo] & "." & [Cód_Marca] & "." & [Cód_Tamanho] & "." & Format([Cód_Form], "0000000")


[ ]'s

Noob

Viva,

Funcionou do jeito que eu queria.

O que eu pesquisei, andei lá perto com o "Format"´em "unbounds" mas só deu asneira.

Valeu, mais uma vez foram impecáveis.

Muito obrigado.

Bruno Gordino

Ótimo Bruno

Valeu o retorno

Boa sorte!

Noob