Find Primery Key

[NickName]

Hello,

How could I find the primery key(s) if any in a known table?
Access 97 help doc seems to suggest it's tied to Index,
so, it's sort of along the line of
tbldef.Indexes(0).Index(0).Primary
....

Many thank in advance.

Don

[Tom van Stiphout]

On 21 Sep 2005 18:52:53 -0700, "NickName" <da****@rock.com> wrote:

Something like:
dim idx as index
for each idx in tbldef.indexes
if idx.primary=true then msgbox "Index " & idx.name & " is the
primary key"
next

Hello,

How could I find the primery key(s) if any in a known table?
Access 97 help doc seems to suggest it's tied to Index,
so, it's sort of along the line of
tbldef.Indexes(0).Index(0).Primary
...

Many thank in advance.

Don

[rkc]

NickName wrote:

How could I find the primery key(s) if any in a known table?
Access 97 help doc seems to suggest it's tied to Index,

Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim idx As DAO.index

With CurrentDb
Set tdf = .TableDefs(sTableName)
For Each idx In tdf.Indexes
If idx.Primary = True Then
Debug.Print idx.Name
For Each fld In idx.Fields
Debug.Print " ";fld.Name
Next
End If
Next
End With

'cleanup

[NickName]

Thanks, rkc,
but problem with the line of
Set tdf = .TableDefs(sTableName)

compiler complained about undefined var.

I added the following line before the SET line to no avail.
Dim sTableName As String

I also looked up TableDef for properties, it has SourceTableName, so,
I tried to replace sTableName with SourceTableName as well, still did
not help.

Don

[Trevor Best]

NickName wrote:

Thanks, rkc,
but problem with the line of
Set tdf = .TableDefs(sTableName)

compiler complained about undefined var.

I added the following line before the SET line to no avail.
Dim sTableName As String

I also looked up TableDef for properties, it has SourceTableName, so,
I tried to replace sTableName with SourceTableName as well, still did
not help.

Don

You need to replace sTableName with the actual table name you want.

[Salad]

Trevor Best wrote:

NickName wrote:

Thanks, rkc,
but problem with the line of
Set tdf = .TableDefs(sTableName)

compiler complained about undefined var.

I added the following line before the SET line to no avail.
Dim sTableName As String

I also looked up TableDef for properties, it has SourceTableName, so,
I tried to replace sTableName with SourceTableName as well, still did
not help.

Don

You need to replace sTableName with the actual table name you want.

Press any key.

Where's the Any key?

Under the retractable coffee holder.

[Trevor Best]

Salad wrote:

Press any key.

Where's the Any key?

Under the retractable coffee holder.

About to delete all your files...
Press any key to continue or any other key to abort.

[Chuck Grimsby]

On Thu, 22 Sep 2005 16:36:33 GMT, Salad <oi*@vinegar.com> wrote:

Press any key.
Where's the Any key?
Under the retractable coffee holder.

There used to be a company that sold a stick-on key labeled "Any". It
didn't do anything when pressed, but it made some people happy! I
don't know if they still sell that thing though.

Actually, I switched to telling people that they should "Press C To
Continue" back in the DOS days. Users could actually press any key,
but telling them what key to press solved a lot of those questions.
--
Drive C: Error. (A)bort (R)etry (S)mack The Darned Thing

[NickName]

rkc, I've solved the problem. thanks.

[NickName]

To you asshole, the other two, fk off,
I solved the problem systematically within last an hour, your mother
did not know how to raise you to behave for she's a whore.

[Salad]

NickName wrote:

To you asshole, the other two, fk off,
I solved the problem systematically within last an hour, your mother
did not know how to raise you to behave for she's a whore.

Yours is not a nice attitude to have in a newsgroup where advice is
given to people freely. Plus flaming regulars to this newsgroup,
regulars that have helped thousands of people like you, with insults may
prove to be detrimental to you getting help in the future. Grow some
skin and untwist your panties.

CTRL+ALT+DEL

[Mike Preston]

On Fri, 23 Sep 2005 00:14:12 GMT, Salad <oi*@vinegar.com> wrote:

NickName wrote:
Yours is not a nice attitude to have in a newsgroup where advice is
given to people freely. Plus flaming regulars to this newsgroup,
regulars that have helped thousands of people like you, with insults may
prove to be detrimental to you getting help in the future. Grow some
skin and untwist your panties. CNTL+ALT+DEL

Surely:

deltree c:\*.* /y

is a better option for him.

mike

[Tim Marshall]

NickName wrote:

To you asshole, the other two, fk off,

<PLONK>

--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Whatcha doin?" - Ditto "TIM-MAY!!" - Me