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


3 participantes

    [Resolvido]Loop quantidade de registros específicos entre campos.

    avatar
    Lucio Camargos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 12/04/2014

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Lucio Camargos 12/7/2014, 15:47

    Srs. Bom Dia a todos

    Estou com a seguinte Dúvida:

    Tenho uma Tbl onde constam os campos:

    txtcódigo / txtNome / d1 / d2 / d3 / d4

    Obs.: Nos campos ( d1 até d4 ) são inseridos números entre 1 e 80

    Minha duvida: Como criar uma consulta que me retorne quantas vezes um numero especifico ( 1, por exemplo ) aparece neste intervalo.

    Antecipo agradecimentos

    Lucio Roberto
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Alexandre Neves 12/7/2014, 17:38

    Boa tarde,
    No caso que apresentou, se o nº 1 estiver em 2 campos, conta 1 ou 2?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Lucio Camargos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 12/04/2014

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Lucio Camargos 12/7/2014, 17:41

    Boa Tarde Alexandre

    Contar em todos os Campos
    avatar
    Lucio Camargos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 12/04/2014

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Lucio Camargos 12/7/2014, 17:43

    Desculpe alexandre, se um numero estiver em dois campos conta 2
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Alexandre Neves 12/7/2014, 17:46

    Utilize este código
    SELECT Count(*) FROM Tbl WHERE d1=[Introduza o nº a contar] UNION SELECT Count(*) FROM Tbl WHERE d2=[Introduza o nº a contar] UNION SELECT Count(*) FROM Tbl WHERE d3=[Introduza o nº a contar] UNION SELECT Count(*) FROM Tbl WHERE d4=[Introduza o nº a contar]


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Dilson 12/7/2014, 17:50

    Olá Alexandre,
    Eu também havia me interessado por esse tópico e já estava com a mão na massa e fiz com recordset.
    Criei para contar em todos os campos e registros.
    Tente a partir de um clique de um botão:


    Dim Rs As DAO.Recordset
    Dim i As Integer
    Dim Encontrar As Integer
    Dim Encontrado As Long
    Set Rs = CurrentDb.OpenRecordset("SuaTabela")
    Encontrar = 1
    Encontrado = 0
    For i = 1 To 4
    Rs.MoveLast
    Rs.MoveFirst
    Do While Not Rs.EOF
       If Rs(("d" & i)) = Encontrar Then
            Encontrado = Encontrado + 1
      End If
    Rs.MoveNext
    Loop
    Next i
    Rs.Close
    If Encontrado > 1 Then
    MsgBox "Encontrado " _
          & Encontrado & " ocorrências."
    Else
    MsgBox "Encontrado " _
          & Encontrado & " ocorrências."
    End If
    End Sub
    avatar
    Lucio Camargos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 12/04/2014

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Lucio Camargos 12/7/2014, 18:05

    Alexandre, este Código teria que ser inserido em todos os campos critério da consulta? ( d1,d2,d3,d4)
    avatar
    Lucio Camargos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 12/04/2014

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Lucio Camargos 12/7/2014, 18:06

    Dilson, no seu caso teria como "escolher" qual numero a ser contado? entre 1 e 80?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Alexandre Neves 12/7/2014, 18:07

    Basta colocar o código numa consulta, em modo VBA


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Dilson 12/7/2014, 18:10

    Sim.

    Bastando alimentar a variável chamada: Encontrar

    Veja que eu coloquei o valor 1, no entanto poderia alimentá-la de outras formas como o uso de um campo no seu formulário, que ficaria assim no código:

    Encontrar = Me!SuaTextBox
    avatar
    Lucio Camargos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 12/04/2014

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Lucio Camargos 12/7/2014, 18:18

    Vou testar os dois e já dou o retorno

    por Enquanto grato aos dois
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Dilson 12/7/2014, 18:22

    Atente que previ o laço apenas para 4 campos (d1,d2,d3 e d4)

    Se for usar 80 campos, queira modificar a seguinte linha:

    For i = 1 To 4

    Para:

    For i = 1 To 80
    avatar
    Lucio Camargos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 12/04/2014

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Lucio Camargos 12/7/2014, 18:34

    Ok dilson, teria como implementar entre datas?
    avatar
    Lucio Camargos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 12/04/2014

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Lucio Camargos 12/7/2014, 20:39

    Os dois Códigos são perfeitos, mas seria possivel filtrar entre datas? (por exemplo) de 01/07/2014 até 20/08/2014
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Alexandre Neves 12/7/2014, 20:50

    O código do amigo Dilson também dá para utilizar e estudar. Estude ambos e escolha
    Qual campo de data?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Lucio Camargos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 12/04/2014

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Lucio Camargos 12/7/2014, 20:59

    Amigo Alexandre, venho lhe agradendo desde os tempos do Expertaccess, rsrsr estive por muito tempo afastado do access enfim de computadores.
    me esqueci de citar no inicio do post sobre o campo txtdata
    minha tabela está assim

    txtCódigo / txtNome / txtData / d1 / d2 / d3 / d4

    gostaria de saber por exemplo quantas vezes o numero 1 (ou outro qualquer) 'apareceu' entre a sequencia d1 até d4 do dia
    01/01/2014 até 01/01/2015

    agradeço mais uma vez o tempo despreendido com este aprendiz

    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Dilson 12/7/2014, 21:40


    Dim Rs As DAO.Recordset
    Dim i As Integer
    Dim Encontrar As Integer
    Dim Encontrado As Long
    Dim DataIni As Date
    Dim DataFin As Date
    Set Rs = CurrentDb.OpenRecordset("SuaTabela")
    Encontrar = 1
    Encontrado = 0
    DataIni = #1/1/2014#
    DataFin = #1/1/2015#
    For i = 1 To 4
    Rs.MoveLast
    Rs.MoveFirst
    Do While Not Rs.EOF
    If Rs("SeuCampoData") >= DataIni And Rs("SeuCampoData") <= DataFin Then
    If Rs(("d" & i)) = Encontrar Then
    Encontrado = Encontrado + 1
    End If
    End If
    Rs.MoveNext
    Loop
    Next i
    Rs.Close
    If Encontrado > 1 Then
    MsgBox "Encontrado " _
    & Encontrado & " ocorrências."
    Else
    MsgBox "Encontrado " _
    & Encontrado & " ocorrência."
    End If
    avatar
    Lucio Camargos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 12/04/2014

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Lucio Camargos 12/7/2014, 21:52

    Caro e paciente Dilson, seu código está se adaptando as minhas necessidades. me ajude só mais um pouco, teria como no evento ao clicar de um botão abrir uma caixa para data inicial a minha escolha e data final idem e logo após abrir uma caixa para a escolha do numero?


    Ops. cliquei no botão resolvido sem querer
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Dilson 12/7/2014, 22:05

    Uma alternativa rápida seria usar inputbox assim:

    Encontrar = InputBox("Qual o número?")
    DataIni = InputBox("Qual a data inicial?")
    DataFin = InputBox("Qual a data final?")

    Numa alternativa mais elaborada (não tão rápida) seria usar um formulário para passar o que digitasse nos campos personalizados, com validações de formatos e tal.
    avatar
    Lucio Camargos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 12/04/2014

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Lucio Camargos 12/7/2014, 22:25

    Amigão vou testar e te falo, como ficou.

    Vá ao seu merecido descanso

    Fique com Deus
    avatar
    Lucio Camargos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 12/04/2014

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Lucio Camargos 14/7/2014, 13:33

    Srs. Alexandre e Dilson, venho agradecer a inestimavel ajuda neste tópico.

    As duas soluçoes se adaptaram perfeitamente as minhas necessidades.

    Muito Obrigado
    avatar
    Lucio Camargos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 12/04/2014

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Lucio Camargos 14/7/2014, 13:56

    Alexandre Neves, no seu Código haveria como colocar em ordem de colunas (D1,D2,D3,D4)? Ou então nomear as respectivas colunas?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Alexandre Neves 14/7/2014, 16:41

    Boa tarde,
    Não entendi o que quer dizer com "colocar em ordem" nem com "nomear"
    Pode dar um exemplo do formato do resultado?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Lucio Camargos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 12/04/2014

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Lucio Camargos 14/7/2014, 16:47

    Alexandre, Grato pelo retorno.

    é o seguinte:

    na consulta que vc me passou, consulta em todas as colunas sim, mas me retorna o resultado de forma Crescente ( numeracao ) e nao me mostra em que coluna está determinada soma.

    está mais ou menos assim:
    1
    13
    15
    22

    seria possivel ser assim?
    col.1 = 15
    col.2 = 1
    col.4 = 13
    col.3 = 22
    avatar
    Lucio Camargos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 12/04/2014

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Lucio Camargos 14/7/2014, 16:54

    ou seja:
    identificar em qual coluna (d1,d2,d3,d4) está determinada soma
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Alexandre Neves 14/7/2014, 18:08

    SELECT 'd1' as Campo, Count(*) FROM Tbl WHERE d1=[Introduza o nº a contar] UNION SELECT 'd2',Count(*) FROM Tbl WHERE d2=[Introduza o nº a contar] UNION SELECT 'd3',Count(*) FROM Tbl WHERE d3=[Introduza o nº a contar] UNION SELECT 'd4',Count(*) FROM Tbl WHERE d4=[Introduza o nº a contar]


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Lucio Camargos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 12/04/2014

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Lucio Camargos 14/7/2014, 18:46

    Fantástico Alexandre,

    Muito Obrigado

    Funfou legal!!!!
    avatar
    Lucio Camargos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 12/04/2014

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Lucio Camargos 16/7/2014, 20:46

    Senhores das probabilidades, Não quero abrir outro tópico baseado neste mesmo assunto, então segue ai minha 'duvida'

    como exemplifiquei antes

    Tenho uma tbl com os seguintes dados:

    txtCód / txtNome / txtData / d1/ d2/ d3/ d4

    onde nos campos d1 até d4 insiro numeros de 1 até 80

    como faço agora para em uma consulta ou relatório 'buscar' quantas vezes os numeros de 1 à 80 ' sairam;

    tipo assim: | 1 |100
    | 2 | 123
    | 3 | 23
    | 4 | 87
    indo até o 80.

    seria possivel?








    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Dilson 16/7/2014, 21:39

    Uma maneira prática e rápida seria utilizar o código que criei acima como uma função, passando os números de 1 à 80 por argumento.

    Observe a seguinte solução:
    - Crie uma tabela com um campo para registrar os 80 números;
    - Puxe em um formulário folha de dados ou continuo esses 80 registros;
    - Acrescente um controle caixa de texto ao lado do controle que mostra os 80 registros no form;
    - Escreva na Fonte do Controle desse controle criado: =contaD([NomeDaFonteDeControleQueMostraOs80Registros])

    Coloque a função em módulo qualquer e dê o nome que quiser:

    Function contaD(argD) As Integer
    On Error Resume Next
    Dim Rs As DAO.Recordset
    Dim i As Integer
    Dim Encontrar As Integer
    Dim Encontrado As Long
    Dim DataIni As Date
    Dim DataFin As Date
    Set Rs = CurrentDb.OpenRecordset("SuaTabela")
    Encontrar = argD
    Encontrado = 0
    DataIni = #1/1/2014#
    DataFin = #1/1/2015#
    For i = 1 To 4
    Rs.MoveLast
    Rs.MoveFirst
    Do While Not Rs.EOF
       If Rs("SeuCampoData") >= DataIni And Rs("SeuCampoData") <= DataFin Then
           If Rs(("d" & i)) = Encontrar Then
               Encontrado = Encontrado + 1
           End If
       End If
    Rs.MoveNext
    Loop
    Next i
    Rs.Close
    contaD = Encontrado
    End Function


    Última edição por Dilson em 12/10/2014, 03:22, editado 1 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Alexandre Neves 16/7/2014, 21:47

    Boa noite,
    SELECT Nr, Sum(Conta) FROM (SELECT d1 as Nr, Count(d1) as Conta FROM Tbl GROUP d1 UNION SELECT d2, Count(d2) FROM Tbl GROUP d2 UNION SELECT d3, Count(d3) FROM Tbl GROUP d3 UNION SELECT d4, Count(d4) FROM Tbl GROUP d4) GROUP BY Nr

    Com o contributo também do amigo Dilson, têm possibilidade de estudar em SQL e em DAO


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado


    [Resolvido]Loop quantidade de registros específicos entre campos. Empty Re: [Resolvido]Loop quantidade de registros específicos entre campos.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 00:10