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 : 1594
    Registrado : 18/07/2010

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

    Mensagem  Agravina Dom 27 Jun 2021, 8:06 am

    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 : 4730
    Registrado : 06/11/2009

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

    Mensagem  Assis Dom 27 Jun 2021, 8:19 am

    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 : 1594
    Registrado : 18/07/2010

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

    Mensagem  Agravina Dom 27 Jun 2021, 9:27 am

    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 : 4730
    Registrado : 06/11/2009

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

    Mensagem  Assis Dom 27 Jun 2021, 6:23 pm

    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 : 2683
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim Seg 28 Jun 2021, 9:03 am

    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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  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 : 1594
    Registrado : 18/07/2010

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

    Mensagem  Agravina Seg 05 Jul 2021, 8:46 am

    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 Qui 08 Jul 2021, 12:49 pm

    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 Qui 08 Jul 2021, 12:52 pm, 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 : 2683
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim Qui 08 Jul 2021, 3:49 pm

    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 17 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  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 : 1594
    Registrado : 18/07/2010

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

    Mensagem  Agravina Sex 09 Jul 2021, 5:26 am

    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 : 2683
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim Sex 09 Jul 2021, 10:15 am

    Valeu Alexandre cheers cheers

    O fórum agradece !!!

    Sucesso !!


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Avisar dados existentes Setinf11
    Sistemas e Tecnologia Ltda

      Data/hora atual: Seg 28 Nov 2022, 10:02 am