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


    [Resolvido]Aviso de duplicidade mesmo não estando cadastrado no Banco

    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 749
    Registrado : 11/12/2017

    [Resolvido]Aviso de duplicidade mesmo não estando cadastrado no Banco Empty [Resolvido]Aviso de duplicidade mesmo não estando cadastrado no Banco

    Mensagem  Ismael Silva 15/7/2020, 00:58

    Boa noite,

    Como eu posso fazer para que o sistema me gere um aviso se caso, eu selecionar um item, antes já selecionado?

    Ex:

    Tenho um Form com Subform, de saída de materiais, então no sub se eu inserir o 1 item(Sapato), ok, mas se caso eu selecionar novamente no sub o mesmo item(sapato), queria que me desse um alerta que eu já selecionei esse item.

    Obs: Eu não terei salvo ainda na tabela, o descrito acima.

    Se alguém tiver uma solução, agradeço.

    Talvez até tenha aqui no fórum, mas talvez eu não soube procurar da maneira correta.
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 01/03/2014

    [Resolvido]Aviso de duplicidade mesmo não estando cadastrado no Banco Empty Re: [Resolvido]Aviso de duplicidade mesmo não estando cadastrado no Banco

    Mensagem  Celso Roberto 15/7/2020, 21:23

    Olá..

    No evento antes de atualizar do campo que insere os itens, adapte este exemplo abaixo.

    Código:
    Private Sub CboCondicaoPagto_BeforeUpdate(Cancel As Integer)
       
      Dim frm As Recordset

        Set frm = Me.RecordsetClone
        With frm
        .FindFirst "CondicaoPagto='" & Me.CboCondicaoPagto & "'"
            If Not .NoMatch Then
              MsgBox "Já existe um lançamento Com esta Condição" & Chr(10) & "" & "Altere o Lançto !! ", vbExclamation + vbDefaultButton2, "ATENÇÂO"
              Cancel = True
              Me.CboCondicaoPagto.Undo         
            End If
        End With
        Set frm = Nothing
     
    End Sub


    Aguardamos retorno

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 749
    Registrado : 11/12/2017

    [Resolvido]Aviso de duplicidade mesmo não estando cadastrado no Banco Empty Re: [Resolvido]Aviso de duplicidade mesmo não estando cadastrado no Banco

    Mensagem  Ismael Silva 15/7/2020, 21:40

    Perfeitamente Celso Roberto, mais uma.

    Resolvido, e muito obrigado pela a ajuda.
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 01/03/2014

    [Resolvido]Aviso de duplicidade mesmo não estando cadastrado no Banco Empty Re: [Resolvido]Aviso de duplicidade mesmo não estando cadastrado no Banco

    Mensagem  Celso Roberto 15/7/2020, 21:46

    Olá..

    cheers cheers

    Obrigado pelo Retorno

    Abraços e sucesso



    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    Conteúdo patrocinado

    [Resolvido]Aviso de duplicidade mesmo não estando cadastrado no Banco Empty Re: [Resolvido]Aviso de duplicidade mesmo não estando cadastrado no Banco

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 13/5/2021, 10:03