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 : 1585
    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 : 4632
    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 : 1585
    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 : 4632
    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 : 2331
    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


    .................................................................................
    [Resolvido]Avisar dados existentes Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Avisar dados existentes Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Avisar dados existentes Setinf11
    Sistemas e Tecnologia Ltda
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1585
    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 : 2331
    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 15 vez(es)


    .................................................................................
    [Resolvido]Avisar dados existentes Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Avisar dados existentes Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Avisar dados existentes Setinf11
    Sistemas e Tecnologia Ltda

    Assis gosta desta mensagem

    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1585
    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 : 2331
    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 !!


    .................................................................................
    [Resolvido]Avisar dados existentes Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Avisar dados existentes Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Avisar dados existentes Setinf11
    Sistemas e Tecnologia Ltda

      Data/hora atual: 18/5/2022, 01:06