[Resolvido]Erro na função Dlookup

No formulário Pagina_Inicial, tentei usar a função DLookup para verificar a existência de um registro igual (especificando dois critérios) antes de abrir o formulário frmMovimento. Os dois critérios são os campos CodCompetencia e CodEmpregador. Eles estão nos dois formulários.

O problema ocorre quando clico no botão para abrir frmMovimento: se nenhum empregador estiver selecionado (CodEmpregador), deveria gerar Null (certo?), mas retorna: Erro de sintaxe (operador faltando) na expressão 'CodCompetencia=4, And CodEmpregador='.

Onde está o erro?

Boa noite, rgondim

Como pode constatar, o critério sendo nulo deixa a sintaxe errada. Para utilizar os dois critérios, verifique se algum deles é nulo e,se for, escreva o critério como pretende.
por exemplo,
if isNull(CodEmpregador) Then "IsNull(CodEmpregador))"

Alexandre,

não entendi muito.
Ao abrir o formulário, CodEmpregador (uma listbox) fica nulo. Só ganha um valor válido ao selecionar uma das opções.
Como devo fazer: incluir sua opção com If no critério da função?

Poste todo e qualquer código que está utilizando para vermos como está tentando fazer.

Eu pus varPesquisa após Else e o código passou a reconhecer quando CodEmpregador está nulo, sem gerar o erro.


Dim varPesquisa As Variant
varPesquisa = DLookup("[CodMovimento]", "tblMovimento", _
"CodCompetencia=" & Me!CodCompetencia & _
" AND CodEmpregador=" & Me!CodEmpregador)

If IsNull(CodEmpregador) Then
MsgBox "Selecione uma empregador para continuar."
Elseif IsNull(varPesquisa) Then
intRetVal = MsgBox("Confirma a inclusão do empregador " & _
Me.CodEmpregador.Column(1) & " neste movimento?", vbYesNo + vbQuestion, "Incluir Empregador")
Select Case intRetVal
Case vbYes
DoCmd.OpenForm "frmMovimento", , , , acFormAdd
Forms![frmMovimento]!CodCompetencia = Me!CodCompetencia
Forms![frmMovimento]!CodEmpregador = Me!CodEmpregador
End Select
Else
varPesquisa 'nova posição'
intRetVal = MsgBox("Empregador já cadastrado neste movimento. Deseja alterar o registro?", _
vbYesNo + vbQuestion, "Alterar Registro?")
Select Case intRetVal
Case vbYes
DoCmd.OpenForm "frmMovimento", , , strCriterio '"CodMovimento=" & varPesquisa
End Select
End If

Então está resolvido?

Acredito que sim. Vou por (RESOLVIDO).

Obrigado pela atenção.

Boa tarde, rgondim

Para dar o assunto por resolvido, deve clicar no botão adequado que se encontra na parte inferior direita do formulário
Como sei que o colega tem o cuidado de companhar os assuntos tratados no fórum, já viu este alerta algumas vezes!.
Agora, dou por resolvido