[Resolvido]Traduzir um comando do excel para o VBA

Bom dia.
Tenho um desafio enorme. Estou transformando uma planilha em tabelas, formulários e relatórios. Porém não estou conseguindo traduzir uma linha de função do excel para o access. A idéia é que seja verificada a informação a partir da linha de cima, ou seja, se o cadastro for na linha 30 (da tabela de ocorrencia), preciso que seja verificado se essa informação já consta na tabela, mas somente da linha 29 até 1 e assim sucessivamente.
Outra informação importante é a condição: Se já for encontrado registro anterior referente a determinada pessoa, a resposta é "0" (zero), se houver registro, porem não está vinculado à pessoa (funcionário) da atual ocorrência a resposta é 0,5. Caso contrário o resultado é 2.
A Planilha já possui uma linha de função e gostaria de traduzi-la para o VBA ou construtor de expressão, alguém poderia me ajudar?
=SEERRO(SE(L3="";"-";SE(PROCV(L3;'EMPRESAS IDENTIFICADAS ANT'!$A$5:$C$519;1;0)=L3;"SIM";"NÃO")); "Verificar")
Um forte abraço a todos.

No Ms Access o SEERRO é IsError, o PROCV é DLookup;

Só montado conseguimos encontrar o que pretende.

Boa noite.
Ufa depois de um longo tempo se acessar voltei. Então J.P. eu tenho duas tabelas, uma delas é a tabela que gera ocorrências, a segunda é resultado de uma consulta de acréscimo, tendo como origem a primeira tabela.
O objetivo da tabela ocorrência é captar dados de funcionários que apresentam objetos que infringem determinada legislação. Para apuração dos dados seguimos a seguinte regra: Prova nova, ganha 1,0 ponto, prova já apresentada pelo funcionário não ganha pontos, se a prova for nova para o funcionário, porém já existe registro anterior ganha apenas 0,5 ponto.
Essa regra nos obriga a fazer uma pesquisa prévia se já foi apresentada prova anterior e quem a apresentou. Hoje inserimos duas chaves para essa tarefa, matrícula concatenada com a chave primária da empresa responsável pela infração legal.
Eu criei um botão para calcular, mas não consegui terminar.
Grato pela atenção e carinho.

Detalhe por favor com os nomes corretos, do formulario ou consulta deseja esse tal de calculo.

Bom dia J.P.
O cálculo será realizado no formulário ocorrência (tabela Ocorrencia/formulário FOcorrencia) com a seguinte idéia:

As chaves que serão "transportadas" para a consulta de acréscimo são: "TxtOperadorMat" e "TxtClienteMat", ambas são resultado da concatenação da chave primária da empresa (CboxOperador e IdClienteOperador) com o número de matrícula do funcionário (CboxMatricula). Esses campos encontram-se no campo superior direito do formulário. Acima desses campos estão os campos POperador e PCliente recebem a pontuação gerando um resultado final de total de pontos da ocorrencia (TxtPontos).

A idéia é que no momento do cadastro da ocorrência se faça uma busca na tabela ParticipacaoAnterior para saber se a prova já foi apresentada pelo funcionário em outros momentos, no caso positivo ganha 0,0 ponto, caso contrário pode ganhar 0,5 ponto se outro funcionário já tiver apresentado a empresa ou 1,0 se for empresa nova.

A atualização da tabela ParticipacaoAnterior será realizada através do botão novo registro.

Faço um lembrete: eu cheguei a fazer os cálculos nos campos IdClienteOperador e IdOperador no evento ao sair, porém sem sucesso. Os códigos continuam ativos. No rodapé tem um botão com o nome BtnOperadora que comecei a trabalhar no código, mas deu um nó na cabeça e corri aqui para o Fórum.

Espero que tenha sido claro nas palavras é mais fácil falar a escrever rsrs.

Antecipo minha gratidão pela ajuda.

Você pode usar algo assim;

' Concatena o campo da empresa com a matrícula. Esse campo será usado
'para buscar se o funcionário já apresentou prova dessa empresa antes
Me.TxtOperadorMat = IdOperador & "-" & IdMatricula
Me.TxtClienteMat = IdClienteOperador & "-" & CboxMatricula

If DCount("[TxtOperadorMat]", "PartipacaoAnterior", "[TxtOperadorMat]='" & Me.TxtOperadorMat & "'") > 0 Then

Bom dia J.P.
Deu certinho. Muito obrigado pela ajuda.
Um dia eu chego lá rsrsrs

Obrigado pelo retorno o forum agradece.