changing labelcaption from string 1

[sfenx]

I have a db 'labels' with the names of all the labels that appear on my form and their caption (in several languages).
I now would like to change my form's labelcaptions with the names in my db. How can I select the label on my form that is equal to the labelname (string) in my db? This is what I already tryed, but the problem is to set the object = the db.labelname

  Dim obj As Label
  With rsLabel
    .MoveFirst
    For i = 1 To .RecordCount
      Set obj = !l_labelnaam
      obj.Caption = !L_LabelNL
      .MoveNext
    Next
  End With[\code]

Sfenx8-)

 

[strongm]

VB has a Controls collection, and you can reference individual items in that collection by index or - and this is the important bit for you - by name. e.g.

Collection("name&quot

So your code could be rewritten as:

[tt]With rsLabel
.MoveFirst
For i = 1 To .RecordCount
Controls(!labelname).Caption = !L_LabelNL
.MoveNext
Next
End With[/tt]

 

[sfenx]

Thanks, strongm. That was just what I was looking for !