form not displaying as intended

[markjkubicki]

I'm not having any luck getting this form to display as I want it to...

the form is intended as a kind-of FYI pop-Up -just to let the user know what is going on while some code is beig executed (in this case, I'm cycling thru the currentDB set of tables, and want the user to know which table is being looked at...

my form has only a few controls
a label and (2) text boxes
and I've written the below code to update the content of the text boxes

I want to change a couple of thing about how it behaves:
- the form frame shows, but not it's background, nor the label control, nor the textbox control [text2]. All aspects should appear as would normally be expected
- the textbox control [text0] does diplay, and the data is updated; however, the format is that the text has "focus" (all of it is "selected")

Maybe there's just a better way of doing it (there's always another way)...
Any thoughts and suggestions would be greatly appreciated; thanks in advance,
mark

_______________
Public Function ...
...
Set dbs = CurrentDb
Dim tdf As DAO.TableDef
...
Dim stDocName As String ' Loop through all tables in the database.
stDocName = "frmTemp"
DoCmd.OpenForm stDocName
For Each tdf In dbs.TableDefs


...
Forms![frmTemp].Text2 = tdf.Connect
Forms![frmTemp].Text0 = tdf.Name
...
Next tdf
...
DoCmd.Close acForm, "frmTemp"
End Function

[DaveT]

I use a table to display table names as they are being linked. Here is a snippet of the code that I use:

.....
Dim f as Form
Dim c as Control
....

'before the loop starts

DoCmd.OpenForm "LinksInProgress"
Set f = Forms("LinksInProgress")
Set c = f!TableName

'start loop
'something that sets tmpStrTableName to table being linked

c = tmpStrTableName
c.Requery
f.Repaint

'bottom of loop