na rotina abaixo que pega o index dos campos text, sempre rodou nornal em dao

no meu RS, tenho 119 campos (rs!t0,rs!t1,rs!t2, etc), e também tenho 119 campos text na tela, na verdade é um só com 119 index (text(0),text(1),text(2),etc)


o que faço é percorre todos os texts com o for, e ir igualando ao seu respectivo campo no RS.

For i = 0 To 119
Rs("t" & i) = Text(i).Text
Next i
Rs.Update

porém no update esta dando erro, e percebi que o I chega a 120, qdo deveria parar no 119, lembrnaod que em dao, sempre funcionaou assim, como devo proceder ?

Olha, nunca vi isto, vc tem certeza que chega ao 120?

Mas tente assim, para ver:

i = 0

Do While i <= 119

 Rs("t" & i) = Text(i).Text

 i = i + 1

Loop

 

Se não der certo, faça

i = 0

Do While i <= 119

  If i > 119 Then

     Exit Do

  End If

  Rs("t" & i) = Text(i).Text

  i = i + 1

Loop

 

Não tem como chegar a 120, quer dizer chega, mas sai antes, e será que o erro não está no UPDATE?

 

vlu//

 

olha, acho que vc tem razão, o erro da no update, e qdo vou debugar, o i esta em 120, mas neste caso ele ja saiu do for, e no update da a mensagem de excesso de campos para alteração, ou algo assim.