[Resolvido]Navegação em listbox

Bom dia a todos!

Estou com a seguinte dúvida: possuo um formulário com uma listbox e alguns botões de navegação, porém estes botões navegam em todos os registros da tabela , eles não consideram apenas os resultados da listbox. Gostaria que os botões de navegação funcionassem apenas com os registros exibidos na listbox (os botões são Primeiro registro, Registro anterior, Próximo registro e último registro), desejo clicar no item da caixa de listagem e clicar no botão Próximo registro e ir para o próximo registro selecionado na listbox, e não no próximo registro pela ordem da tabela. Ficarei muito grato se puderem me ajudar. Abraços.

existe algum filtro na listbox para selecionar os registros pertinentes a ela? tanto o formulario quanto a listbox são preenchidas com base numa consulta. Você vai ter que alterar a fonte de controle do formulario para que seja a mesma da listbox. caso seja possivel, poste parte do bd para melhor analise.

Olá Rubens Couto, desde já agradeço pela boa vontade e disposição em me ajudar. Segue link do banco. O que estou querendo é que, quando escolher um dia e um mês onde haja mais de um registro listado (26 de abril, por exemplo), após clicar no primeiro item da listbox eu possa apertar o botão de próximo e navegar para o próximo registro listado, e não para o próximo registro do banco, como está atualmente. Abraços.

https://mega.nz/#!zNFjTBJR

Bom dia amigo,

seu arquivo esta criptofgrafado e vc nao disponibilizou a chave.

Bom dia a todos,

peço desculpas pela falta da chave, não estou habituado a trabalhar com o Mega. Segue. Abraços.

!GuL0ozUOzQoyXOoyzSZ6EzVMKXrsSWA-GxvkpVHEoT0

thearles


No mega, clique com o direito sobre o arquivo e escolha obter link.

Na janela que se abre, clique em Link with key (link com chave).

Então clique em copiar que o link irá para área de transferência.

Com o link na memória, coloque-o no post.

[ ]'s

Saudações,

segue o link conforme instruções do Noobezinho. Grato desde já.

https://mega.nz/#!zNFjTBJR!GuL0ozUOzQoyXOoyzSZ6EzVMKXrsSWA-GxvkpVHEoT0

Ótimo

Já baixe o aplicativo.

Vou dar uma olhada nele,ok?

[ ]'s

Obrigado, Noobezinho. Aguardo ansioso o seu parecer. Abraços.

thearles

Explique:

Para que botão de navegação na listbox,

se aparece apenas o santo do dia nela?

Aguardo...

Boa tarde Noobezinho,

nem todos os dias possuem apenas um cadastro do santo do dia, alguns, como sugeri, o dia 26 de abril, possuem mais de um (cinco, no caso), daí a necessidade. Grato.

Thearles

Aqui está o código para cada botão:

Código:


Private Sub Ir_para_anterior_Click()
If Me.Lista_de_resultados.ListIndex > 0 Then
  Me.Lista_de_resultados = Me.Lista_de_resultados.ItemData(Me.Lista_de_resultados.ListIndex - 1)
Else
  Me.Lista_de_resultados = Me.Lista_de_resultados.ItemData(Me.Lista_de_resultados.ListCount - 1)
End If
End Sub

Private Sub Ir_para_primeiro_Click()
Me.Lista_de_resultados = Me.Lista_de_resultados.ItemData(0)
End Sub

Private Sub Ir_para_próximo_Click()
If Me.Lista_de_resultados.ListIndex < Me.Lista_de_resultados.ListCount - 1 Then
  Me.Lista_de_resultados = Me.Lista_de_resultados.ItemData(Me.Lista_de_resultados.ListIndex + 1)
Else
  Me.Lista_de_resultados = Me.Lista_de_resultados.ItemData(0)
End If
End Sub


Private Sub Ir_para_último_registro_Click()
Me.Lista_de_resultados = Me.Lista_de_resultados.ItemData(Me.Lista_de_resultados.ListCount - 1)
End Sub


[ ]'s

Boa tarde a todos,

Noobezinho, o seu código funcionou perfeitamente, muito obrigado. Tenho algumas mais dúvidas sobre este banco de dados, mas abrirei outros tópicos, considero este resolvido. Valeu pela força, parabéns pelo trabalho. Grato.

Ótimo, amigo

Então, coloque o resolvido no título do tópico.

Para fazer isso, veja como, ali embaixo, na minha assinatura.

Valeu pelo retorno.

Boa sorte!