[Resolvido]Gerar códigos

Boa Noite, pessoal!

Eu tenho no meu formulário um botão "gerar código" que, ao clicar, gera códigos aleatórios:
Funciona perfeitamente. O problema é que às vezes ele repete códigos que já foram gerados.
O que é preciso mudar no código abaixo pra solucionar este problema?

Grato a todos!

Private Sub btGerarCodigo_Click()

Dim cBarras

cBarras = Int((99999#) * Rnd)
txtCodigoBarras = "0404" & cBarras
CodigoBarras = Me.txtCodigoBarras

End Sub

Boa noite,

Copie e cole o código abaixo e faça os testes. Acredito que vai funcionar

Código:




Private Sub btGerarCodigo_Click()
On Error GoTo trata_erro
Dim cBarras
Dim blnOK As Boolean

    blnOK = True
   
    Do While blnOK = True
        cBarras = Int((99999#) * Rnd)
        txtCodigoBarras = "0404" & cBarras
        If DCount("*", "NOME_DA_TABELA", "NOME_DO_CAMPO = '" & Trim(txtCodigoBarras) & "'") > 0 Then
            blnOK = True
        Else
            blnOK = False
            Exit Do
        End If
    Loop
   
    CodigoBarras = Me.txtCodigoBarras
   
    Exit Sub
trata_erro:
    MsgBox "Erro ocorrido: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Sub

End Sub



Substitua NOME_DA_TABELA pelo nome da tabela a ser pesquisada.
Substitua NOME_DO_CAMPO pelo nome do campo a ser pesquisado.


É isso

Att,

Alexandre Fim

Perfeito!

Obrigado Alexandre..

Já guardei o código no meu arquivo.

Valeu Dori,

O fórum agradece.

Boa sorte e sucesso