MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 629
    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 em Qua 15 Jul - 0: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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1063
    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 em Qua 15 Jul - 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 629
    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 em Qua 15 Jul - 21:40

    Perfeitamente Celso Roberto, mais uma.

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1063
    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 em Qua 15 Jul - 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.....

      Data/hora atual: Seg 28 Set - 9:19