MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

4 participantes

    [Resolvido]Avisar dados existentes

    Agravina
    Agravina
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1573
    Registrado : 18/07/2010

    [Resolvido]Avisar dados existentes Empty [Resolvido]Avisar dados existentes

    Mensagem  Agravina 27/6/2021, 13:06

    Bom dia

    Como eu faço para ao salvar indentificar que os dados já existenten na tabela ,baseado em 3 campos?

    campo1
    campo2
    campo3

    serão forem identicos emitir aviso
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4485
    Registrado : 06/11/2009

    [Resolvido]Avisar dados existentes Empty Re: [Resolvido]Avisar dados existentes

    Mensagem  Assis 27/6/2021, 13:19

    Teste assim, mudar nomes

    Dim rs As DAO.Recordset
    Dim sql as string

    Sql = ("select * from Suatabela where campo1 = " & campoform1 & " and campo2 = " & campoform2 & " and campo3 = " & campoform3 ) ' aqui vai verificar os campos do registo
    Set rs = CurrentDb.OpenRecordeset(sql)

    If rs.recordcount = 1 then
    Msgbox" registo ja existe"
    Me.undo
    Else
    Deixa inserir registo
    End If


    .................................................................................
    *** Só sei que nada sei ***
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1573
    Registrado : 18/07/2010

    [Resolvido]Avisar dados existentes Empty Re: [Resolvido]Avisar dados existentes

    Mensagem  Agravina 27/6/2021, 14:27

    da erro nesta linha

    Set rs = CurrentDb.OpenRecordeset(sql)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4485
    Registrado : 06/11/2009

    [Resolvido]Avisar dados existentes Empty Re: [Resolvido]Avisar dados existentes

    Mensagem  Assis 27/6/2021, 23:23

    Boa noite
    Quer postar a tabela e o formulário


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1772
    Registrado : 13/12/2016

    [Resolvido]Avisar dados existentes Empty Re: [Resolvido]Avisar dados existentes

    Mensagem  Alexandre Fim 28/6/2021, 14:03

    Bom dia,

    Passando aqui apenas para uma observação. Está faltando as aspas no final da instrução:

    Sql = ("select * from Suatabela where campo1 = " & campoform1 & " and campo2 = " & campoform2 & " and campo3 = " & campoform3 & "" )



    É isso!

    []'s

    FIM
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1573
    Registrado : 18/07/2010

    [Resolvido]Avisar dados existentes Empty Re: [Resolvido]Avisar dados existentes

    Mensagem  Agravina 5/7/2021, 13:46

    Não deu certo
    Anexos
    [Resolvido]Avisar dados existentes AttachmentNovo(a) Microsoft Access Banco de Dados.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (35 Kb) Baixado 7 vez(es)
    avatar
    roberto alencar
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 06/12/2015

    [Resolvido]Avisar dados existentes Empty Resolvi com Dlookup

    Mensagem  roberto alencar 8/7/2021, 17:49

    Funcionou (Access 97)!
    Código:

    Private Sub usuário_AfterUpdate()
       If NewRecord And Len(DLookup("Usuário", "tbl_users", "Usuário = forms.frm_users.usuário.text")) > 0 Then
          MsgBox ("Esse usuário já foi cadastrado")
          Me.Undo
       End If
    End Sub


    Última edição por roberto alencar em 8/7/2021, 17:52, editado 1 vez(es) (Motivo da edição : formatação melhor)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1772
    Registrado : 13/12/2016

    [Resolvido]Avisar dados existentes Empty Re: [Resolvido]Avisar dados existentes

    Mensagem  Alexandre Fim 8/7/2021, 20:49

    Olá,

    Segue exemplo com as devidas validações.

    Faça o teste e qualquer problema nos retorne.

    []'s

    FIM
    Anexos
    [Resolvido]Avisar dados existentes AttachmentExemplo_v1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (56 Kb) Baixado 13 vez(es)

    Assis gosta desta mensagem

    Agravina
    Agravina
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1573
    Registrado : 18/07/2010

    [Resolvido]Avisar dados existentes Empty Re: [Resolvido]Avisar dados existentes

    Mensagem  Agravina 9/7/2021, 10:26

    Perfeito obrigado Alexandre Fim!

    Alexandre Fim gosta desta mensagem

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1772
    Registrado : 13/12/2016

    [Resolvido]Avisar dados existentes Empty Re: [Resolvido]Avisar dados existentes

    Mensagem  Alexandre Fim 9/7/2021, 15:15

    Valeu Alexandre cheers cheers

    O fórum agradece !!!

    Sucesso !!

      Data/hora atual: 18/9/2021, 17:44