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

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( = True Then
CurrentDb.Execute "UPDATE tblmovimento SET Reconciliado=false WHERE idmovimento =" & lst_1.Column(0) & ";"
ElseIf Me.lst_1.Column( = 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

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

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

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