Using a var into the name of another var or field.

guizero · May 30th, 2006, 02:13 PM

Ok, here is what I am trying to do:

Dim i As Byte
For i = 1 To 7
    Set Rst = CurrentDb.OpenRecordset("SELECT * from tbl_Divisao WHERE CodigoDivisao =" & i & "and Pago = 0")
    While Not Rst.EOF
      sum&i = sum&i + Rst!Valor
      Rst.MoveNext
    Wend
Me.total&i = sum&i
Next

These &i are just for the example, they dont work. I want to know how to make them work =) I mean, I want in each FOR to create sum1 to sum7 and use them in Me.Total1 to Me.Total7

hope I made myself clear....

echovue · May 30th, 2006, 02:20 PM

A good way to do this would be to use an array

Dim sum(7) as double
for i = 1 to 7
  ...
  sum(i) = sum(i) + Rst!Valor
  ...
Me.Form.Controls("total" & i) = sum(i)
Next

Mike
EchoVue.com

guizero · May 30th, 2006, 02:31 PM

Thank you very much.. it worked =)

echovue · May 30th, 2006, 03:47 PM

Good to hear! It's always a relief when it actually works.

Welcome to the forum - I haven't found a better resource for VBA yet!

Mike

Mike
EchoVue.com