[Resolvido]Tabular de uma primeira caixa de texto para a segunda assim que a primeira for preenchida

Olá amigos!
Tenho um formulário onde cadastro certidões de nascimento no modelo novo (com matrícula) e são nove campos.
o primeiro campo tem seis caracteres, o segundo dois e assim por diante.
Minha intenção é quando digitar a informação no primeiro campo, ele mesmo passe para o segundo sem a necessidade de eu clicar ou pressionar a tecla tab e eu digite todos os números até completar e sem parar. É possível?

Boa tarde,
Coloque código em cada controlo, no acontecimento AposActualizar
If Len(SeuControlo)=TamanhoMaximo then Proximocontrolo.setfocus

Boa tarde!
Alexandre Neves, fiz conforme me orientou porém não funciona. Ainda é preciso pressionar tecla tab ou mesmo clicar fora para que o campo atualize e só depois ocorra a tabulação para o campo seguinte.
Tentei colocando no evento No timer a função me.requery e o intervalo do cronometro em 2000 mas sempre que piscava e eu digitava acabava virando confusão.

Deixei um exemplo como anexo, eu uso o access 2013.

Não tinha testado. Tinha de ser AoAlterar. Nomeie os controlos de forma normalizada para não haver dúvidas se está a referir-se ao controlo ou ao campo
Utilize
Private Sub txtCampo1_Change()
If Len(txtCampo1.Text) = 9 Then txtcampo2.SetFocus
End Sub
Private Sub txtCampo2_Change()
If Len(txtcampo2.Text) = 8 Then txtcampo3.SetFocus
End Sub
Private Sub txtCampo3_Change()
If Len(txtcampo3.Text) = 7 Then txtcampo4.SetFocus
End Sub
Private Sub txtCampo4_Change()
If Len(txtcampo4.Text) = 6 Then txtCampo5.SetFocus
End Sub
Private Sub txtCampo5_Change()
If Len(txtCampo5.Text) = 5 Then txtcampo6.SetFocus
End Sub
Private Sub txtCampo6_Change()
If Len(txtcampo6.Text) = 4 Then txtcampo7.SetFocus
End Sub
Private Sub txtCampo7_Change()
If Len(txtcampo7.Text) = 3 Then txtcampo8.SetFocus
End Sub
Private Sub txtCampo8_Change()
If Len(txtcampo8.Text) = 2 Then txtcampo9.SetFocus
End Sub

Olá Alexandre Neves,
Agora sim funcionou.
Muito Obrigado!