Automatyzacja/VB/Przyklad

Thread View: pl.comp.bazy-danych.msaccess

4 messages

[T] Back to Threads [V] Tree View [G] Group Articles

4 total messages Started by Waldemar Kusal Mon, 23 Nov 1998 12:05

#262

Author: Waldemar Kusal
Date: Mon, 23 Nov 1998 12:05

19 lines
1371 bytes

Czy ktos dysponuje przykladem na wywolanie aplikacji do podanego dokumentu z
bazy A97 w rodzaju...

 Dim oApp As Object
 Set oApp = GetObject("C:\ACCESS\TEST.DOC")
 oApp.Application.Visible = True

...Word sie uruchamia ale nie otwiera dokumentu test.doc.
Jesli nie tak, to moze cos takiego...

x = Shell("winword.exe " & Me!SciezkaDoPliku, 3)

...ale tu dla odmiany nie wiem jak podac nazwe pliku ze spacjami,
np "c:\access\Lista ciekawych ksiazek.doc"

Prosze o ewentualny kontakt na priv.
Z gory dziekuje.
Waldemar Kusal
waldek@budorex.com.pl

Re: Automatyzacja/VB/Przyklad

#263

Author: Marcin Rosiek
Date: Mon, 23 Nov 1998 13:17

14 lines
1196 bytes


Waldemar Kusal wrote:
> x = Shell("winword.exe " & Me!SciezkaDoPliku, 3)
> 
> ...ale tu dla odmiany nie wiem jak podac nazwe pliku ze spacjami,
> np "c:\access\Lista ciekawych ksiazek.doc"
> 
Sciezke mozesz zawsze podac w dodatkowych cudzyslowach. Np
x = shell("winword.exe ""c:\access\Lista ciekawych ksiazek.doc""", 3)

-- 
Pozdrawiam
Marcin Rosiek

Re: Automatyzacja/VB/Przyklad

#264

Author: Waldemar Kusal
Date: Mon, 23 Nov 1998 14:47

13 lines
1302 bytes

Marcin Rosiek napisał(a) w wiadomości: <36596001.C983B153@comarch.pl>...
>Sciezke mozesz zawsze podac w dodatkowych cudzyslowach. Np
>x = shell("winword.exe ""c:\access\Lista ciekawych ksiazek.doc""", 3)


Dzieki, pomoglo ale dzisiaj ciezko mysle i mam problem z rozwinieciem
przykladu:

 Plik = Me!Sciezka
 x = Shell("winword.exe "" & Plik & "'"", 3)  ....nie dziala!

waldek@budorex.com.pl

Re: Automatyzacja/VB/Przyklad

#265

Author: Marcin Rosiek
Date: Mon, 23 Nov 1998 15:20

25 lines
1519 bytes


Waldemar Kusal wrote:
> 
> Marcin Rosiek napisa³(a) w wiadomoci: <36596001.C983B153@comarch.pl>...
> >Sciezke mozesz zawsze podac w dodatkowych cudzyslowach. Np
> >x = shell("winword.exe ""c:\access\Lista ciekawych ksiazek.doc""", 3)
> 
> Dzieki, pomoglo ale dzisiaj ciezko mysle i mam problem z rozwinieciem
> przykladu:
> 
>  Plik = Me!Sciezka
>  x = Shell("winword.exe "" & Plik & "'"", 3)  ....nie dziala!
> 
> waldek@budorex.com.pl

pamietaj o podwojnych cudzyslowach
  Plik = Me!Sciezka
  x = Shell("winword.exe """ & Plik & """", 3)
 
powinno dzialac.

-- 
Pozdrawiam
Marcin Rosiek

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads