MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


4 participantes

    [Resolvido]Contar Itens em ListBox Não Vinculada

    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 15/06/2013

    [Resolvido]Contar Itens em ListBox Não Vinculada Empty [Resolvido]Contar Itens em ListBox Não Vinculada

    Mensagem  Eloirp 12/8/2014, 00:02

    Preciso contar os itens da coluna Produto em uma ListBox não vinculada e pelas pesquisas que fiz no fórum cheguei ao rs.RecordCount, mas como podem ver na tela em anexo em exitem repetições devido ao Produto ser aplicado em diferentes modelos, então não consegui resolver e preciso de uma ajudinha básica...
    Preciso contar os produtos sem considerar se repete linha ou não!
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2965
    Registrado : 09/04/2012

    [Resolvido]Contar Itens em ListBox Não Vinculada Empty Re: [Resolvido]Contar Itens em ListBox Não Vinculada

    Mensagem  Kaynan 12/8/2014, 00:45

    Tente assim =[sua listbox].[ListCount]
    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 15/06/2013

    [Resolvido]Contar Itens em ListBox Não Vinculada Empty Re: [Resolvido]Contar Itens em ListBox Não Vinculada

    Mensagem  Eloirp 12/8/2014, 00:54

    Olá Kaynan,
    Mas neste caso conta os produtos repetidos, por exemplo se tiver duas linhas com o produto 80 114 vai contar duas vezes e precisa contar apenas uma vez porque é o mesmo produto!
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2965
    Registrado : 09/04/2012

    [Resolvido]Contar Itens em ListBox Não Vinculada Empty Re: [Resolvido]Contar Itens em ListBox Não Vinculada

    Mensagem  Kaynan 12/8/2014, 19:13

    Envia pra nós dar uma olhada amigo.
    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 15/06/2013

    [Resolvido]Contar Itens em ListBox Não Vinculada Empty Re: [Resolvido]Contar Itens em ListBox Não Vinculada

    Mensagem  Eloirp 12/8/2014, 21:37

    Como trabalho com banco MySQL on-line eu teria que criar uma cópia para poder enviar a base e aí fica um pouco complicado! Mas é um ListBox normal que carrego assim:


    Sub Load_ListBox()

       If Not IsNull(Me.BuscarProd) Or Not IsNull(Me.Montadora) Or Not IsNull(Me.Modelo) Or Not IsNull(Me.CR.Value) Or Not IsNull(Me.ModeloReduz.Value) Or Not IsNull(Me.Comercial2.Value) Then
       
           Me.Lista.RowSource = ""
           Me.Refresh
           
           strRS = "SELECT tbl_Aplicacao.Codigo, tbl_Aplicacao.AplApl, tbl_ProdutoGrupo.Grupo, tbl_ProdutoTipo.Tipo, tbl_Montadora.Montadora, tbl_ModeloRed.ModeloReduz, tbl_Produto.Comercial2 " & _
                   "FROM (tbl_Produto INNER JOIN (tbl_ModeloRed INNER JOIN (tbl_Modelo INNER JOIN (tbl_Montadora INNER JOIN (tbl_ProdutoTipo INNER JOIN (tbl_ProdutoGrupo INNER JOIN tbl_Aplicacao ON tbl_ProdutoGrupo.Codigo = tbl_Aplicacao.Grupo) ON tbl_ProdutoTipo.Codigo = tbl_Aplicacao.TipoProduto) ON tbl_Montadora.Codigo = tbl_Aplicacao.AplMont) ON tbl_Modelo.Codigo = tbl_Aplicacao.AplMod) ON tbl_ModeloRed.Codigo = tbl_Aplicacao.ModeloReduz) ON tbl_Produto.Produto = tbl_Aplicacao.AplApl) INNER JOIN tbl_CrossReference ON tbl_Aplicacao.AplApl = tbl_CrossReference.Produto  " & _
                   "WHERE (((tbl_Aplicacao.AplApl) Like '%" & Me.BuscarProd & "%') AND ((tbl_Aplicacao.Grupo)=" & Me.GrupoProd & ") AND ((tbl_Aplicacao.TipoProduto)=" & Me.TipoProduto & ") AND ((tbl_Montadora.Montadora) Like '%" & Me.Montadora & "%') AND ((tbl_ModeloRed.ModeloReduz) Like '%" & Me.ModeloReduz & "%') AND ((tbl_Modelo.Modelo) Like '%" & Me.Modelo & "%') AND ((tbl_Produto.Comercial2) Like '%" & Me.Comercial2 & "%') AND ((tbl_CrossReference.CrossReference) Like '%" & Me.CR & "%') AND ((tbl_Produto.Status)='Ativo'))  " & _
                   "GROUP BY tbl_Aplicacao.AplApl, tbl_ProdutoGrupo.Grupo, tbl_ProdutoTipo.Tipo, tbl_Montadora.Montadora, tbl_ModeloRed.ModeloReduz, tbl_Produto.Comercial2 " & _
                   "ORDER BY tbl_Aplicacao.AplApl, tbl_Montadora.Montadora, tbl_ModeloRed.ModeloReduz"
           
           Call Cnn_Open
           Set rs = New ADODB.Recordset
           With rs
               Set .ActiveConnection = Cnn
               .Source = strRS
               .LockType = adLockOptimistic
               .CursorType = adOpenKeyset
               .Open
           End With
           
           If Not rs.BOF Then
           
               Do While Not rs.EOF
                   Me.Lista.RowSourceType = "Value List"
                   Me.Lista.AddItem rs!Codigo & ";" & rs!AplApl & ";" & rs!Tipo & ";" & rs!Montadora & ";" & rs!ModeloReduz & ";" & rs!Comercial2
                   rs.MoveNext
               Loop
           Else
               MsgBox "   Nenhum resultado para a consulta!   ", vbOKOnly, "Sistema Interno ELPER"
           End If
           
           Set rs = Nothing: Close
           Set Cnn = Nothing: Close
           
           'Call ContarItensListBox
       Else
           MsgBox "   Favor inserir ao menos um dos critérios de consulta!   ", vbInformation + vbOKOnly, "Sistema Interno ELPER"
       End If

    End Sub
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Contar Itens em ListBox Não Vinculada Empty Re: [Resolvido]Contar Itens em ListBox Não Vinculada

    Mensagem  Noobezinho 13/8/2014, 01:56

    Eloir

    Olá

    Trabalhei bem pouco com mySQL, mas acredito não ser um bicho de sete cabeças.  Razz 

    Vejo que a tua consulta tem uma serie de INNER JOIN, mostrando que tem algumas tabela agregadas.
    Então minha sugestão:

    Criar uma única tabela temporária para gravar os dados dessa consulta.
    *Na realidade ela poder ser fixa, sendo limpa ao final da contagem dos registros.

    E então uma consulta pra retornar os valores únicos dessa tabela
    SELECT DISTINCT OU SELECT DISTINCTROW ..... Não lembro qual é a instrução SQL exata.

    Então poderá fazer o Dcount()

    Espero ter ajudado.

    Abraços

    Noob




    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Contar Itens em ListBox Não Vinculada Empty Re: [Resolvido]Contar Itens em ListBox Não Vinculada

    Mensagem  formiga10x 13/8/2014, 04:44

    Pelo que entendi você quer que em uma caixa de texto seja somado a quantidade de registro ignorando os duplicados isso?

    Veja:

    Código:

            Me.lstProduto.RowSource = "Select * From tblProduto"
            
            Me.txtSomaQtd = DCount("codCat", "C_CodCount")
    Anexos
    [Resolvido]Contar Itens em ListBox Não Vinculada Attachmentlista.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (34 Kb) Baixado 36 vez(es)


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 15/06/2013

    [Resolvido]Contar Itens em ListBox Não Vinculada Empty Re: [Resolvido]Contar Itens em ListBox Não Vinculada

    Mensagem  Eloirp 13/8/2014, 12:53

    Agradeço aos colegas pela ajuda...
    Acabei revolvendo de uma forma simples (vermelho) e ficou assim:

    Private strConProd
    Private strProdChk As String

    Sub Load_ListBox()

       If Not IsNull(Me.BuscarProd) Or Not IsNull(Me.Montadora) Or Not IsNull(Me.Modelo) Or Not IsNull(Me.CR.Value) Or Not IsNull(Me.ModeloReduz.Value) Or Not IsNull(Me.Comercial2.Value) Then
       
           Me.Lista.RowSource = ""
           strConProd = 0
           strProdChk = ""

           Me.Refresh
           
           strRS = "SELECT tbl_Aplicacao.AplApl......
           
           Call Cnn_Open
           Set rs = New ADODB.Recordset
           With rs
               Set .ActiveConnection = Cnn
               .Source = strRS
               .LockType = adLockOptimistic
               .CursorType = adOpenKeyset
               .Open
           End With
           
           If Not rs.BOF Then
           
               Do While Not rs.EOF
                   Me.Lista.RowSourceType = "Value List"
                   Me.Lista.AddItem rs!Codigo & ";" & rs!AplApl & ";" & rs!Tipo & ";" & rs!Montadora & ";" & rs!ModeloReduz & ";" & rs!Comercial2
                   
                   ' conta produtos sem repetir
                   If strProdChk <> (rs!AplApl) Then
                       strProdChk = rs!AplApl
                       strConProd = strConProd + 1
                       Me.txt_Contar = strConProd
                       Me.Refresh
                   End If

                   
                   rs.MoveNext
               Loop
           Else
               MsgBox "   Nenhum resultado para a consulta!   ", vbOKOnly, "Sistema Interno ELPER"
           End If
           
           Set rs = Nothing: Close
           Set Cnn = Nothing: Close
           

       Else
           MsgBox "   Favor inserir ao menos um dos critérios de consulta!   ", vbInformation + vbOKOnly, "Sistema Interno ELPER"
       End If

    End Sub


    Última edição por Eloirp em 13/8/2014, 12:55, editado 1 vez(es)
    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 15/06/2013

    [Resolvido]Contar Itens em ListBox Não Vinculada Empty Re: [Resolvido]Contar Itens em ListBox Não Vinculada

    Mensagem  Eloirp 13/8/2014, 12:55

    Apenas para colocar o status de resolvido que havia esquecido...
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Contar Itens em ListBox Não Vinculada Empty Re: [Resolvido]Contar Itens em ListBox Não Vinculada

    Mensagem  Noobezinho 13/8/2014, 18:13

    Eloir

    Parabéns por ter resolvido!!

    E valeu pelo retorno

    Boa sorte


    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    [Resolvido]Contar Itens em ListBox Não Vinculada Empty Re: [Resolvido]Contar Itens em ListBox Não Vinculada

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 05:18