boa tarde pessoal

 

tenho uma tabela em access e estou anexando em vba dados de outras tabelas.  Nesta tabela existe um campo "sequencia" (numerico). Gostaria de saber como fazer para que uma msgbox alertasse quando existisse algum registro duplicado neste campo.

 

obrigado

Joao Carlos

Juca, você pode fazer o seguinte:

 

Realizar uma consulta para ver se este registro existe:

 

Ex;

dim rsverifica as recordset

 

set rsverifica=currentdb.openrecordset("select * from tabela where numerico=" & rsnormal("numerico")

 

if rsverifica.eof=true then

     insere registro

else

    msgbox "Registro duplicado",vbcritical,"erro"

end if