I should know this, but.......

[PerryG]

Why doesn't this bit of code work (Access97)?

If db.Containers("Tables&quot.Documents(intI).Name = "AFN*" Then
strFullName = db.Containers("Tables&quot.Documents(intI).Name
End If

The variable keeps coming up empty.

Any help appreciated.....time is short and the water is rising!

Thanks.

 

[lameid]

I'm not familiar with that object model but logically your test is bad ...

If db.Containers("Tables&quot.Documents(intI).Name = "AFN*" Then

The asterisk (*) is a wild card for only the like operator...

I'm guessing you mean something like

If INSTR(1,db.Containers("Tables&quot.Documents(intI).Name, "AFN*&quot = 1 Then


Personally I'd use something like...

Dim db as database
dim tbls as tabledefs
dim tbl as tabledef

set db = currentdb
set tbls = db.tabledefs

For Each tbl in tbls
If INSTR(1,tbl.Name, "AFN*&quot = 1 Then
strFullName = tbl.name
Exit For
End If
Next

 

[mikevh]

I think what you need here is "LIKE", not "=".
I'm not familiar with the object model you're using,
either (It may be fine, I've just never used the
Containers or Documents collections.)
Here's some code I believe will work.

Dim db As DAO.Database
Dim tbl As DAO.TableDef

Dim strFullName as String

Set db = CurrentDb
For Each tbl In db.TableDefs
If tbl.Name Like "AFN*" Then
strFullName = tbl.Name
Exit For 'exit once we've found it
End If
Next