Erro no Dlookup

Boa tarde pessoal,

Estou com um erro: "Tipo de dados incompatíveis" num Dlookup, mas não consigo resolver. Segue a sintaxe q estou utilizando.

Código:

        If DLookup("[noEmpreendimento]", "tb_DadosGerais", "[noEmpreendimento] = '" & cbxEmpreendimento & "'") Then 'verifica se o empreendimento já foi cadastrado


meu campo noEmpreendimento na tb_DadosGerais é do tipo texto, bem como o valor da combobox.

Grato

Boa tarde,
Deverá ser por não se referir a que coluna da caixa de combinação se refere.

Olá,

Geralmente usamos:

If A = B Then

Seu código está assim:

If A Then

que está sendo interpretado assim:

If A = True Then

Como A não retorna booleano, e sim texto, ocorre o erro mencionado.
Solução: complementar o If com o = B que está faltando.

Tenta assim... daí é só modificar para a sua ação após o "Then":

Private Sub Go_Click()
'
If (Not IsNull(DLookup("[noEmpreendimento]", "tb_DadosGerais", "[noEmpreendimento]='" & Me.cbxEmpreendimento.Value & "'"))) Then
MsgBox "Empreendimento já cadastrado!", vbCritical, "Já existe..."
Else
   MsgBox "Empreendimento ainda não foi cadastrado!", vbInformation, "Não existe..."
End If
'
End Sub

Valeu!