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.
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.
- Anexos
- BancoExemplo.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (39 Kb) Baixado 5 vez(es)