DLookup não está a funcionar

Bom Dia a Todos!

tenho a seguinte etrutura

Tabela: Ação
Tabela: Código ação

na tabela ação tenho 2 campos, Um Chamado "Cod Ação" e outro "Ação" sendo que o campo "Ação" quero que seja preenchido automaticamente quando o campo "Cod Ação" for preenchido.

Assim ficou minha expressão:


Private Sub Ação_AfterUpdate()
Ação = DLookup("[Ação]", "Ação", "[Cod Ação]=" & combo)
End Sub

o Access me retorna a seguinte mensagem:

Erro em tempo de Execução '3075':
erro de sintaxe (operador faltando) na expressão de consulta '[Cod Ação]=.
nesse link estou disponibilizando minha DB
http://www.4shared.com/file/bb88Sj7e/Database4.html

Desde ja agradeço a atenção

Não consigo baixar do 4shared

Pode por favor compactar em ZIP e anexar aqui em .zip ?

Senão teste assim;

Numerico:
Me.Ação.Value = DLookup("[Ação]", "Ação", "[Cod Ação] = " & Me.SuaCombo.Column(0))

Texto:
Me.Ação.Value = DLookup("[Ação]", "Ação", "[Cod Ação] = '" & Me.SuaCombo.Column(0) & "'")

Amigão

coloquei no DropBox e em ZIP

https://www.dropbox.com/s/s337y19dtf5nwq7/Database4.zip

Desde ja agradeço sua ajuda!

1º Delete o evento VBA que está no depois de atualizar da Ação.

2º Transforme a combo Ação, em caixa de texto.

3º Coloque esta instrução apenas no depois de atualizar da combo Cod_Ação.

Private Sub Cod_Ação_AfterUpdate()
 Me.Ação.Value = Me.Cod_Ação.Column(1)
End Sub

http://dl.dropbox.com/u/771097/Database4_OLD.rar

Valeu Meu brother!

Se resolveu, não esqueça o Resolvido.

Brother, me apareceu a seguinte situação agora,
quando eu preencho o Form, o Campo "ação" ele não atualiza a tabela,
com isso não consigo gerar um relatório...

podes me dar uma luz?

Veja;

http://dl.dropbox.com/u/771097/Database4_OLDD.rar

Resolveu ?

Bom dia Galera!

Vi no fórum diversos exemplos de dlookup, porém, infelizmente não consegui fazer o meu funcionar.

Alguém pode me ajudar?

Vejamos:

Tenho uma tabela chamada Cursos e ela tem os seguintes campos:
-Id_curso
- Ação/Evento
- Departamento
- Carga Horária (e etc)

Então, tenho um formulário chamado Planejamento que tem um subformulário chamado Planejamento_dados_sub, neste subformulário tenho os seguintes campos:
- Curso
- Departamento
- Carga Horária (e etc)

O que eu quero fazer é: Quando eu selecionar um curso dentro do subformulário Planejamento_dados_sub (selecionar pq criei uma lista suspensa que apresentará todos os cursos cadastrados), seja preenchido automaticamente os demais campos (Departamento, Carga horária e etc).

Como estou fazendo?
Entrei no subformulário e cliquei no campo Curso, cliquei em Evento e em selecionei Construtor de código no campo Após atualizar. Então abriu a tela do VBA e eu digitei (com base nos exemplos mostrados aqui e na ajuda do Microsoft):

Private Sub Curso_AfterUpdate()
Me.Departamento = DLookup("Departamento", "cursos", "Me.Departamento='" & Me.Departamento & "'")
End Sub

Então salvei e abri o formulário em que o subformulário esta vinculado e dá o seguinte erro:

Erro em tempo de execução '2766'
O objeto não contém o objeto Automation 'Me'.

Alguém consegue me ajudar?

Desde já grato!

Tente:

Private Sub Curso_AfterUpdate()
Me.Departamento = DLookup("Departamento", "cursos", "Id_curso= '" & Me!Id_curso & "'")
Me.Carga Horaria = DLookup("[Carga Horária]", "cursos", "Id_curso= '" & Me!Id_curso & "'")
Me.etc = DLookup("etc", "cursos", "Id_curso= '" & Me!Id_curso & "'")

End Sub


Substitua o etc pelo campo da sua tabela que vc quer ver no formulário, tantas vezes quanto a informação for necessária.
Não sei como está formatada a sua tabela e seu formulário, mas tente colocar, na tabela, um nome único parta o campo, nunca use nome composto, ou seja, em vez de "Carga Horária", use CargaHoraria. Mesma coisa no formulário. Pesquise no Fórum, tem um documento relativo à nomeclatura correta de campos, forms e etc.
Abs