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....
abraços
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
- Anexos
- TESTENOVO.zip
- s
- Você não tem permissão para fazer download dos arquivos anexados.
- (216 Kb) Baixado 3 vez(es)
Última edição por maguim em 26/10/2018, 19:21, editado 3 vez(es)