[Resolvido]Autopreenchimento em objeto não acoplado conforme critério

Galera, boa tarde!
Preciso de uma ajuda no seguinte: Tenho um campo num formulário onde é cadastrado o seguinte:
Entrada no cliente
Entrada na empresa

Preciso que num objeto não acoplado apareça 1 e -1, mais ou menos assim:
Entrada no cliente = 1
Entrada na empresa = -1

Lembrando que este campo esta na tabela como movimentação.

Desde já agradeço

Olá.

If critério Then
CaixaNãoAcoplada = 1
Else
CaixaNãoAcoplada = -1
End If

Boa tarde!
Com relação ao critério não entendi, eu preciso que o critério seja no campo movimentação, ou seja:
Se tiver cadastrado no campo movimentação "Entrada no cliente" no objeto não acoplado apareça 1
Ou se tiver cadastrado "Entrada na empresa" no objeto não acoplado apareça -1

Obrigado
    

Os critérios são os 2 textos que estais informando no post:
If Me.Movimentação = "Entrada no cliente" Then
CaixaNãoAcoplada = 1
ElseIf Me.Movimentação = "Entrada na empresa" Then
CaixaNãoAcoplada = -1
End If

Beleza, e este código eu coloco quando no evento ao abrir o formulário?

Após atualizar o campo movimentação.

Uma correção, no código que passei no penúltimo post troquei o = pelo -. Faz a alteração.

Valeu funcionou certinho
    

Congratulações do fórum pelo retorno e fechamento do tópico.