[Resolvido]Dlookup com dois critérios

Boa noite galera!!!

Estou tentando fazer um Dlookup utilizando dois critérios porém estou recebendo a seguinte mensagem...

Erro em tempo de execução'13':
Tipos incompativeis

Estou utilizando este seguinte código:

Me.Texto107.Value = DLookup("[Descrição]", "PlanAcao_Desc_tab", "[Operação]= '" & Comb & "'" And "[Tipo]= '" & plan1 & "'")

Onde:
Rot = Rótulo106.Caption
Comb = Combinação140

Ambos declarados como String

Existe algum problema nesse código que postei?

Obrigado!
At,
David

Olá amigo

Teste para ver se dar certo.

Me.[Texto107].Value = DLookup("[Descrição]", "PlanAcao_Desc_tab", "[Operação] = " & Comb & " And Tipo = " & plan1 & "'")

Bom dia Vieira!

Tentei mas aparece o erro abaixo.

Erro em tempo de execução '3075':
Erro de sintaxe (operador faltando) na expressão de consulta '[Operação]=Conta Corrente And Tipo=Plano de Ação 1"

Olá Bom dia

Amigão, porque não coloca a sua base ou parte dela aqui para dar uma olhada. Não lhe prometo que vá ver já, já, porque estou de saída (no trabalho) e volto ao final da tarde, mas aí prometo que vou ver.

Apenas um pitaco;

Veja que o erro apresentado já lhe diz tudo;

Falta uma aspa simples na instrução;

Me.[Texto107].Value = DLookup("[Descrição]", "PlanAcao_Desc_tab", "[Operação] = " & Comb & " And Tipo = '" & plan1 & "'")

Ok, estou postando meu MDB.

Vou passar algumas informações do que estou tentando fazer para que fique mais claro quando abrir o MDB.

O formulário que estou tentando utilizar o código é o PlanAcao_form.

A minha intenção é quando eu selecionar uma informação na caixa de combinação, seja feito o filtro para as caixas de texto.

Existe uma tabela de onde estou tentando buscar as informações que é a tabela PlanAcao_Desc_tab.

Qualquer duvida em relação ao que estou tentando fazer, estou totalmente a disposição.

Desde já obrigado.

Bom dia JPaulo

Tentei utilizando conforme seu código porém continua dando o mesmo erro...

Eu fiz alguma mudanças no código pois tinha alguns erros, agora está assim...

Me.[Texto107].Value = DLookup("[Descrição]", "PlanAcao_Desc_tab", "[Operação] = '" & Comb & " And Tipo = '" & Rot & "'")

Obs: Já está com a aspas simples conforme sinalizado.

Private Sub Combinação140_AfterUpdate()
Dim Rot As String
Dim Comb As String

Rot = Rótulo106.Caption
Comb = Combinação140.Value
Me.Texto107.Value = DLookup("[Descrição]", "PlanAcao_Desc_tab", "[Operação] = '" & Comb & "' And [Tipo] = '" & Rot & "'")
End Sub

Maravilha mestre, funcionou finalmente!!!

Era a ausência do .value?


Muito obrigado!

Negativo;

Era ausencia das aspas simples;

Código:

'" & Comb & "'

'" & Rot & "'