ReLink only tables?

[cranfan]

I'm using a relink method.It works fine but i have a question about
making it work fast.

If .Tables(tdfRelink.name).Type = "LINK" Then

in this line i put a breakpoint and look for the table
names(tdfRelink.name) but i see it includes my queries too.It checks
my queries too for linking and it makes it work slower.Is it necessary
or is it possible to pass linking queries or am i worng about that

problem is in here i guess---For Each tdfRelink In .Tables

i have about 50 tables but in line
Call SysCmd(acSysCmdInitMeter, "Tablolarla Baðlantý
Kuruluyor", .Tables.Count)
it counts about 400.
what is the thing i am missing here?
thanks for the help
*'*********************************

Public Function ReLink(strDir As String, DefaultData As Boolean) _
As Boolean

****
definitions etc.
****
Set cat = New ADOX.Catalog
With cat

'Use File Information class to extract the application
'database file name
.ActiveConnection = CurrentProject.Connection
oDBInfo2.FullName = strDir
strPath = oDBInfo2.FilePathOnly
strName = Left(oDBInfo2.Filename, InStr(oDBInfo2.Filename,
".") - 1)

'Disable error handling
On Error Resume Next

'Update progress meter
Call SysCmd(acSysCmdInitMeter, "Tablolarla Baðlantý
Kuruluyor", .Tables.Count)
'Call SysCmd(acSysCmdInitMeter,.Tables.Append

'Loop through each table, attempting to relink
For Each tdfRelink In .Tables
intCounter = intCounter + 1
Call SysCmd(acSysCmdUpdateMeter, intCounter)

If (tdfRelink.name) = "tbl_YedekDetay" Or
(tdfRelink.name) = "tbl_Zirket" Then
'Þirkete linki þirket listesi ekranýnda kuruluyor.
Else
If .Tables(tdfRelink.name).Type = "LINK" Then
tdfRelink.Properties("Jet OLEDB:Link Datasource")
= _
strPath & strName & IIf(DefaultData,
"Data.Mde", ".mde")
End If

End If 'tbl_YedekDetay

'If an error occurs, exit the loop
If err.number Then
Exit For
End If
Next tdfRelink
End With

[salad]

cranfan wrote:

I'm using a relink method.It works fine but i have a question about
making it work fast.

If .Tables(tdfRelink.name).Type = "LINK" Then

in this line i put a breakpoint and look for the table
names(tdfRelink.name) but i see it includes my queries too.It checks
my queries too for linking and it makes it work slower.Is it necessary
or is it possible to pass linking queries or am i worng about that

problem is in here i guess---For Each tdfRelink In .Tables

i have about 50 tables but in line
Call SysCmd(acSysCmdInitMeter, "Tablolarla Baðlantý
Kuruluyor", .Tables.Count)
it counts about 400.
what is the thing i am missing here?
thanks for the help
*'*********************************

Public Function ReLink(strDir As String, DefaultData As Boolean) _
As Boolean

****
definitions etc.
****
Set cat = New ADOX.Catalog
With cat

'Use File Information class to extract the application
'database file name
.ActiveConnection = CurrentProject.Connection
oDBInfo2.FullName = strDir
strPath = oDBInfo2.FilePathOnly
strName = Left(oDBInfo2.Filename, InStr(oDBInfo2.Filename,
".") - 1)

'Disable error handling
On Error Resume Next

'Update progress meter
Call SysCmd(acSysCmdInitMeter, "Tablolarla Baðlantý
Kuruluyor", .Tables.Count)
'Call SysCmd(acSysCmdInitMeter,.Tables.Append

'Loop through each table, attempting to relink
For Each tdfRelink In .Tables
intCounter = intCounter + 1
Call SysCmd(acSysCmdUpdateMeter, intCounter)

If (tdfRelink.name) = "tbl_YedekDetay" Or
(tdfRelink.name) = "tbl_Zirket" Then
'Þirkete linki þirket listesi ekranýnda kuruluyor.
Else
If .Tables(tdfRelink.name).Type = "LINK" Then
tdfRelink.Properties("Jet OLEDB:Link Datasource")
= _
strPath & strName & IIf(DefaultData,
"Data.Mde", ".mde")
End If

End If 'tbl_YedekDetay

'If an error occurs, exit the loop
If err.number Then
Exit For
End If
Next tdfRelink
End With

Here's some code I found in Google groups.
Set cat = New ADOX.Catalog
With cat
.ActiveConnection = CurrentProject.Connection
For Each tbl In .Tables
If tbl.Type = "TABLE" Then
.Tables....
End If
Next tbl
End With
Set cat = Nothing

It appears you need to check the Type.

[cranfan]

On Mar 8, 5:16 pm, salad <[e-mail]:

cranfan wrote:

I'm using a relink method.It works fine but i have a question about
making it work fast.

If .Tables(tdfRelink.name).Type = "LINK" Then

in this line i put a breakpoint and look for the table
names(tdfRelink.name) but i see it includes my queries too.It checks
my queries too for linking and it makes it work slower.Is it necessary
or is it possible to pass linking queries or am i worng about that

problem is in here i guess---For Each tdfRelink In .Tables

i have about 50 tables but in line
Call SysCmd(acSysCmdInitMeter, "Tablolarla Baðlantý
Kuruluyor", .Tables.Count)
it counts about 400.
what is the thing i am missing here?
thanks for the help

*'*********************************

Public Function ReLink(strDir As String, DefaultData As Boolean) _
As Boolean

****
definitions etc.
****
Set cat = New ADOX.Catalog

With cat

'Use File Information class to extract the application
'database file name
.ActiveConnection = CurrentProject.Connection
oDBInfo2.FullName = strDir
strPath = oDBInfo2.FilePathOnly
strName = Left(oDBInfo2.Filename, InStr(oDBInfo2.Filename,
".") - 1)

'Disable error handling
On Error Resume Next

'Update progress meter
Call SysCmd(acSysCmdInitMeter, "Tablolarla Baðlantý
Kuruluyor", .Tables.Count)
'Call SysCmd(acSysCmdInitMeter,.Tables.Append

'Loop through each table, attempting to relink
For Each tdfRelink In .Tables
intCounter = intCounter + 1
Call SysCmd(acSysCmdUpdateMeter, intCounter)

If (tdfRelink.name) = "tbl_YedekDetay" Or
(tdfRelink.name) = "tbl_Zirket" Then
'Þirkete linki þirket listesi ekranýnda kuruluyor.
Else
If .Tables(tdfRelink.name).Type = "LINK" Then
tdfRelink.Properties("Jet OLEDB:Link Datasource")
= _
strPath & strName & IIf(DefaultData,
"Data.Mde", ".mde")

End If

End If 'tbl_YedekDetay

'If an error occurs, exit the loop
If err.number Then
Exit For
End If
Next tdfRelink
End With

Here's some code I found in Google groups.
Set cat = New ADOX.Catalog
With cat
.ActiveConnection = CurrentProject.Connection
For Each tbl In .Tables
If tbl.Type = "TABLE" Then
.Tables....
End If
Next tbl
End With
Set cat = Nothing

It appears you need to check the Type.- Hide quoted text -

- Show quoted text -

Thanks it solved my problem