[Resolvido]Formulário Lento

Bom dia Amigos

Formulário "Filtro"

O exemplo que anexo é muito lento motivado das caixas "Amarelas" onde calcula os totais das colunas da caixa de listagem.

1 - Tem como fazer esses cálculos de outro modo de maneira a acelerar a abertura do formulário ?

2 - Quando aberto "demora a abrir" tem uma caixa que mostra o número de registos que tem na tabela . "12500", mas .....

    se digitar qualquer "por exemplo só a letra a " letra na caixa de pesquisa a caixa que mostra o total de registos vai mostrar "0 zero", se limpar a letra  
    digitada com o BACK SPACE a mesma caixa só mostra 5589 registos.

    Devia mostrar os 12500 da tabela  

Obrigado

Trecho do código para vc testar e adaptar.

Option Compare Database

Private Sub btnfechar_Click()
DoCmd.Close
End Sub
Private Sub Form_Load()
Me.txtpesq.SetFocus
listar_dados
get_soma
End Sub

Sub listar_dados()
Dim conexao As DAO.Database
Dim record_set As DAO.Recordset
Dim query As String

query = "SELECT TabRecebimentos.ln, TabRecebimentos.dataft, TabRecebimentos.cliente, TabRecebimentos.tipomov, TabRecebimentos.doc, falta AS Custo, numerario AS Venda, cheque AS Xeque,chequepre AS xequepre, pos AS POSV, TabRecebimentos.banco FROM TabRecebimentos WHERE " & _
"strConv(cliente, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "'" & _
"OR strConv(tipomov, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "'" & _
"OR strConv(doc, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "'" & _
"OR strConv(Banco, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "*' ORDER BY TabRecebimentos.ln ;"

Set record_set = CurrentDb.OpenRecordset(query)

Set Me!Lista1.Recordset = Nothing
Set Me!Lista1.Recordset = record_set

Set record_set = Nothing

End Sub
Private Sub txtpesq_Change()
listar_dados
End Sub
Sub get_soma()
Dim conexao As DAO.Database
Dim record_set As DAO.Recordset

Dim query As String

query = "SELECT SUM(falta), SUM(numerario), SUM(cheque),SUM(chequepre), SUM(pos) FROM TabRecebimentos;"

Set record_set = CurrentDb.OpenRecordset(query)
Me.sdebito = record_set.Fields(0)
Me.scredito = record_set.Fields(1)
Me.svenda = record_set.Fields(2)
Me.Strans = record_set.Fields(3)

Set record_set = Nothing
End Sub

Machado desde já obrigado

O formulário não carrega os 12 500 registos que tem. Só carrega 5589

obrigado

Substitua
"strConv(cliente, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "'" & _
"OR strConv(tipomov, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "'" & _
"OR strConv(doc, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "'" & _
"OR strConv(Banco, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "*' ORDER BY TabRecebimentos.ln ;"

Por isso
query = "SELECT TabRecebimentos.ln, TabRecebimentos.dataft, TabRecebimentos.cliente, TabRecebimentos.tipomov, TabRecebimentos.doc, falta AS Custo, numerario AS Venda, cheque AS Xeque,chequepre AS xequepre, pos AS POSV, TabRecebimentos.banco FROM TabRecebimentos"

Machado

Com esta : só mostra só mostra 5589 registos de 12500

query = "SELECT TabRecebimentos.ln, TabRecebimentos.dataft, TabRecebimentos.cliente, TabRecebimentos.tipomov, TabRecebimentos.doc, falta AS Custo, numerario AS Venda, cheque AS Xeque,chequepre AS xequepre, pos AS POSV, TabRecebimentos.banco FROM TabRecebimentos WHERE " & _
"strConv(cliente, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "'" & _
"OR strConv(tipomov, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "'" & _
"OR strConv(doc, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "'" & _
"OR strConv(Banco, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "*' ORDER BY TabRecebimentos.ln ;"


Com esta última mostra os 12500 registos mas não filtra a pesquisa:

query = "SELECT TabRecebimentos.ln, TabRecebimentos.dataft, TabRecebimentos.cliente, TabRecebimentos.tipomov, TabRecebimentos.doc, falta AS Custo, numerario AS Venda, cheque AS Xeque,chequepre AS xequepre, pos AS POSV, TabRecebimentos.banco FROM TabRecebimentos"

Sub listar_dados()
Dim conexao As DAO.Database
Dim record_set As DAO.Recordset
Dim query As String

query = "SELECT TabRecebimentos.ln, TabRecebimentos.dataft, TabRecebimentos.cliente, TabRecebimentos.tipomov, TabRecebimentos.doc, falta AS Custo, numerario AS Venda, cheque AS Xeque,chequepre AS xequepre, pos AS POSV, TabRecebimentos.banco FROM TabRecebimentos"
If Len(txtpesq) > 0 Then
query = query & _
" WHERE " & _
"strConv(cliente, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "'" & _
"OR strConv(tipomov, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "'" & _
"OR strConv(doc, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "'" & _
"OR strConv(Banco, 2) like '" & StrConv(Me!txtpesq.Text, 2) & "*' ORDER BY TabRecebimentos.ln ;"
End If
Set record_set = CurrentDb.OpenRecordset(query)

