How to get the index name

[cchws]

Hi,

I have looked here in the message board and tried a few different ways to
get the name of the index that is opened with a form based on 1 table.
That is if it defaults to having one when it opens the form.

I am trying to store the name to a variable so that I can change the order
then revert back to the one that was in effect when the form was opened.

Is there any one that could give an example.

Thank in advance

Craig C. Hudson Sr.

[Raymond Lyons]

Re: How to get the index name

The Help file is your friend. Under "Table Index Methods" you will find "<tbl>.Index_Primary_Get()" with an example pretty much as follows:

dim tbl as P
tbl = table.current()
index_pointer = tbl.index_primary_get()
index_name = index_pointer.name_get()
msgbox(index_name)

Then look at <tbl>.Index_Primary_Put()

Raymond Lyons

[cchws]

Re: How to get the index name

Stan,

I tried the exact same code but kept getting a blank index name.
I suspect I am tring the code in the wrong place (form init or fetch or activate), or the form does not open with an index open.
Except that it seems to be in some order.
The table has 8 indices, one of which is unique.

This is the code in the init event of the form:

dim shared tbl_chkdata as p
tbl_chkdata = table.current()

dim index_pointer as P
index_pointer = tbl_chkdata.index_primary_get()
index_name = index_pointer.name_get()
msgbox(index_name)
'this returns a blank msgbox

tbl_chkdata.fetch_last()
lasttransdte = tbl_chkdata.dtetrans
LastBatch = tbl_chkdata.batchno
LastStmtMo = tbl_chkdata.stmtmonth
LastStmtYr = tbl_chkdata.stmtyear
tbl_chkdata.fetch_first()
end

Regards
Craig C. Hudson Sr.

[Raymond Lyons]

Re: How to get the index name

Stan??

Anyway, getting a blank just means it is record number order.

Raymond Lyons (aka Stan?)

PS., Actually, Stan is the smarter one, so try not to get us confused.

[cchws]

Re: How to get the index name

Sorry Raymond,

I was looking at another msg, been a long day so far.

So it seems that by default the form does not open up with any
index, I thought I read in the help file that it would use the primary
index.

Mainly this exercise was for future reference when you need to switch
indices back and forth and did not know which was the curent one.

Thanks Ray

[Stan Mathews]

Re: How to get the index name

I don't think you need to change any indexes to do what you want.

dim shared tbl_chkdata as p
tbl_chkdata = table.current()
name_chkdata = tbl_chkdata.NAME_REAL_GET()
original_record = tbl_chkdata.recno()
original_reccount = a5_get_records_in_query(name_chkdata)
tbl_chkdata.fetch_goto(original_reccount)

lasttransdte = tbl_chkdata.dtetrans
LastBatch = tbl_chkdata.batchno
LastStmtMo = tbl_chkdata.stmtmonth
LastStmtYr = tbl_chkdata.stmtyear
tbl.fetch_goto(original_record)

[Raymond Lyons]

Re: How to get the index name

See, I told you that Stan guy was the smarter one!

[cchws]

Re: How to get the index name

Stan,

Good example using recno.
I was trying to use the index switching method for future needs,
such as when there is an index in effect and you do not know which
one is.

Thanks to all,
Craig

[Stan Mathews]

Re: How to get the index name

Index switching doesn't require that you know the index name.

dim shared tbl_chkdata as p
tbl_chkdata = table.current()

dim index_pointer as P
index_pointer = tbl_chkdata.index_primary_get()
tbl_chkdata.index_primary_put() 'switch to recno()

tbl_chkdata.fetch_last()
lasttransdte = tbl_chkdata.dtetrans
LastBatch = tbl_chkdata.batchno
LastStmtMo = tbl_chkdata.stmtmonth
LastStmtYr = tbl_chkdata.stmtyear
tbl_chkdata.fetch_first()
tbl_chkdata.index_primary_put(index_pointer) 'switch back to the original
end