[Resolvido]Problema com Dlookup

Bom dia
Tenho uma tabela em que um campo tipo texto chamado "Confirmada", só tem "Sim" ou "Não"

Queria aplicar num botão de comando a seguinte função de anular na condição do mesmo ser "Não" anula.

Caso o campo "Confirmada" seja "Sim" não deixa anular.

If DLookup("[confirmada]", "Agenda", "[Confirmada] ='Sim'") Then
MsgBox "Esta Consulta Não Pode Anulada Pois Já Está Confirmada", vbQuestion, "Marcações"
Exit Sub
End If

O meu erro está a vermelho acho eu ....
Mas desta maneira mesmo que o campo "Confirmada" esteja como "Não" diz sempre "Esta Consulta Não Pode Anulada...."

Obrigado

Dim x As String
x = DLookup("[Confirmada]", "Agenda", "[Confirmada]= 'Sim'")
If x = "Sim" Then
MsgBox "Esta Consulta Não Pode Anulada Pois Já Está Confirmada", vbQuestion, "Marcações"
Exit Sub
End If

Boa tarde JPaulo

Continua igual

Obrigado

Olá Assis,

O JPaulo sem querer suprimiu o Else:

Dim x As String
x = DLookup("[Confirmada]", "Agenda", "[Confirmada]= 'Sim'")
If x = "Sim" Then
MsgBox "Esta Consulta Não Pode Ser Anulada Pois Já Está Confirmada",vbQuestion, "Marcações"
Else
Exit Sub
End If

Olá Eduardo

Testou

É que com o Else deixa eliminar quando não deve deixar

Obrigado

Assis meu amigo, a instrução não estava a pesquisar o criterio do selecionado na lista e o End If não estava no lugar correto.

Tem de ser assim;

x = DLookup("[Confirmada]", "Agenda", "[Confirmada]= '" & Me.Lista.Column(5) & "'")

Veja o simples;
http://dl.dropbox.com/u/771097/AgendaAssis_OLD.rar

Obrigado JPaulo

Obrigado pelo retorno o forum agradece.