Senhores,
Boa noite!
Estou com dificuldade em acertar um filtro em um Sub Formulário.
Copiei aqui um método de preenchimento da Caixa de texto usando o código abaixo.
Private Sub btAdd_Click()
Call BoundData
Me.Recalc
End Sub
Sub BoundData()
Dim frm As Form, ctl As Control
Dim varItm As Variant
Set frm = Forms!frmListBox2
Set ctl = frm!CaixaDeListagem
Me.CaixaDeTexto = Null
For Each varItm In ctl.ItemsSelected 'eis o salvador da Pátria. Mais informações coloque o cursor no meio da palavra ItemsSelected e aperte F1.
If IsNull(Me.CaixaDeTexto) Or Me.CaixaDeTexto.Value = "" Then
Me.CaixaDeTexto = ctl.ItemData(varItm)
Else
Me.CaixaDeTexto = Me.CaixaDeTexto & "; " & ctl.ItemData(varItm)
End If
Next varItm
End Sub
O filtro funciona se faço apenas uma seleção.
Se faço a seleção de mais de uma linha na caixa de listagem não retorna nada.
Não consigo achar uma solução... preciso da ajuda dos especialistas.
Grato
Boa noite!
Estou com dificuldade em acertar um filtro em um Sub Formulário.
Copiei aqui um método de preenchimento da Caixa de texto usando o código abaixo.
Private Sub btAdd_Click()
Call BoundData
Me.Recalc
End Sub
Sub BoundData()
Dim frm As Form, ctl As Control
Dim varItm As Variant
Set frm = Forms!frmListBox2
Set ctl = frm!CaixaDeListagem
Me.CaixaDeTexto = Null
For Each varItm In ctl.ItemsSelected 'eis o salvador da Pátria. Mais informações coloque o cursor no meio da palavra ItemsSelected e aperte F1.
If IsNull(Me.CaixaDeTexto) Or Me.CaixaDeTexto.Value = "" Then
Me.CaixaDeTexto = ctl.ItemData(varItm)
Else
Me.CaixaDeTexto = Me.CaixaDeTexto & "; " & ctl.ItemData(varItm)
End If
Next varItm
End Sub
O filtro funciona se faço apenas uma seleção.
Se faço a seleção de mais de uma linha na caixa de listagem não retorna nada.
Não consigo achar uma solução... preciso da ajuda dos especialistas.
Grato
- Anexos
- frmListBox2.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (38 Kb) Baixado 21 vez(es)