Ir para conteúdo
Fórum Script Brasil
  • 0

Listbox - Selecionando Itens


Girréis

Pergunta

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 para o comentário
Compartilhar em outros sites

9 respostass a esta questão

Posts Recomendados

  • 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...