Jump to content
Fórum Script Brasil
  • 0

Listbox - Selecionando Itens


Girréis
 Share

Question

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.

Link to comment
Share on other sites

9 answers to this question

Recommended Posts

  • 0

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.

Link to comment
Share on other sites

  • 0

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

Link to comment
Share on other sites

  • 0

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.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.2k
    • Total Posts
      647.5k
×
×
  • Create New...