[Resolvido]Selecionar todos registro da Caixa de Listagem - sem ChekBox.

Prezados Senhores,
Preciso da ajuda de vocês.

No BD em anexo no Formulário FrmListBoxExemplo tem o botão (em vermelho) "Selecionar Todas Linhas" que deveria selecionar todos registros da Caixa de Listagem logo acima (CaixaDeListagemLinhas).
Já tentei algumas alternativas mas sem sucesso!

Obrigado!!

Boa tarde,
Coloque

Código:

Private Sub btnAllLinhas_Click()
    Dim Linha As Integer
    For Linha = 1 To CaixaDeListageMLinha.ListCount - 1
        CaixaDeListageMLinha.Selected(Linha) = True
    Next
End Sub


Alexandre,
Obrigado pela rápida resposta!!!!

Deu erro de sintaxe.

Opsss.

Tirando o resolvido! (Sorry)

É estranho, aqui funciona

Estranho Alexandre!

De qualquer forma, você deu o caminho.
Fiz como está abaixo e funcionou. Será que tem alguma coisa a ver com versão do Access?

Private Sub btnAllLinhas_Click()
Call SelecionaAllLinhas
End Sub

Function SelecionaAllLinhas()
Dim Linha As Integer
For Linha = 1 To CaixaDeListageMLinha.ListCount - 1
CaixaDeListageMLinha.Selected(Linha) = True
Next
End Function


Obrigado pelo caminho que me mostrou.

Bom dia,

Ainda bem que resolveu mas o código é igual, não vejo diferença

Utilize função quando devolve algum resultado, quando não devolve é procedimento e utilize Sub