Preenchimento automático com zeros - campo código barras

Olá pessoal!

O código EAN (barras) contém 13 dígitos, mas alguns produtos apresentam menos dígitos.
Tenho um campo 'código' e outro 'qtde' no meu form. Gostaria que ao digitar ou escanear um código de 13 dígitos no campo 'código', o foco caísse no campo 'qtde' e/ou quando digitar ou escanear um código com menos dígitos (ex. 8 dígitos), o sistema preenchesse com '0' (zeros) a esquerda até completar os 13 dígitos e o foco caísse no campo 'qtde'.

grato,

Opa Ronaldo, bom dia

Você pode usar uma máscara ou então usar a função String.

Ficaria mais ou menos assim

Na propriedade Após Atualizar do seu campo código, ou após chamar a função de ler o código de barras, vc insere o código abaixo

Código:


Dim intCaracteres as integer

intCaracteres= len(código) - 13

qtde.Setfocus

if intCaracteres = 0 then
   exit sub
else
   código= String(intCaracteres,"0") & código
end if