[Resolvido]No mesmo Form no evento "Após Atualizar" é possível colocar dois Comandos?

Pessoal vocês tem me ajudado muito mais do que eu esperava, agradeço imensamente, e aqui vai mais uma que acho que não perguntei corretamente e o Criquio me respondeu e acabei caindo com um problema:

No mesmo FORM no Evento "Após Atualizar" é possível colocar dois COMANDOS? E se sim como faço isso?

Como estes dois que o Criquio me passou:

"este é para quando eu digitar uma conta de banco e onde eu não colocar zero a esquerd da numer4ação ele preencherá automaticamente."

Dim Cont As String
Cont = 9 - Len(Me.SeuCampo)
If Cont > 0 Then
Do While Cont > 0
Me.SeuCampo = 0 & Me.SeuCampo
Cont = Cont - 1
Loop
End If
Me.SeuCampo.InputMask = "########-#"


" E este é para no momento que eu digitar o número da conta corrente do banco e preenche automaticamente o nome do cliente."
Me.CampoClienteNoForm = DLookup("CampoClienteTabela", "NomeTabela", "CampoContaTabela=" & Me!CampoContaNoForm)

Como junto os dois no mesmo evento??????

Coloque o primeiro codigo no evento ao alterar.

Não deu certo apenas colocando um após o outro?

Dim Cont As String
Cont = 9 - Len(Me.SeuCampo)
If Cont > 0 Then
Do While Cont > 0
Me.SeuCampo = 0 & Me.SeuCampo
Cont = Cont - 1
Loop
End If
Me.SeuCampo.InputMask = "########-#"

Me.CampoClienteNoForm = DLookup("CampoClienteTabela", "NomeTabela", "CampoContaTabela=" & Me!CampoContaNoForm)

Talvez a InputMask possa interferir. Se for o caso, tente trocar os dois eventos de lugar:

Dim Cont As String
Cont = 9 - Len(Me.SeuCampo)
If Cont > 0 Then
Do While Cont > 0
Me.SeuCampo = 0 & Me.SeuCampo
Cont = Cont - 1
Loop
End If

Me.CampoClienteNoForm = DLookup("CampoClienteTabela", "NomeTabela", "CampoContaTabela=" & Me!CampoContaNoForm)

Me.SeuCampo.InputMask = "########-#"

Dependendo das circunstâncias, pode ser necessário adicionar aspas simples e duplas no DLookup:

Me.CampoClienteNoForm = DLookup("CampoClienteTabela", "NomeTabela", "CampoContaTabela='" & Me!CampoContaNoForm & "'")

Boa noite, Gunnar

Troque Dim Cont As String por Dim Cont As byte
Cumprimentos,

criquio, Alexandre e chsestrem,

se algum de você puderem me ajudar estou anexando meu BD em desenvolvimento pra vocês darem uma olhada neste item.
Penso que não estou colocando as informações corretas no comando DLookup, tentei de diversas mmaneira e não consegui, acho que minha inexperiência é muito grande mas meu esforço também.

Penso que não é tão complicado, mas onde estou errando?

Obrigado.

Pessoal,

desculpem eu estar insistindo mas estou precisando muito que este comando dê certo pois irá proporciona um ganho muito significativo na produção só de não precisar digitar o nome do cliente e
tentei de algumas maneiras e de todo jeito que faço não funciona, vejam:

Tenho uma tabela com os dados dos clientes: "tblCliente" que possui os campos "Conta" e "Cliente" com a numeração da conta e os nomes os quais eu gostaria que aparecesse automaticamente no campo "Cliente" do formulário "frmPedido" depois que eu digitasse a conta(o número zero a esquerda deu certo).

Com estas informações como encaixaria na fórmula do DLookup?

Obs: Não consegui anexar o arquivo em que o tamanho é inferior ao permitido.

Bom dia, Ghunnar

Veja na ajuda do Access: DLookup("NomeDeCampo","NomeDeTabela","Condição")
No seu caso, será DLookup("Cliente","tblCliente","Conta=" & ControloContaNoFormulário )
Cumprimentos,