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]Desmarcar registo selecionado na listBox ao clikar Não em MsgBox

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3536
    Registrado : 06/11/2009

    [Resolvido]Desmarcar registo selecionado na listBox ao clikar Não em MsgBox

    Mensagem  Assis em 5/6/2018, 13:11

    Boa tarde Amigos

    Uso este código numa ListBox para alterar o valor de um campo Sim/Não.

    Sempre que clico um registo fica selecionado, e abre a MsgBox

    Queria que quando clicar em "Não" na MsgBox, a ListBox ficasse sem nenhum registo selecionado



    If MsgBox("Confirma a Conciliação deste Movimento ?" & vbCrLf & lst_1.Column(1) & vbCrLf & lst_1.Column(3) & vbCrLf & lst_1.Column(4) & vbCrLf & Format(lst_1.Column(9), "#,##0.00 ?") & " ?", vbYesNo, "" & DLookup("[Programa]", "Proprietario") & " " & DLookup("[Tipo]", "Proprietario")) = vbYes Then
    If Me.lst_1.Column(Cool = True Then
    CurrentDb.Execute "UPDATE tblmovimento SET Reconciliado=false WHERE idmovimento =" & lst_1.Column(0) & ";"
    ElseIf Me.lst_1.Column(Cool = False Then
    CurrentDb.Execute "UPDATE tblmovimento SET Reconciliado=True WHERE idmovimento =" & lst_1.Column(0) & ";"
    Me.lst_1 = -1
    End If
    Me.Refresh
    Me.Recalc
    Call Form_Current
    Else
    End If

    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

    Re: [Resolvido]Desmarcar registo selecionado na listBox ao clikar Não em MsgBox

    Mensagem  CassioFabre em 5/6/2018, 18:36

    Boa tarde,

    Basta que atribua um valor negativo à listbox no momento correto:
    Código:
    If MsgBox("Confirma a Conciliação deste Movimento ?" & vbCrLf & lst_1.Column(1) & vbCrLf & lst_1.Column(3) & vbCrLf & lst_1.Column(4) & vbCrLf & Format(lst_1.Column(9), "#,##0.00 ?") & " ?", vbYesNo, "" & DLookup("[Programa]", "Proprietario") & " " & DLookup("[Tipo]", "Proprietario")) = vbYes Then
       If Me.lst_1.Column(8) = True Then
          CurrentDb.Execute "UPDATE tblmovimento SET Reconciliado=false WHERE idmovimento =" & lst_1.Column(0) & ";"
       ElseIf Me.lst_1.Column(8) = False Then
          CurrentDb.Execute "UPDATE tblmovimento SET Reconciliado=True WHERE idmovimento =" & lst_1.Column(0) & ";"
          Me.lst_1 = -1
       End If
       Me.Refresh
       Me.Recalc
       Call Form_Current
    Else
       Me.lst_1 = -1
    End If


    .................................................................................
    Só não tem código pra morte!
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6988
    Registrado : 05/11/2009

    Re: [Resolvido]Desmarcar registo selecionado na listBox ao clikar Não em MsgBox

    Mensagem  Alexandre Neves em 5/6/2018, 19:56

    Boa tarde, Assis
    Eliminei o outro tema que era a repetição deste


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3536
    Registrado : 06/11/2009

    Re: [Resolvido]Desmarcar registo selecionado na listBox ao clikar Não em MsgBox

    Mensagem  Assis em 5/6/2018, 20:39

    Obrigado Cassio

    Funciona perfeito


    Alexandre, não reparei na repetição. Estava a tentar postar e deu a informação de "Manutenção", e não reparei que tinha postado.

    Deve ter sido isso.

    Peço desculpa e Obrigado


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: 22/10/2018, 20:07