[Resolvido]Verificar registros antes de gravar

Salve, salve galerinha...
Em primeiro lugar, gostaria de agradecer ao forum pois estou aprendendo cada dia mais, e antes, nao queria saber de BD e hoje já consigo entender algumas coisinhas. Estou engatinhando ainda, mas, espero um dia estar tirando dúvidas aki...
Mas vamos lah para o meu problema...

Estou fazendo aki um controle de ponto onde tenho a tabela de promotores, e a tabela de horario...

Meu form estão com as combox desvinculadas e estao salvando o registro na tabela com o botao salvar;
Digamos que tenho o promotor com o codigo 5, ele chega hoje (22/05/2012) e bate o ponto, logo irá gravar na tabela horario o seguinte:
codigo= 5
data = 22/05/2012
horaent= 07:59

Logo chega o promotor com o codigo 6 e tambem bate o ponto
codigo = 6
data = 22/05/2012
horaent= 08:00

Porem o esquecido do promotor 5 vem e tenta bater novamente o ponto dele, como fazer para o sistema dizer que já foi batido o horario do mesmo?

Lembrando que hoje está gravando tudo certinho, porem, estah deixando repetir os registros fazendo o mesmo ter varias batidas no mesmo dia...

Obrigado pela ajuda desde jah;

Olá, boa noite,
E se o funcionário estiver mesmo saíndo..? Pois ele pode entrar 7:59 e por algum motivo pode ter que sair as 8:15...
Como você trataria isso?

Então Marcelo David, eu tenho outro botão para saida onde grava em um outro campo, entao, nele eu colocaria o mesmo tratamento da entrada, pq a lógica é a mesma.

Obrigado

Eneas

Poste aqui a sua BD, ou só a tabela aonde regista as entradas e o formulário de registar

Tai o projeto...
Obrigado

Teste

Ponha no formulario FormEntA no botão registar logo a seguir

Private Sub SALVENTA_Click()

If Nz(DCount("*", "Tabponto", "[Codprom03]=" & Me.txcodpromenta & " And [Data03]=#" & Me.txdata03A & "#"), 0) >= 1 Then
MsgBox "Já Existe Marcação para este Dia "
Exit Sub
End If

Assis ficou perfeito, posso pedir mais um favor, tem como explicar a sintaxe do comando?


Obrigado amigo

Obrigado pelo retormo

Agora faz o mesmo para as saidas e só muda o nome das tabelas e dos campos

Vermelho Nome da tabela
Azul nome do campo na tabela
Verde nome do campo no form

If Nz(DCount("*", "Tabponto", "]Codprom03]=" & Me.txcodpromenta & " And ]Data03]=#" & Me.txdata03A & "#"), 0) >= 1 Then

Os nomes eu entendi...
Soh nao entendi o seguinte
If Nz(DCount("*", "Tabponto", "[Codprom03]=" & Me.txcodpromenta & " And [Data03]=#" & Me.txdata03A & "#"), 0) >= 1 Then

depois do Dcount o "*" e depois do "tabponto", " os & e #

Desculpe minha ignorancia mas, eh q se a gente saber realmente o q qr dizer cada comando, fica mais facil entender;
Copiar e colar eh facil, o dificil eh entender...
rsrsrsrs

Obrigado amigo;

Obrigado a todos os amigos do forum, me ajudou e muito... Parabéns a todos;