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 : 116
    Registrado : 20/08/2014

    [Resolvido]Duplicidade em caixas de texto

    Mensagem  cacorei09 em Ter 27 Jun 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 : 3422
    Registrado : 14/08/2013

    Re: [Resolvido]Duplicidade em caixas de texto

    Mensagem  FabioPaes em Ter 27 Jun 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 : 116
    Registrado : 20/08/2014

    Duplicidade em caixas de texto

    Mensagem  cacorei09 em Qua 28 Jun 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 : 116
    Registrado : 20/08/2014

    duplicidade em caixas de texto

    Mensagem  cacorei09 em Seg 03 Jul 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 : 3422
    Registrado : 14/08/2013

    Re: [Resolvido]Duplicidade em caixas de texto

    Mensagem  FabioPaes em Ter 04 Jul 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: Qua 22 Nov 2017, 20:10