[Resolvido]Erro ao verificar se ja existe algum registo igual

Boa tarde pessoal,
Estou com um problema, eu tenho um formulario onde calculo um valor e quero passar esse valor para a tabela, mas apenas se esse valor ainda nao existir na tabela. ja fiz de diversas maneiras e deu sempre erro.
Alguem consegue ajudar-me?

Cumprimentos,
Joel Coutinho

Boa tarde,

Ficou extremamente vago qual o valor que está querendo passar ou a qual tabela se refere, seja mais claro para que possamos ajudar.

Mas a principio eu sugeriria inserir antes do procedimento que passar o valor para a tabela o seguinte:

Código:

If DCount("qualquerCampoTabela", "nomeTabela", "campoTabela = " & campoFormulario & "") = 0 Then
    'Procedimento que salva os dados na tabela
End if

Retorne o resultado.

Abraço.

Bom dia cassio,

Eu estava a tentar verificar se na tabela ja existia o registo do mes que quero passar se existir quero atualizar o campo "Dias" se nao existir quero quero que insira os dados a tabela.
Entretanto mudei o tipo de dados na tabela e ja funciona. Tenho mais uma duvida, eu estou a inserir no campo do formulario Texto54 uma data correspondente ao mes que quero verificar para calcular o numero de dias uteis, nao existe uma forma de o que escrevo nesse campo ser pre-defenido ou seja, eu neste momento insiro 20/10/2016, mas o que eu quero inserir é 20/MesEscolhido/AnoEscolhido

Cumprimentos,
Joel Coutinho

Bom dia,

Pode reformular sua pergunta de forma mais clara, por favor?

Abraço.

No formulario, eu escolho um mes e ele calcula-me os dias de trabalho que tenho nesse mes, o que eu faço ao alterar o mes, é colocar na minha caixa de texto Texto54 uma data que eu tenho definida como 20/10/2016 para o mes 10, 20/11/2016 para o mes 11, etc. A minha questão é se eu ao escolher o mes (e se possivel o ano) ele coloca no campo data o mes e o ano correspondente ao que eu escolhi, eu digo que o dia pode ser semrpe 20, mas o mes é
o que eu escolho, e o ano tambem serei eu a escolher.

O que eu fiz foi:

Código:


Private Sub Mees_Change()
Me.Texto54 = "20-" & Mees & "-" & Ano & ""
DoCmd.RunCommand acCmdRefresh
End Sub


Está a funcionar.

Cumprimentos,
Joel Coutinho

Boa tarde,

O fórum agradece o retorno. Não se esqueça de marcar o tópico como resolvido.