[Resolvido]Criar uma caixa de texto e colocar uma fórmula para não repetir dados

Olá,

Como faço para criar uma caixa de texto e colocar uma fórmula para não repetir dados.

Ao inserir um novo dado surja a mensagem que este valor já existe (para não ter dados repetido).

Observação:
Eu já sei fazer esse procedimento em "Caixa de Combinação".
Nesse caso eu coloco o código VBA na opção "Se não estiver na Lista".

Uso Access 2019.

Olá,

Quando você diz "repetido" é por que já existe em alguma tabela?
É isso?

Olá. Alexandre Fim

É isso mesmo.

Não quero ter dados duplicado.

Boa tarde tombr300 veja se é isto que pretende

https://www.maximoaccess.com/t30940-resolvidoalerta-de-nome-repetido

Tom,

Você pode fazer da seguinte forma:

- crie um botão (cmdOK) para gravar os dados e no evento "AoClicar", cole o seguinte código:

Código:



Private Sub cmdOK_Click()

    If ValidaCampos = False Then
        MsgBox "Já existe registro cadastrado com o valor do campo.", vbExclamation, "Aviso"
        Exit Sub
    Else
    '========================================================================'
    ' Executa comando para gravar dados na tabela
    '========================================================================'
    End If

End Sub



No mesmo formulário, insira o seguinte código:

Código:




'função que verifica se já existe registro com o campo do formulario cadastrado
Public Function ValidaCampos() As Boolean

On Error GoTo trata_erro
Dim sSQL                As String
Dim DB                  As DAO.Database
Dim rs                  As DAO.Recordset


    Set DB = CurrentDB
    ValidaCampos = True
   
    sSQL = "SELECT COUNT(*) as tot_reg FROM Nome_Tabela"
    sSQL = sSQL & " WHERE Nome_Campo_Tabela = '" & Trim(Nome_Campo_Formulario) & "' "
    Set rs = DB.OpenRecordset(sSQL)
   
    If rs("tot_reg") > 0 Then
        ValidaCampos = False
    End If
   
    rs.Close
    Set rs = Nothing

    Exit Function

trata_erro:

    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Function

End Function




OBS: Não se esqueça de substituir "Nome_Tabela", "Nome_Campo_Tabela", "Nome_Campo_Formulario" pelos respectivos campos.

Espero ter ajudado.

Boa sorte

Olá, Alexandre Fim

Muito obrigado pela ajuda.

Infelizmente não deu certo.

Boa tarde,

tente esse código na propriedade Antes de atualizar,

agradecimentos ao Jpaulo.

Código:


Private Sub Clube_BeforeUpdate(Cancel As Integer)

    On Error Resume Next
    Dim Busca As String
    Dim stLinkCriteria As String
    Dim rsc As DAO.Recordset

Busca = Me!Clube.Value
stLinkCriteria = "Clube= '" & Busca & "'"
If DCount("Clube", "TabGeral", stLinkCriteria) > 0 Then
Me.Undo
Cancel = True
MsgBox "Atenção, Clube " + vbCrLf & Busca & vbCrLf + " já existe.", vbInformation, "Duplicado"

End If
Set rsc = Nothing



End Sub


Olá, Carvalho

Deu certo agora.

Muito obrigado.

O fórum agradece o retorno.