Rex,

Thanks for the tip as it did work with even less code as seen below. I also moved it to the Click() method.

LOCAL lnTableCnt
OPEN DATABASE (This.Value) SHARED
lnTableCnt = ADBOBJECTS(ThisForm.aTableList,"Table")
CLOSE DATABASE

IF lnTableCnt > 0
ThisForm.lstTables.RowSourceType = 5
ThisForm.lstTables.RowSource = "ThisForm.aTableList"
ELSE
ThisForm.lstTables.RowSourceType = 0
ThisForm.lstTables.RowSource = ""
ENDIF

>>Thanks for the info on ADBOBJECTS(), that however will not work in this situation. I ended up with the following in the interactivechange of the list box where I put a list of databases in the directory that was selected. The code seems to work ok.

BTW, ADBOBJECTS() DID work, as I chew on my humble pie... mmm, very tasty...

Let me see now how did that go ...

Read
Think
Reply

I should quit skipping the middle step...


Thanks