[Resolvido]Comparar dados

saudações a todos,

peço encarecidamente a vossa ajuda na seguinte situação:
pretendo validar os campos dataentra e codigobarrafun, ou seja, um determinado funcionário não pode efectuar dois registo no mesmo dia.e negar o registo caso o codigobarrafun do funcionário não for cadastrado. mas quando tento implementar o codigo abaixo não guardar registo na tabela registoentrada. Onde estou a errar!

segue o banco de dados em anexo.

Private Sub txtCodBarra_AfterUpdate()
Dim db As DAO.Database
   Dim rst As DAO.Recordset
   'abre o recordset da tabela
Set rst = CurrentDb.OpenRecordset("Select * from tbl_RegistoEntrada")

   'If DCount("[CodigoBarraFun]", "tbl_Funcionarios", "[CodigoBarraFun]= " & Me.txtCodBarra & "") = 0 Then
   '    MsgBox "Código não cadastrado...", vbCritical, "Aviso"
    '   Me.txtCodBarra.Value = ""
    '   Me.txtCodBarra.SetFocus

       If DataEntrada <> Me.txtDataActual And CodigoBarraFun = Me.txtCodBarra Then
   
           MsgBox "Registro efectuado com sucesso...", vbInformation, "Informação"
           Me.txtCodBarra.Value = ""
       Else: If DataEntrada = Me.txtDataActual And CodigoBarraFun = Me.txtCodBarra Then MsgBox "Registo negado", vbInformation, "Informação"
           Me.txtCodBarra.Value = ""
       
       End If
   
 '  End If
End Sub


desde já agradeço.

Bom dia!

Mais não vejo em nenhuma parte do código uma consulta de inserção de dados.

Código:

CurrentDb.Execute "INSERT INTO TabTeste (CampoTeste) VALUES (" Variável ")"

Olá Mary,

Eu preservei o formulário existente e criei um novo com algumas função de validação, verificação e gravação de dados.
O código está comentado para que vc compreenda melhor o que cada procedimento executa.

Espero ter ajudado.

Att,

Alexandre

muito obrigado pela ajuda e aprendizagem Alexandre, está a funcionar!!!
só faltou validar no txtcodigoBarraFun, se o códigobarra não existe na tabela funcionários retornar uma mensagem e negar o registo.
vou tentar quebrar a cabeça para resolver este detalhe.

Obrigado!

grato a todos, consegui resolver com a função DLookup.

Parabens Mary,

Boa sote.

Um abraço