Oi amigos!

Como faço para evitar que seja gravado em duplicidade um determinado valor

usando o código:

    Dim vcodigo As Double
    rssequencia.Index = "Tabela"
    rssequencia.Seek "=", "protocolo"
    vcodigo = rssequencia![Proximo valor]
    protocolo.Text = vcodigo
    protocolo.Text = LPad(protocolo.Text, 7, 0)
    rssequencia.Edit
    rssequencia![Proximo valor] = vcodigo + 1
    rssequencia.Update

 

Como o meu aplicativo é acessado via rede por vários usuários está ocorrendo

duplicidade do número de protocolo. Como resolver isto usando o código acima?

Como evitar a duplicidade? Teria como fazer com que se dois usuários forem

gravar na mesma tabela o aplicativo fazer com que seja um de cada vez?

 

Caroline-POA/RS.

Olha, paraevitar esse tipo de problema eu geralmente utilizo uma tabela para guardar os valores de chave que não podem ser duplicados. Quando vou definitivamente gravar na tabela principal eu apenas pego o valor da chave nessa tabela de parâmetros, dou um update somando um no "código" e gravo a tabela de parâmetros com o próximo. E utilizo o que peguei para gravar na principal.