[Resolvido]Zeros a esquerda na caixa de texto.

Boa noite galera eu tenho uma tabela "Tabela_Código" que contem um campo de número automático "Cód" que eu formatei para que quando o código é criado ele me da 7 caracteres sendo os primeiros números 0 por exemplo: o código 1 ele mostra 0000001 o código 256 ele mostra 0000256.
Logo quando eu abro um formulário eu junto a caixa de texto "Cod_Form" com o campo "Cód" da tabela "Tabela_Código" mais ele me mostra no caso 0000001 apenas 1 caractere e se for 0000256 ele mostra apenas 256.
Como faço para a caixa de texto "Cód_Form" mostra todos os zeros que estão na tabela?

Ou por formatação simples com a propriedade ou com programação de VBA!!!!

OBS: Eu vi um tópico que respondia alguma coisa parecida mais não funcionou comigo, então fiz este.

Agradeço muito antecipadamente.

Ola amigo faz assim selecione a caixa texto vai em propriedades formato e coloque quantos zeros quizer no campo formato.

Abçs.

Ok resolveu certinho, só que ae apareceu outro problema eu tenho outra 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?

Oi amigo mande pra gente ver aqui essa lida.
abçs.

Ok ta ae!!

Olá, é só trocar a linha atual do evento ao receber foco do campo Cód_Geral por este:
Cód_Geral = [Cód_Marca] & "." & [Cód_Tamanho] & "." & [Cód_Tipo] & "." & Format([Cód_Form], "0000000")

Fiz oque o beto recomendou,certinho..certinho,grande beto.


https://dl.dropboxusercontent.com/u/90217826/Teste.zip

Beto vlw mesmo cara deu certinho!!!!
Brigão!!!!

Boa noite, scripitor, e bem-vindo ao fórum