MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Duplicidade em caixas de texto

    Compartilhe
    avatar
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 20/08/2014

    [Resolvido]Duplicidade em caixas de texto

    Mensagem  cacorei09 em 27/6/2017, 00:53

    Boa Noite Galera!!!!

    Gostaria de tirar uma dúvida:

    Possuo uma tabela chamada "permissionarios" nele possui as caixas de texto (Nome, telefone, Endereço, numero, bloco, apto)

    Gostaria de, ao digitar: Endereço, numero e apto, caso estes campos já estejam cadastrados, ao mesmo tempo, avisar que já esta cadastrado
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Duplicidade em caixas de texto

    Mensagem  FabioPaes em 27/6/2017, 14:22

    Amigo, existem algumas formas de se fazer isso... Cada forma se aplicará de acordo com suas necessidades!

    Dentre elas: Dcount() e FindFirst.

    De uma pesquisada aqui no forum que existem varias formas!
    FindFirst: [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 20/08/2014

    Duplicidade em caixas de texto

    Mensagem  cacorei09 em 28/6/2017, 01:03

    Boa noite amigo Fabio

    É sempre bom falar com você

    Não entendi muito o exemplo. Mandei para o seu e-mail o meu BD para que possa dar uma olhada e tirar minha duvida.

    Após isso, explicarei aqui como foi resolvido.
    avatar
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 20/08/2014

    duplicidade em caixas de texto

    Mensagem  cacorei09 em 3/7/2017, 22:24

    Obrigado amigo Fabio

    Mais uma vez você me salvou.

    A solução foi:

    No evento apos atualizar do campo txtApto coloque esse codigo:


    Private Sub txtApto_AfterUpdate()

    Dim F As String
    F = Nz(DCount("*", "tbl_permissionario", "Endereco = " & Me.Endereco & " AND Numero = " & Me.Numero & " AND Bloco = " & Me.Bloco & " AND Apto = " & Me.Apto & ""), 0)
    If F > 0 Then
    MsgBox "Atenção, ja existe alguem nesse endereço!!! Verifique!!! ", vbCritical, "A T E N Ç A O"
    End If

    End Sub
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Duplicidade em caixas de texto

    Mensagem  FabioPaes em 4/7/2017, 13:35


    Grato pelo retorno amigo, até a próxima se Deus Quiser!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: 25/9/2018, 04:57