Can you help me write a simple code? (1 Viewer)

R

rgwood86

Registered User.

Local time

Today, 20:40

Joined

May 5, 2017

Messages

24

• Feb 22, 2018

• #21

Nearly there!!!

Ok, so the below code works perfectly other than I still get the error message appear, but at least it does open the test database and closes the one I started the code in. Is there a way of removing this error message?

The error message only appears once and fills the screen which is a little unusual

 

isladogs

MVP / VIP

Local time

Today, 20:40

Joined

Jan 14, 2017

Messages

18,209

• Feb 22, 2018

• #22

In future, add a debug line:

Code:Copy to clipboard

Debug.Print strPath & "\" & strName

Run the code and check the output in the VBE immediate window is what it should be

Anyway, to solve the issue with the spaces, add two more quotes changing the line to:

Code:Copy to clipboard

Call Shell("msaccess.exe "[COLOR="Red"][B]""[/B][/COLOR] & strPath & "\" & strName, vbMaximizedFocus)

or better still remove spaces from folder & file names!

 

R

rgwood86

Registered User.

Local time

Today, 20:40

Joined

May 5, 2017

Messages

24

• Feb 22, 2018

• #23

ridders said:

In future, add a debug line:

Code:Copy to clipboard

Debug.Print strPath & "\" & strName

Run the code and check the output in the VBE immediate window is what it should be

Anyway, to solve the issue with the spaces, add two more quotes changing the line to:

Code:Copy to clipboard

Call Shell("msaccess.exe "[COLOR=red][B]""[/B][/COLOR] & strPath & "\" & strName, vbMaximizedFocus)

or better still remove spaces from folder & file names!

Click to expand...

Colin...... I could kiss you right now!!!

Thanks again

 

isladogs

MVP / VIP

Local time

Today, 20:40

Joined

Jan 14, 2017

Messages

18,209

• Feb 22, 2018

• #24

Thankfully I'm a safe distance away

EDIT Many thanks for the kind reputation comment. For future info, points aren't awarded unless you also tick 'I approve'

 

moke123

AWF VIP

Local time

Today, 15:40

Joined

Jan 11, 2013

Messages

3,910

• Feb 22, 2018

• #25

crossposted http://www.utteraccess.com/forum/index.php?showtopic=2047871&hl=

I dont do much with excel but it seems to me that all you need to do is drop the table (linked excel file) and relink it with docmd.transferSpreadsheet.

 

Last edited: Feb 22, 2018

isladogs

MVP / VIP

Local time

Today, 20:40

Joined

Jan 14, 2017

Messages

18,209

• Feb 22, 2018

• #26

That explains why I hadn't seen it then ....