How to get unique identifier for Tabledef?

[deko]

I have a situation where data is being imported from external tables. The
Import Wizard (File > Get External Data > Import) is used to create and
import tables from different sources (txt, xls, etc). The problem is that
previously imported tables can get replaced by new tables that are imported
with the same name (usually "Sheet1" from an Excel spreadsheet). This
screws up the internal import process that uses a temp table and code to
massage the data into the database. If I can get a unique identifier for
each tabledef after it's imported, I can avoid the problem.

I've looked at Tabledef properties:

For i = 0 To db.TableDefs.Co unt - 1
If Left(db.TableDe fs(i).Name, 4) <> "MSys" Then
Set prps = db.TableDefs(i) .Properties
For Each prp In prps
Debug.Print prp.Name & " - " & prp.Value
Next
End if
Next

[output]
Name - Sheet1

Updatable - True

DateCreated - 1/16/2005 9:40:26 AM

LastUpdated - 2/18/2005 10:53:53 PM

Connect -

Attributes - 0

SourceTableName -

RecordCount - 249

ValidationRule -

ValidationText -

ConflictTable -

ReplicaFilter -

But I'd rather have something besides name/date/recordcount as an
identifier. Is there any kind of GUID for tabledefs?

Thanks in advance.

[Tom van Stiphout]

On Sat, 19 Feb 2005 23:38:45 GMT, "deko" <de**@hotmail.c om> wrote:

Eh... rename each table after it has been imported?
-Tom.

I have a situation where data is being imported from external tables. The
Import Wizard (File > Get External Data > Import) is used to create and
import tables from different sources (txt, xls, etc). The problem is that
previously imported tables can get replaced by new tables that are imported
with the same name (usually "Sheet1" from an Excel spreadsheet). This
screws up the internal import process that uses a temp table and code to
massage the data into the database. If I can get a unique identifier for
each tabledef after it's imported, I can avoid the problem.

I've looked at Tabledef properties:

For i = 0 To db.TableDefs.Co unt - 1
If Left(db.TableDe fs(i).Name, 4) <> "MSys" Then
Set prps = db.TableDefs(i) .Properties
For Each prp In prps
Debug.Print prp.Name & " - " & prp.Value
Next
End if
Next

[output]
Name - Sheet1

Updatable - True

DateCreated - 1/16/2005 9:40:26 AM

LastUpdated - 2/18/2005 10:53:53 PM

Connect -

Attributes - 0

SourceTableNam e -

RecordCount - 249

ValidationRu le -

ValidationTe xt -

ConflictTabl e -

ReplicaFilte r -

But I'd rather have something besides name/date/recordcount as an
identifier. Is there any kind of GUID for tabledefs?

Thanks in advance.

[deko]

> Eh... rename each table after it has been imported?

nope. table names can't be changed (for other reasons)

I suppose I could just make my own Table GUID:

For i = 0 To tdfs.Count - 1
strTn = tdfs(i).Name
If Left(strTn, 4) <> "MSys" And _
Left(strTn, 1) <> "~" Then
Set prps = tdfs(i).Propert ies
Set prpdc = prps("DateCreat ed")
Set prprc = prps("RecordCou nt")
lngTid = Format(prpdc, "dns") & Right(prprc, 3)
End If
Next

[Tom van Stiphout]

On Sun, 20 Feb 2005 01:35:54 GMT, "deko" <de**@hotmail.c om> wrote:

You can also add to the Properties collection.
-Tom.

Eh... rename each table after it has been imported?

nope. table names can't be changed (for other reasons)

I suppose I could just make my own Table GUID:

For i = 0 To tdfs.Count - 1
strTn = tdfs(i).Name
If Left(strTn, 4) <> "MSys" And _
Left(strTn, 1) <> "~" Then
Set prps = tdfs(i).Propert ies
Set prpdc = prps("DateCreat ed")
Set prprc = prps("RecordCou nt")
lngTid = Format(prpdc, "dns") & Right(prprc, 3)
End If
Next