Listbox quando selecionada o listcount = 1

Amigos do fórum,

Sempre me deparo com esse "bug".

Nesse exemplo, faço um Requery para recarregar a listbox com dados de uma SQL.
Mesmo não retornando nada (era para retornar, mas está ficando vazia   ), o listcount aparece com o valor 1 e não 0 como deveria.

   With lstBancoHoras
       .RowSourceType = "Table/Query"
       .RowSource = strBancoHoras
       .Requery
       MsgBox "Registros na lista: " & .ListCount
   End With

A SQL é essa, não tem nada de errado com ela:

   strBancoHoras = "SELECT BHFuncionarioID, BHData AS Data, BHMovimento AS Movimento, BHTempo AS Tempo, BHTempoSaldo AS Saldo" & _
                   "FROM tblPontoBancoHoras " & _
                   "WHERE BHFuncionarioID=" & codigoFuncionario & _
                   "ORDER BY BHData DESC;"

No teste que estou fazendo a variável codigoFuncionario é igual a 44, pois pega o código do funcionário em uma combo.

Envio anexo o BD de exemplo.

Bom dia,

O problema era na string do SELECT.
O código do funcionario estava colado com o ORDER BY, confrome abaixo:



Inserir espaços na string para evitar o erro.


Segue o código:

Código:



Private Sub BHFuncionarioID_AfterUpdate()
    On Error GoTo Err_BHFuncionarioID_AfterUpdate
   
    codigoFuncionario = BHFuncionarioID.Column(0)
    strBancoHoras = " SELECT BHFuncionarioID, BHData AS Data, BHMovimento AS Movimento, BHTempo AS Tempo, BHTempoSaldo AS Saldo" & _
                    " FROM tblPontoBancoHoras " & _
                    " WHERE BHFuncionarioID=" & codigoFuncionario & _
                    " ORDER BY BHData DESC;"
    With lstBancoHoras
        .RowSourceType = "Table/Query"
        .RowSource = strBancoHoras
        .Requery
        '-- Alexandre Fim - Exibir cabeçalho -------
        .ColumnHeads = True
        '-------------------------------------------
        MsgBox "Registros na lista: " & .ListCount
    End With

Exit_BHFuncionarioID_AfterUpdate:
    Exit Sub
Err_BHFuncionarioID_AfterUpdate:
    Beep
    MsgBox Err.Description, vbCritical + vbOKOnly, "Erro: " & Err.Number
    Resume Exit_BHFuncionarioID_AfterUpdate
End Sub



É isso

Att,

Alexandre Fim

Realmente peguei esse erro e corrigi.
A minha dúvida era o pq de o listbox contar 1 no listcount, mesmo não tendo nenhum registro.
Pelo que observei, quando se usa o Cabeçalho da coluna ele conta 1 no listcount para o cabeçalho.




Mas blz, consegui esclarecer essa dúvida.

Valeu pessoal.

Abração!!!

Correto.
Ele conta também a linha do cabeçalho.
Para resolver, mude a instrução:

MsgBox "Registros na lista: " & .ListCount

para

MsgBox "Registros na lista: " & .ListCount -1

É isso

Att,

Alexandre