Listbox - Selecionando Itens

[Girréis]

Bom dia, amigos

Gostaria de saber como faço para implementar em uma listbox, que busca dados de um banco de dados e os dados já estão atualizados, um código que ao selecionar determinados itens e depois clicar no botão imprimir, ele só imprime os itens que foram selecionados.

Há alguma forma de implementar isto? Tenho um relatório pronto e apenas quero passar as informações dos itens selecionados para que seja impresso.

Grato pela atenção,

Girreis.

[Macêdo]

Pelo que entendi você quer por em seu relatorio os dados que estão aparecendo no ListBox é isto? se seu relatorio estiver no WORD você pode fazer uma mala direta, acho que postei como fazer isso no tutoriais e dicas, dá uma olhada lá.

Se seu relatorio tiver sido feito no DataReport você pode fazer um filtro para só imprimir os dados referentes ao que está selecionado no LIST, dá uma olhada no tutoriais também, na dica de como imprimir relatorio entre datas, é só você trocar a informação do filtro para a variavel e campo que você quiser.

[Girréis]

Obrigado, Macêdo!

mas onde estão estes 2 tutoriais?

Girreis

[Macêdo]

Logo no topo da pagina do forum, em tutoriais e Dicas

[Girréis]

Macêdo,

não consegui implementar, segue abaixo parte do código, veja o que precisa ser implementado.

Grato,

Girreis

Option Explicit
Dim vCodIdentificacaoSubsistema As Long
Dim vCod As String
Dim cnnComando As New ADODB.Command
Dim rsSelecao As New ADODB.Recordset

Private Sub cmdFechar_Click()

    Unload Me
    
End Sub

Private Sub Command1_Click() - é aqui que estou tentando implementar!
Dim temp, temp2 As String
Dim i As Integer

For i = 0 To ListaFornecedores.ListCount - 1
If ListaFornecedores.Selected(i) Then
temp2 = ListaFornecedores.Text (temp2 = ListaFornecedores.List(i))

End If
Next

End Sub

'Dim vCodFornecedor As Long
Private Sub Form_KeyPress(KeyAscii As Integer)
    
    'Se a tecla Enter foi pressionada, passa o foco para o próximo controle na
    'seqüência de TabIndex:
    If KeyAscii = vbKeyReturn Then
        SendKeys "{Tab}"
        KeyAscii = 0
    End If
    
End Sub
Private Sub Form_Load()
Dim vCod2 As String
    
    'Centraliza o formulário na área de trabalho do MDI:
    Me.Left = (frmSistControle.ScaleWidth - Me.Width) / 2
    Me.Top = (frmSistControle.ScaleHeight - Me.Height) / 2
    
    'Screen.MousePointer = vbHourglass
    With cnnComando
        .ActiveConnection = cnnBancoSCS
        .CommandType = adCmdText
        'Monta o comando SELECT para selecionar o registro na tabela:
        .CommandText = "SELECT * FROM ConsultaSubsistemas ORDER BY identificacao;"
        Set rsSelecao = .Execute
    End With
    With rsSelecao
        If .BOF = False Then
        While Not .EOF
        vCod2 = rsSelecao("identificacao")
        ListaFornecedores.AddItem vCod2
        rsSelecao.MoveNext
        Wend
        Else
            MsgBox "Banco de dados vazio!!!", _
            vbExclamation + vbOKOnly + vbApplicationModal, "Erro"
            Unload frmRelatFornecedores
        End If
    End With

End Sub

Amigos,

parece fácil mas me perdi, ou seja, tenho um formulário que contém uma lista que busca no banco de dados.

e neste formulário existem 2 botões, um para fechar e outro para imprimir, mas acontece que não consegui implementar um código que permite imprimir os itens selecionados, usando opção multiselect na propriedade ListBox.

Como podem notar, compliquei a situação.

Espero receber algumas dicas.

Grato,

Girreis

[Macêdo]

Colega, você disse que queria filtrar os dados do relatório de acordo com os dados do List, mas seu relatório como foi feito? usa DataReport? usa com ou sem DataEnvironment ?

[Girréis]

Macêdo,

já tenho o DataReport pronto, o que quero é escolher itens da lista pronta no listbox e mandar imprimir o que selecionei!

grato,

girreis

[Macêdo]

Como você não passou mais detalhes, vou explicar do jeito que imaginei, digamos que seu relatório tem cadastro de clientes e você quer imprimir com os dados apenas do cliente cujo nome esteja selecionado no LIST:

DataEnvironment1.rsCommand1.Filter = " NOME like '" & LIST_NOME.Text & "'"

Relatorio_CLientes.Show

onde NOME é o campo da tabela que possui os nomes dos clientes

LIST_NOME o LIST em que será feito o filtro para só aparecer os dados so cliente selecionado.

[Girréis]

Macêdo,

isso mesmo, mas onde coloco esta instrução?

dentro código do botão imprimir?

[Macêdo]

exatamente

DataEnvironment1.rsCommand1.Filter = " NOME like '" & LIST_NOME.Text & "'" (faz o filtro do campo NOME em relação ao nome selecionado no list)

Relatorio_CLientes.Show (chama o relatorio CLIENTES com o filtro)