|
|
Postada em 05/01/2006 15:11 hs
cara, de maneira nenhuma vc estaria sendo chato, vc esta me ajudando..kk bom na verdade isso não ocorre na hora da movenext mas sim quando tento ler um campo
Argemiro Aguiar da Silva Criativa Produtos e Serviços 5511 2135-9600
|
|
|
|
|
|
|
|
Postada em 05/01/2006 15:13 hs
RESOLVIDO a rotina ficou assim: Data1.Recordset.MoveNext
Do While Data1.Recordset.EOF = False
txt_total.Text = CCur(txt_total.Text) + CCur(Data1.Recordset.Fields("val_total_nota"))
Data1.Recordset.MoveNext
DoEvents
Loop MESMO ASSIM AGRADEÇO POR TER ME AJUDADO..AGRADEÇO PELO SUA BOA VONTADE POR TER ME DADO UM FORÇA..VALEU MESMO |
|
|
|
|
|
Postada em 06/01/2006 09:03 hs
Troca sua rotina por isso e me diz se continua dando erro: txt_total.Text = CCur(Data1.Recordset.Fields("val_total_nota")) Do While Data1.Recordset.EOF = False
txt_total.Text = CCur(txt_total.Text) + CCur(Data1.Recordset.Fields("val_total_nota"))
Data1.Recordset.MoveNext
DoEvents
Loop
Não tenho certeza, mas pode ser isso... Flw!
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 06/01/2006 09:06 hs
Tente Isto On Error Resume Next Data1.Recordset.MoveMin txt_total.Text = CCur(Data1.Recordset.Fields("val_total_nota")) Do While Data1.Recordset.EOF = False
txt_total.Text = CCur(txt_total.Text) + CCur(Data1.Recordset.Fields("val_total_nota")) Data1.Recordset.MoveNext
DoEvents
Loop
|
|
|
|
