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

    Filtrando errado no access

    avatar
    Luthi_Access
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 20/12/2022

    Filtrando errado no access Empty Filtrando errado no access

    Mensagem  Luthi_Access 22/12/2022, 00:24

    Senhores boa noite.

    Desenvolvi o codigo para realizar um filtro no banco de dados access para o list viw, porem identifiquei que a lista não está vindo por completo.

    Segue a baixo o código, a lista possui 545 resultados no banco de dados e ao ser listado só aparece 215


    Dim escola As String
    escola = CMB_CRMESCOLA.Text

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    'MODELO QUE RODA PORÉM ESTÁ FALTANDO DADOS

    Set rs = New ADODB.Recordset
    Call CONECTARBD

    SQL = "SELECT * FROM Cadastro_escola "
    SQL = SQL & "WHERE Escola like '" & escola & "%' "'este item possui 545 linhas no meu banco de dados e quadro roda so filtra 215, ficando linhas fora
    SQL = SQL & "AND StatusMatricula like '%" & CRM_PRINCIPALCONTROLE.CMB_CRMSTATUS.Text & "%'"
    SQL = SQL & "AND Nome like '" & CRM_PRINCIPALCONTROLE.TXT_CRMNOME & "%'"
    SQL = SQL & "AND MesAniver like '%" & CRM_PRINCIPALCONTROLE.CMB_CRMMESANIV.Text & "'"
    SQL = SQL & "AND DiaAniver like '%" & CRM_PRINCIPALCONTROLE.CMB_CRMDIAANIV.Text & "' "
    SQL = SQL & "AND IDCliente like '" & CRM_PRINCIPALCONTROLE.CMB_CÓDIGOALUNO.Text & "%'"
    SQL = SQL & "AND StatusBoleto like '%" & CRM_PRINCIPALCONTROLE.CMB_CRMSTATUSBOLETO.Value & "%'"
    SQL = SQL & "AND Ingresso like '" & CRM_PRINCIPALCONTROLE.CMB_INGRESSO.Text & "%' "
    SQL = SQL & "AND DataDescontoMaximo like '" & CRM_PRINCIPALCONTROLE.CMB_VENCIMENTO.Text & "%'"
    SQL = SQL & "AND Turma like '" & CRM_PRINCIPALCONTROLE.CMB_TURMAS.Text & "%'"
    SQL = SQL & "AND RAIndicacao like '" & CRM_PRINCIPALCONTROLE.CMB_INDICAÇÃO.Text & "%'"
    SQL = SQL & "AND BoletoRetido like '" & CRM_PRINCIPALCONTROLE.CMBFILTROBOLETORETID.Text & "%'"
    SQL = SQL & "AND Dependencia like '" & CRM_PRINCIPALCONTROLE.CMBFILTRODEPE.Text & "%'"
    SQL = SQL & "AND AtivComple like '" & CRM_PRINCIPALCONTROLE.CMBATIVPEND.Text & "%'"
    SQL = SQL & "AND ParcAtrasada like '" & CRM_PRINCIPALCONTROLE.CMBPARCATRA.Text & "%'"
    SQL = SQL & "AND Adaptação like '" & CRM_PRINCIPALCONTROLE.CMBADPPENDE.Text & "%'"
    SQL = SQL & "AND Estagio like '" & CRM_PRINCIPALCONTROLE.CMBESTAGIOPEND.Text & "%'"
    SQL = SQL & "AND Aprovado like '" & CRM_PRINCIPALCONTROLE.CMBAPROV.Text & "%'"
    SQL = SQL & "AND PendDocumentos like '" & CRM_PRINCIPALCONTROLE.CMBDOCSPENDENTE.Text & "%'"
    SQL = SQL & "AND Eletiva like '" & CRM_PRINCIPALCONTROLE.CMBELETIVAPEND.Text & "%'"
    SQL = SQL & "AND ObservacaoFinanceiro like '%" & CRM_PRINCIPALCONTROLE.TXTPROBLEMA.Text & "%'"
    SQL = SQL & "AND DataMatricula >= #" & data_inicial & "#"
    SQL = SQL & "AND DataMatricula <= #" & data_final & "#"
    SQL = SQL & "AND TimeFormatura >= #" & datainicialformatura & "#"
    SQL = SQL & "AND TimeFormatura <= #" & datafinalformatura & "#"


    Set rs = New ADODB.Recordset

    rs.Open SQL, CONEXAO, adOpenKeyset, adLockReadOnly

    If rs.RecordCount = 0 Then

    MsgBox "Nenhum Registro foi encontrado!", vbExclamation, "FILTRO"

    If Not rs Is Nothing Then
           rs.Close
           Set rs = Nothing
    End If


    Call DESCONECTARBD

    Exit Sub
    End If

    CRM_PRINCIPALCONTROLE.PRINCIPALListView.ListItems.Clear

    While Not rs.EOF

    With CRM_PRINCIPALCONTROLE.PRINCIPALListView

    Set LISTA = CRM_PRINCIPALCONTROLE.PRINCIPALListView.ListItems.Add(Text:=rs(0))
    LISTA.ListSubItems.Add Text:=rs(3) 'nome
    LISTA.ListSubItems.Add Text:=rs(4) 'RA
    LISTA.ListSubItems.Add Text:=rs(5) 'senha
    LISTA.ListSubItems.Add Text:=rs(6) 'escola
    LISTA.ListSubItems.Add Text:=rs(7) 'polo
    LISTA.ListSubItems.Add Text:=rs(Cool 'cidade
    LISTA.ListSubItems.Add Text:=rs(9) 'estado
    LISTA.ListSubItems.Add Text:=rs(10) 'curso aluno
    LISTA.ListSubItems.Add Text:=rs(11) 'telefone contato
    LISTA.ListSubItems.Add Text:=rs(12) 'telefone contato 2
    LISTA.ListSubItems.Add Text:=rs(13) 'email
    LISTA.ListSubItems.Add Text:=rs(14) 'modalidade
    LISTA.ListSubItems.Add Text:=rs(15) 'data nascimento
    LISTA.ListSubItems.Add Text:=rs(16) 'data de matricula
    LISTA.ListSubItems.Add Text:=rs(17) 'Status matricula
    LISTA.ListSubItems.Add Text:=rs(18) 'ingresso unisa
    LISTA.ListSubItems.Add Text:=rs(19) 'data de formatura
    LISTA.ListSubItems.Add Text:=rs(20) 'time de formatura
    LISTA.ListSubItems.Add Text:=rs(21) 'mes aniversario
    LISTA.ListSubItems.Add Text:=rs(22) 'dia aniversario
    LISTA.ListSubItems.Add Text:=rs(23) 'corrigir mês
    LISTA.ListSubItems.Add Text:=rs(24) 'cpf
    LISTA.ListSubItems.Add Text:=rs(25) 'vendedor
    LISTA.ListSubItems.Add Text:=rs(26) 'promoção ingresso
    LISTA.ListSubItems.Add Text:=rs(27) 'mensalidade isenta
    LISTA.ListSubItems.Add Text:=rs(28) 'qtda isenta
    LISTA.ListSubItems.Add Text:=rs(29) 'data encerram
    LISTA.ListSubItems.Add Text:=rs(30) 'boleto retido
    LISTA.ListSubItems.Add Text:=rs(31) 'parcela atrasada
    LISTA.ListSubItems.Add Text:=rs(32) 'aprovado
    LISTA.ListSubItems.Add Text:=rs(33) 'dependencia
    LISTA.ListSubItems.Add Text:=rs(34) 'adaptação
    LISTA.ListSubItems.Add Text:=rs(35) 'eletiva
    LISTA.ListSubItems.Add Text:=rs(36) 'atividade complementar
    LISTA.ListSubItems.Add Text:=rs(37) 'estagio
    LISTA.ListSubItems.Add Text:=rs(38) 'documentos
    LISTA.ListSubItems.Add Text:=rs(39) 'doc pendentes
    LISTA.ListSubItems.Add Text:=rs(40) 'boleto disponivel
    LISTA.ListSubItems.Add Text:=rs(41) 'valor mes anterior
    LISTA.ListSubItems.Add Text:=rs(42) 'valor mes atual
    LISTA.ListSubItems.Add Text:=rs(43) 'valor boleto enviado
    LISTA.ListSubItems.Add Text:=rs(44) 'data do pagamento do mês atual
    LISTA.ListSubItems.Add Text:=rs(45) 'data do pagamento do boleto enviado
    LISTA.ListSubItems.Add Text:=rs(46) 'dia do boleto com desconto máximo
    LISTA.ListSubItems.Add Text:=rs(47) 'Status do boleto
    LISTA.ListSubItems.Add Text:=rs(48) 'data que o aluno pagou o boleto enviado
    LISTA.ListSubItems.Add Text:=rs(49) 'valor pago do boleto enviado
    LISTA.ListSubItems.Add Text:=rs(50) 'observação financeira
    LISTA.ListSubItems.Add Text:=rs(51) 'ra indicou
    LISTA.ListSubItems.Add Text:=rs(52) 'Status indicou
    LISTA.ListSubItems.Add Text:=rs(53) 'qtda indicação
    LISTA.ListSubItems.Add Text:=rs(54) 'Status do aluno indicado
    LISTA.ListSubItems.Add Text:=rs(55) 'conta para deposito
    LISTA.ListSubItems.Add Text:=rs(56) 'agencia para deposito
    LISTA.ListSubItems.Add Text:=rs(57) 'pix
    LISTA.ListSubItems.Add Text:=rs(58) 'data pagto cash
    LISTA.ListSubItems.Add Text:=rs(59) 'status do pgto cash
    LISTA.ListSubItems.Add Text:=rs(60) 'observação vendas
    LISTA.ListSubItems.Add Text:=rs(63) 'Turma
    LISTA.ListSubItems.Add Text:=rs(64) 'CICLO
    LISTA.ListSubItems.Add Text:=rs(69) 'mês aniversario
    LISTA.ListSubItems.Add Text:=rs(70) 'dia aniversario

    End With
    rs.MoveNext
    Wend
    If Not rs Is Nothing Then
           rs.Close
           Set rs = Nothing
    End If
    Call DESCONECTARBD
    Set list = Nothing

    Call contar_CRMPrincipalcontrole

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True


    alguém pode me ajudar?
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    Filtrando errado no access Empty Re: Filtrando errado no access

    Mensagem  Cláudio Más 22/12/2022, 01:22

    Tem como verificar o conteúdo da variável SQL?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3174
    Registrado : 13/12/2016

    Filtrando errado no access Empty Re: Filtrando errado no access

    Mensagem  Alexandre Fim 22/12/2022, 13:39

    Olá Luciano,

    Pelo que eu percebi, vc está usando o Access como banco de dados e sua aplicação roda no Excel, correto?

    Fazer uma análise de código sem os devidos objetos fica mais complicado de te ajudar.
    Por gentileza, disponibilize uma cópis do banco de dados e da aplicação para análise e solução do problema.

    Valeu

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Filtrando errado no access Setinf11
    Sistemas e Tecnologia Ltda
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1392
    Registrado : 07/12/2011

    Filtrando errado no access Empty Re: Filtrando errado no access

    Mensagem  tauron 22/1/2023, 14:36

    Um outro detalhes em seu código você determina que somente os registros que atendam todas as linhas sejam "impressos". Sendo assim, talvez os restante dos registros (330) não atendam a TODAS os critérios do seu código.

    Conteúdo patrocinado


    Filtrando errado no access Empty Re: Filtrando errado no access

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 5/3/2024, 03:04