Populate Controls From Recordset 1

[perrymans]

Imagine this, a form with 5 labels, spaced out (Label1, Label2, etc).

A recordset with 5 label numbers and names (1, "Green"; 2, "Purple").

How do I populate the labels in the form with the associated information from the table?

Label1 = "Green"
Label2 = "Purple"

Thanks. Sean.

 

[TheAceMan1]

How are ya perrymans . . .

The layout of the (fields) would help!

See Ya! . . . . . .

Be sure to see thread181-473997

 

[TheAceMan1]

perrymans . . .

As a first guess I'm considering two fields:

[blue]   Dim db As DAO.Database, rst As DAO.Recordset
   
   Set db = CurrentDb
   Set rst = db.OpenRecordset("[purple][b][i]Table/Query Name[/i][/b][/purple]", dbOpenDynaset)
   
   Do
      Me("Label" & CStr(rst!Field1)).Caption = rst!Field2
      rst.MoveNext
   Loop Until rst.Fields
   
   Set rst = Nothing
   Set db = Nothing[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997

 

[perrymans]

I was close, but I was using an intCount rather than the recordset.

Your way soved my next problem anyway!

Now it works like a dream.

It actually wasn't "tables", but Racks, IT Racks.

My database can now dynamically create elevation views of any rack in our datacenter based on the locations entered into the database record.

No more Visio!

Thanks. Sean.

 

[TheAceMan1]

perrymans . . .

BTW:

[blue]   Loop Until rst.Fields
Should be:
   Loop Until rst.[purple][b]EOF[/b][/purple][/blue]

But you've apparently corrected it! . . .

See Ya! . . . . . .

Be sure to see thread181-473997

 

[perrymans]

Yes, I had EOF.

Thanks again! Sean.