tabledefs and linked tables

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

mcourter@mindspring.com - 20 Dec 2005 13:44 GMT

how can i get this code to include linked tables?

For i = 0 To dbs.TableDefs.Count - 1
If dbs.TableDefs(i).Attributes = 0 Then
cbxChooseTable.AddItem dbs.TableDefs(i).Name
End If
Next i

Reply to this Message

mcourter@mindspring.com - 20 Dec 2005 14:22 GMT

i modified this way and it works:

Or dbs.TableDefs(i).Attributes = 1073741824

i want to skip over sys files.
is there a better way (besides using instr)?

Reply to this Message

Douglas J. Steele - 20 Dec 2005 15:07 GMT

For i = 0 To dbs.TableDefs.Count - 1
If (dbs.TableDefs(i).Attributes And dbSystemObject) = 0 Then
cbxChooseTable.AddItem dbs.TableDefs(i).Name
End If
Next i

Signature

Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

>i modified this way and it works:
>
> Or dbs.TableDefs(i).Attributes = 1073741824
>
> i want to skip over sys files.
> is there a better way (besides using instr)?

Reply to this Message

mcourter@mindspring.com - 20 Dec 2005 16:00 GMT

wow.
slick.
thanks.

Reply to this Message