Eu tenho lstPrev como uma caixa de listagem ActiveX. Possui 10 linhas de dados. Depois que o usuário seleciona uma linha (seleção única) e pressiona o botão excluir, ele deve excluir a linha correspondente em dbTable.
Sub DelRows()
Dim i As Integer
Set i = ActiveSheet.lstPrev.ListIndex + 1 'to ensure column headers are not deleted
dbTable.ListRows(i).Delete
End Sub
Primeiro, você não Setusa um valor inteiro. Seté para objetos como intervalos. Para atribuir um valor a uma variável inteira, basta fazeri =
Em segundo lugar, para se referir à sua Tabela, use ListObjects
Isso vai funcionar:
Sub DelRows()
Dim i As Integer
i = ActiveSheet.lstPrev.ListIndex + 1 'to ensure column headers are not deleted
ListObjects("dbTable").ListRows(i).Delete
End Sub
Este artigo é coletado da Internet.
Se houver alguma infração, entre em [email protected] Delete.
deixe-me dizer algumas palavras