Set Me!Lista1.Recordset = Nothing
Set Me!Lista1.Recordset = record_set
TxtC = Me!Lista1.ListCount
Set record_set = Nothing
End Sub

Não pesquisa

Boa noite Alexandre e Obrigado

Porque depois de abrir o formulário ao digitar a primeira letra no campo de pesquisar a última coluna "Banco" dica toda nulo.

Assis, é bem fácil de você mesmo resolver. Vamos ao passo a passo.

1 - Sabemos que a caixa de listagem traz valores conforme uma instrução SQL do tipo SELECT.
2 - Sabemos que o Alexandre mexeu aí.
3 - Se trazia antes e agora não traz mais, então o Alexandre esqueceu um pequeno detalhe.
4 - Sabemos que o Alexandre não bloqueou o código e que é possível fazer mais ajustes.
5 - Sabemos que isso só ocorre após alguma letra ser digitada, então basta acessar o evento "Ao alterar".
6 - E agora basta inserir na instrução SQL que também traga o campo "Banco" em sua busca de dados para que tal campo volte a aparecer na caixa de listagem.



Não há segredos e não é difícil que nós mesmos busquemos solucionar pequenos problemas.

Bom dia Damasceno

Já tentei mas não resulta. Veja

Obrigado

Desculpe me entrometer com os mestres.

Assis tire o ;
 sSQL = Empty
   sSQL = sSQL & " SELECT TabRecebimentos.ln,"
   sSQL = sSQL & "        TabRecebimentos.dataft,"
   sSQL = sSQL & "        TabRecebimentos.cliente,"
   sSQL = sSQL & "        TabRecebimentos.tipomov,"
   sSQL = sSQL & "        TabRecebimentos.doc,"
   sSQL = sSQL & "        TabRecebimentos.falta,"
   sSQL = sSQL & "        TabRecebimentos.numerario,"
   sSQL = sSQL & "        TabRecebimentos.cheque,"
   sSQL = sSQL & "        TabRecebimentos.chequepre,"
   sSQL = sSQL & "        TabRecebimentos.pos"
   sSQL = sSQL & "      TabRecebimentos.Banco"
   sSQL = sSQL & " FROM TabRecebimentos"
   sSQL = sSQL & " WHERE  (((TabRecebimentos.cliente)      LIKE '*" & Trim(txtpesq.Text) & "*'))"
   sSQL = sSQL & "         OR (((TabRecebimentos.tipomov)  LIKE '*" & Trim(txtpesq.Text) & "*'))"
   sSQL = sSQL & "         OR (((TabRecebimentos.doc)      LIKE '*" & Trim(txtpesq.Text) & "*'))"
   sSQL = sSQL & "         OR (((TabRecebimentos.banco)    LIKE '*" & Trim(txtpesq.Text) & "*'))"
   sSQL = sSQL & " GROUP  BY TabRecebimentos.ln,"
   sSQL = sSQL & "           TabRecebimentos.dataft,"
   sSQL = sSQL & "           TabRecebimentos.cliente,"
   sSQL = sSQL & "           TabRecebimentos.tipomov,"
   sSQL = sSQL & "           TabRecebimentos.doc,"
   sSQL = sSQL & "           TabRecebimentos.falta,"
   sSQL = sSQL & "           TabRecebimentos.numerario,"
   sSQL = sSQL & "           TabRecebimentos.cheque,"
   sSQL = sSQL & "           TabRecebimentos.chequepre,"
   sSQL = sSQL & "           TabRecebimentos.pos;"
   sSQL = sSQL & "           TabRecebimentos.Banco """
   Me.Lista1.RowSource = sSQL
   Me.Lista1.Requery
   
   Me.lblregs.Caption = "Registros: " & Me.Lista1.ListCount & ""
     
   
   Call CalcTotais

Testou Kaynan ?

Aqui não funciona

Assim como o Alexandre esqueceu um detalhe, cá eu também esqueci outro. Ambos facilmente resolvidos.

1 - A separação dos campos trazidos na SQL é feita com vírgulas
2 - Está faltando a vírgula que separa o campo banco que será trazido

sSQL = sSQL & "        TabRecebimentos.chequepre,"
sSQL = sSQL & "        TabRecebimentos.pos,"
sSQL = sSQL & "      TabRecebimentos.Banco"

Lembrando que está faltando nos dois locais onde houve alteração!

Aqui só não esta filtrando.
dropbox.com/s/zwtlrxcx8hkf576/test.png?dl=0

Obrigado Alexandre Fim

Ficou rápido

Obrigado Machado

Obrigado Damasceno pela correção final