Populate form with block attributes

[vittorio0]

Hi

I'm trying to replace the following code with a more simple for i loop. Here my code that works.

 

'Get the block's attributes

Tatts = ssnew.Item(0).GetAttributes

 

'frmEditAttr.F6.Text = (LTrim(Tatts(0).TextString))

'frmEditAttr.F7.Text = (LTrim(Tatts(1).TextString))

'frmEditAttr.F5.Text = (LTrim(Tatts(2).TextString))

'frmEditAttr.F42.Text = (LTrim(Tatts(3).TextString))

'frmEditAttr.F46.Text = (LTrim(Tatts(4).TextString))

'frmEditAttr.F38.Text = (LTrim(Tatts(5).TextString))

'frmEditAttr.F4.Text = (LTrim(Tatts(6).TextString))

'frmEditAttr.F43.Text = (LTrim(Tatts(7).TextString))

'frmEditAttr.F47.Text = (LTrim(Tatts(.TextString))

'frmEditAttr.F23.Text = (LTrim(Tatts(9).TextString))

'frmEditAttr.F10.Text = (LTrim(Tatts(10).TextString))

'frmEditAttr.F39.Text = (LTrim(Tatts(11).TextString))

'frmEditAttr.F8.Text = (LTrim(Tatts(12).TextString))

'frmEditAttr.F11.Text = (LTrim(Tatts(13).TextString))

'frmEditAttr.F9.Text = (LTrim(Tatts(14).TextString))

'frmEditAttr.F1.Text = (LTrim(Tatts(15).TextString))

'frmEditAttr.F17.Text = (LTrim(Tatts(16).TextString))

'frmEditAttr.F16.Text = (LTrim(Tatts(17).TextString))

'frmEditAttr.F1B.Text = (LTrim(Tatts(18).TextString))

'frmEditAttr.F1A.Text = (LTrim(Tatts(19).TextString))

 

here my effort so far which doesn't work. The Msgbox lists the right name of the attribut holder F?? and the coressponding value in it. The errocode is 424 Object needed at runtime

What am I doing wrong?

 

'display the attributes in frmEditAttr

Dim i As Integer

For i = 0 To 19

' MsgBox (LTrim(Tatts(i).TagString)), , Tatts(i).TextString

frmEditAttr.Tatts(i).TagString.Text = (LTrim(Tatts(i).TextString))

Next i

[BIGAL]

just a stab should Ltrim have brackets maybe Ltrim(tatts

[vittorio0]

frmEditAttr.Tatts(i).TagString.Text = LTrim(Tatts(i).TextString)

 

do you mean like this, it gives me the same error