[Resolvido]Caixa de listagem.

Amigos,

Gostaria de um help com algo que me possibilitasse excluir informação de uma Caixa de Listagem teclando 'Delete' e automaticamente atualizar a lista.

Grato...

Clynton

Se a caixa de listagem recebe os dados de uma tabela:
Delete o registro via código ou consulta exclusão da tabela e logo abaixo
faça um requery na caixa de listagem(reconsulta).


Abraços

NB

Sim Noobezinho, a caixa recebe dados de uma tabela, poderia me dar o caminho das pedras para fazer o que disseste?

Eis um exemplo

No evento Ao apertar tecla da caixa de listagem,coloque o seguinte código:
Para que o código abaixo funcione, a primeira coluna da caixa de listagem tem que ser do código( id). mas ele não precisa aparecer
na listagem, a coluna poder ficar com 0 cm de largura.

Código:


Private Sub NomecaixaListagem_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 46 Then ' se for a tecla delete que foi pressionada
   If MsgBox("Deseja deletar esse registro?", vbQuestion + vbYesNo, "Deletar registro") = vbYes Then
      DoCmd.SetWarnings False
      DoCmd.RunSQL "DELETE  NomeTabela.id " & _
                   "FROM NomeTabela " & _
                   "WHERE NomeTabela.id= " & me!NomeCaixaListagem
      DoCmd.SetWarnings True
      Me.NomeCaixaLisagem.Requery
      
   End If
End If



Nb

Valeu Noobezinho...
...só precisei tirar o [Me] desta linha: "WHERE (((NomeTabela.id)=[me].[NomeCaixaListagem));"

Abraço...

Realmente, eu esqueci de arrumar essa parte do código.

Agora já editei e arrumei o post anterior.

Legal que deu certo !

Valeu pelo retorno

Boa sorte !!

Nb

Noobezinho, colocando do jeito que você falou, aparece uma caixa solicitando a inserção de um valor.
Coloquei assim: "WHERE (((Tab_Nome.Código)=(Lista0)));"