[Resolvido]Demora no calculo

Porque o access demora a efetuar o calculo ,por exemplo a soma de um determinado campo do formulário?

Boas Agravina... esse cálculo é praticamente imediato, agora se houver problemas nos campos ou algo que dificulte talves isso esteja prejudicando...

Nos descreva como é esse cálculo, ou se possível disponibilize parte di bd para que possamos ver.

Cumprimentos.

Ola Harysonh,acontence o seguinte num pc com windows 7 funciona bem, o mesmo sistema num windows xp apresenta este problema até faz o calculo mas as vezes chega levar quase um minuto

Mostra para a gente, como está a ser feito esse calculo.

Veja o frmvendas digite o código 100,101,102
neste exemplo funciona bem mas o mesmo bd num outro pc até faz o calculo mas demora.

http://speedy.sh/gTeXE/projeto-Pdv2003.rar

Toda a demora, está relacionada com os DLookup`s.

Vou tentar daqui a pouco, ver uma alternativa para que o seu banco fique a funfar nas horasssssss.

Boas.. não sei se estou a falar bobagem.. mas com este comando creio que deu uma acelerada...
Utiliza-se o Dlookup apenas uma vez com os campos pretendidos

Mas creio que tambem um pouco da demora está partindo da operação no sub form.

Veja ai agravina...

Private Sub CodBarras_AfterUpdate()
Dim seq As String, k

If Me.CodBarras = "1" Or "2" Or "3" Or "4" Then
Me.Texto52.Visible = True
Else
End If
If IsNull(DLookup("Cod", "tbl_produtos", "Cod='" & Forms!FrmVendas!CodBarras & "'")) Then
MsgBox "Produto Não Cadastro", vbInformation, "ATENÇÃO"

End If
seq = "[Valorunit] & '|' & [Descrição] & '|' & [Cod]"
seq = DLookup(seq, "tbl_produtos", "Cod='" & Forms!FrmVendas!CodBarras & "'")
k = Split(seq, "|")


DoCmd.GoToControl "detalhevenda"
DoCmd.GoToRecord , , acNewRec
Forms!FrmVendas!detalhevenda!quant = Me.txtQtd 'Essa linha aqui que está atribuíndo a quantidade
Forms!FrmVendas!detalhevenda!valorunit = k(0)
Forms!FrmVendas!detalhevenda!Texto3 = k(1)
Forms!FrmVendas!txtproduto = k(1)
Forms!FrmVendas!detalhevenda!Codproduto = k(2)
Forms!FrmVendas!CodBarras = ""
Forms!FrmVendas!CodBarras.SetFocus
Forms!FrmVendas!detalhevenda!DetalheCódigovenda = Me.Códigovenda
Me.txtQtd = 1
RunCommand acCmdSaveRecord
Forms!FrmVendas.detalhevenda.Form!total.Requery

End Sub

Cumprimentos

Amigo Harysohn,o código que enviou funfa,mas o problema continua,lento para fazer o calculo!

Eu realmente penso que o problema esta na atualização da caixa texto onde aparece a soma no subform.

EU penso que ficaria melhor com a utilização de uma listBox conforme o modelo que te enviei um dia...

Cumprimentos.

O problema ainda persiste !Alguém tem ideia porque isso acontece?

Amigão eu já lhe disse acima o porquê de acontecer isso "Toda a demora, está relacionada com os DLookup`s."

Quando tiver aqui um tempinho, dou uma puxada nisso.

Não se este erra realmente o problema, mas resolvi da seguinte maneira no evento do timer, o cronometro esta 100 ,passei para 1000 retirei una campo hora que tinha,e voltou a funfar!

Ha sim... agravina se a execução de codigos estava condicionada ao timer.. pode sim ser isto...


Resolveste então certo?

So faltou o Resolvido amigão. Desta vez eu coloco.