[Resolvido]Buscar valor numa tabela e usar como critério em formulario com outra fonte de dados

Boa tarde pessoal,

É o seguinte: Tenho uma tabela com um campo boleano (Sim/Não). E tenho um formulário
que usa outra tabela como origem de dados. Preciso que após atualizar de um determinado
campo no formuário um código avalie na outra tabela se é verdadeiro ou falso. Caso seja falso
execulte uma msgbox e desfaça o que foi feito apenas no acampo do formulário caso contrario,
deve deixar seguir o evento. Não sei se fui muito claro...
Grato.
Escrevi esse código, porém não funciona:




If (DLookup("[AprovaCompra]", "tblUsuários", "0")) Then
MsgBox "Você não permissão para aprovar compras.", vbCritical, "Ação negada"
Form_fml_compras_adm.andamento.Undo
Exit Sub
End If
End Sub

Não seria algo assim?

If DLookup("AprovaCompra", "tblUsuários", "Código=" & Me!Código) = 0 Then
    MsgBox "Você não permissão para aprovar compras.", vbCritical, "Ação negada"
    Me.andamento.Undo
Else
    Exit Sub
End If

criquio, não deu certo.
Para você compreender melhor: No formulário tenho tenho uma caixa de combinação "andamento" que tem os seguintes valores: "Pendente";"Aprovado";"Aprovado parcialmente";"Cancelado";"Negado". A origem desse formulário é uma tabela "tbl_compras".
E tenho uma outra tabela "tblUsuários" que tem o campo Sim/Não "AprovaCompra".
No evento após atualizar da caixa de listagem, ja tenho uma função que analiza se o valor é "Aprovado" se realmente for chamo pela
função "val_com_apr()" em que o DLookup deveria identificar se o campo "AprovaCompra" daquele usuário na tabela "tblUsuario não está marcado "0", pois se não tiver marcado, deveria mostras a msgbox e desfazer a ação, caso contrário, deixe seguir o evento normalmente.
Aguardo

Poste a função e códigos envolvidos por gentileza.

Opa, aí vai:

If (Me.andamento = "Aprovado") Then
Call val_apr_com
Exit Sub
DoCmd.SetProperty "data_cancela", acPropertyVisible, "0"
DoCmd.SetProperty "previsao", acPropertyVisible, "-1"
DoCmd.SetProperty "objetos_aprovados", acPropertyVisible, "0"
DoCmd.SetProperty "objetos_entregues", acPropertyVisible, "-1"
DoCmd.SetProperty "motivo_negacao", acPropertyVisible, "0"
DoCmd.SetProperty "valor_compra", acPropertyVisible, "-1"
DoCmd.SetProperty "entregue", acPropertyVisible, "-1"
DoCmd.SetProperty "data_entrega", acPropertyVisible, "-1"
DoCmd.SetProperty "hora_entrega", acPropertyVisible, "-1"
DoCmd.SetProperty "recebedor_pq", acPropertyVisible, "-1"
DoCmd.SetProperty "nota_fiscal", acPropertyEnabled, "-1"
End If

Function val_apr_com()

If DLookup("[AprovaCompra]", "tblUsuário", "[AprovaCompra] ='" & 0 & "'") Then
MsgBox "Você não permissão para aprovar compras.", vbCritical, "Ação negada"
Me.andamento.Undo
Else
Exit Function
End If
End Function

O Dlookup precisa de uma referência para saber aonde ele deve analisar. Como eu passei anteriormente, deveria ser algo assim:

If DLookup("[AprovaCompra]", "tblUsuário", "[Código] =" & Forms!NomeDoFormulário!NomeCampoCódigo) = 0 Then

Nesse caso, teria um código no formulário para fornecer a linha aonde o DLookup irá pesquisar na tabela.

Então eu devo criar um campo não acoplado e por o que eu quero que o dllokup procure na tabela?
Resumeido o que eu quero: Quero apenas o valor da tabela se é verdadeiro ou falso, assim eu poderia ,manipular como desejo.
Desculpe, é que realmente não compreendi...

Você tem duas tabelas, certo? Supõe-se que tenha um relacionamento entre elas, para que você possa controlar qual registro está com o campo boolean como Sim ou Não. Esse código que interliga os registro de uma tabela com o da outra é que seria o dado usado para o DLookup poder fazer essa avaliação.

criquio, finalmente consegui... Fiz como você me disse a primeira vez levando em consideração o que me disse da última.. Eu estava pondo os valores errados, do código que você me disse!
Agora corrigi e funcionou. Mais uma vez muito obrigado pela ajuda.

Obrigado pelo retorno. Só faltou o Resolvido. Dessa vez eu coloco.