updating linked table (1 Viewer)

G

Gavx

Registered User.

Local time

Today, 14:22

Joined

Mar 8, 2014

Messages

151

• Jun 11, 2018

• #21

Thanks Gasman,
I cannot specify the name of the file unless I change it after the download.
The bank does not allow any interaction other than request the download.

I have eliminated the manual refreshing of the linked table (point 3 and 6).

 

Gasman

Enthusiastic Amateur

Local time

Today, 05:22

Joined

Sep 21, 2011

Messages

14,238

• Jun 12, 2018

• #22

Well I expect if you have eliminated 3 and 6, the process is a lot more streamlined and just a case of switching windows now?

Gavx said:

Thanks Gasman,
I cannot specify the name of the file unless I change it after the download.
The bank does not allow any interaction other than request the download.

I have eliminated the manual refreshing of the linked table (point 3 and 6).

Click to expand...

 

G

Gavx

Registered User.

Local time

Today, 14:22

Joined

Mar 8, 2014

Messages

151

• Jul 12, 2018

• #23

I have got this code to work before but now I can't, giving me a runtime error 3024, Could not find MyDB.accdb
Here is the code;

Code:Copy to clipboard

Private Sub cmdUpdate_Click()

Dim dbsCur As Database
Set dbsCur = OpenDatabase("MyDB.accdb")


Dim tdf As TableDef
    Set tdf = CurrentDb.TableDefs("tblCSVData")
    If Len(tdf.Connect) > 0 Then
        tdf.RefreshLink
    End If

End Sub

 

G

Gavx

Registered User.

Local time

Today, 14:22

Joined

Mar 8, 2014

Messages

151

• Jul 12, 2018

• #24

If I comment out

Code:Copy to clipboard

Dim dbsCur As Database
Set dbsCur = OpenDatabase("MyDB.accdb")

I am now getting the error I reported on post #8

 

arnelgp

..forever waiting... waiting for jellybean!

Local time

Today, 12:22

Joined

May 7, 2009

Messages

19,229

• Jul 12, 2018

• #25

you need to put the complete Path.

 

G

Gavx

Registered User.

Local time

Today, 14:22

Joined

Mar 8, 2014

Messages

151

• Jul 12, 2018

• #26

So I did as you suggested but still receive the same outcome
Here is the code;

Private Sub cmdUpdate_Click()
Dim dbsCur As Database
Set dbsCur = OpenDatabase("C:\Users\Gavin\MyDB.accdb")


Dim tdf As TableDef
Set tdf = CurrentDb.TableDefs("tblCSVData")
If Len(tdf.Connect) > 0 Then
tdf.RefreshLink
End If

End Sub

Click to expand...

 

arnelgp

..forever waiting... waiting for jellybean!

Local time

Today, 12:22

Joined

May 7, 2009

Messages

19,229

• Jul 12, 2018

• #27

You already open the database but you did not use its instance. Which db does tblcsvdata located.

 

G

Gavx

Registered User.

Local time

Today, 14:22

Joined

Mar 8, 2014

Messages

151

• Jul 12, 2018

• #28

tblCSVData is a table of MyDB.accdb