AddNew Loop with a an Array

[bbrendan]

Hi,

I have an array of text boxes (50 of them) I would like to, instead of having to type each one in loop through them:

My current code is this:

With ObjRecMaster
.AddNew
.Fields(0) = txtFields(0).Text
.Fields(1) = txtFields(1).Text
............
.update
End with

How could I just get loop through each .field and txtfield instead of typing up 50+ lines of code???

thanks
brendan

 

[zemp]

You can try this,

Dim i as integer

With ObjRecMaster
  .AddNew
  For i = 0 to 50 'or what ever your max is.
    .Fields(i).Value = txtFields(i).Text
  Next i
  .update
End with

You still need to make sure that you are placing the correct data in the correct field.


zemp

 

[bbrendan]

thanks zemp.

Your a star!