|
|
Postada em 05/01/2006 13:40 hs
Pessoal no código abaixo tenho uma funçao que abra um datacontrol, e começa a dar um movenext ate o final da tabela, porem quando chega no final ao inves de pular o erro como eu pedi ele continua dando "No Corrent Record" o que pode ser?..o que pode estar de errado no "On Error Resume Next"? abraços Miro Silva On Error Resume Next txt_total.Text = CCur(Data1.Recordset.Fields("val_total_nota")) Do While Data1.Recordset.EOF = False
Data1.Recordset.MoveNext
txt_total.Text = CCur(txt_total.Text) + CCur(Data1.Recordset.Fields("val_total_nota"))
DoEvents
Loop
Resume
Argemiro Aguiar da Silva Criativa Produtos e Serviços 5511 2135-9600
|
|
|
|
|
|
|
|
Postada em 05/01/2006 14:00 hs
remova a instrução RESUME do final, SENÃO FICARÁ VOLTANDO AO PONTO DO ERRO
dsmn
|
|
|
|
|
|
Postada em 05/01/2006 14:17 hs
não entendi se a instrução resume esta depois do loop, porque ficaria voltando ao ponto de erro
Argemiro Aguiar da Silva Criativa Produtos e Serviços 5511 2135-9600
|
|
|
|
|
|
Postada em 05/01/2006 14:50 hs
Acredito que na realidade não existe nenhum sentido nessa instrução resume ao final do processo, e talvez seja esse o motivo de sua rotina ficar retornando ao erro, pelo menos é o que eu imagino. Esprimenta remover e ve se não resolve o problema
dsmn
|
|
|
|
|
|
Postada em 05/01/2006 14:53 hs
não resolveu..por isso mesmo não entendi..
Argemiro Aguiar da Silva Criativa Produtos e Serviços 5511 2135-9600
|
|
|
|
|
|
Postada em 05/01/2006 15:07 hs
Não quero ser chato mas é realmente na linha Data1.Recordset.MoveNext
que está ocorrendo o erro? pq não vi nada de errado na sua rotina para apresentar o problema que voce relatou
dsmn
|
|
|
|
