[Resolvido]Listbox Não Atualiza

boa tarde!

Galera estou com probleminha na atualização do Listbox.

O listbox nao atualiza o item selecionado somente o primeiro alguém poderia me ajudar?

Ja tentei colocar columumn(...)
arrumar o a query
mas não vai....  

Código:

Private Sub STATUSPROG_AfterUpdate()
If Me.LISTPROG.ItemsSelected.Count > 0 Then

If MsgBox("Deseja Alterar o item " & Me.LISTPROG & " ?", _
vbQuestion + vbYesNo + vbDefaultButton2, "Confirmação") = vbYes Then

    Dim rs As DAO.Recordset
        Set rs = CurrentDb.OpenRecordset("select id_geral, programa, STATUS from PROGRAMAS where id_geral = '" & Forms!formhistorico!CODPASTA & "'")
            rs.Edit
            
                rs("STATUS") = Me.STATUSPROG
                
            rs.Update
            rs.Close
            
    MsgBox "Cadastrado com sucesso!", vbExclamation
    Me.LISTPROG.Requery

    End If
Else
MsgBox "Nenhum Item seleccionado!", vbExclamation, "Informação"
End If

  
End Sub

abraços

@marcelo

Boa tarde!

Vê se agora vai?


abraços

@marcelo Muito obg

deu certo. que falha minha esquece de mencionar a chave primaria...


abraços


segue pra quem quer a solução o que faltou no codigo

Código:

AND ID_PROGCONTR=" & Me.LISTPROG.Column(0)

marcelo tem como me ajudar?


o critério não bate,


no meu app esta o id_geral como Numero na tabela


estou tentando ajustar o criterio porem estou com dificuldade

Código:


            Set rs = CurrentDb.OpenRecordset("select id_geral, programa, STATUS " _
                                          & "from PROGRAMAS where id_geral =" & Forms!formhistorico!CODPASTA" AND ID_PROGCONTR=" & Me.LISTPROG.Column(0))

pode me ajudar por favor?

Abraços

@marcelo boa tarde!


Segue o bd para ver o que estou falando.


Até