PDA

Vollständige Version anzeigen : externes Programm öffnen, aber wie.


Sonne im Herz
24.10.2001, 16:13
Hallo

Wie kann ich ein Externes Programm aus Acces heraus öffnen.

Ich möchte es mit einem Button-click, in VBA.

Möchte gerne eine Exetabelle öffnen, eine Pascal-EXE und eine Visual Basic-EXE.

Gibt es dafür einen Code?

Dankeschön

Frank

cYz
24.10.2001, 16:21
warum in vba?

als macro gibts doch extra "ausführen anwendung" ... notfalls das ins vba konvertieren :)

(oder in der hilfe nach dem entsprechenden vba befehl suchen)

Stema
24.10.2001, 16:47
Hallo Frank,

fie Funktion heißt "Shell". Habe leider keine Zeit Dir ein Beispiel rauszusuchen. Findest Du aber in der VBA-Hilfe.

Sonne im Herz
24.10.2001, 16:49
OK, tut auch.

Ist zwar nicht so elegant, wie ich das gedacht habe, aber hauptsache es funzt.

Danke

Frank

Phillip-Berlin
24.10.2001, 17:09
beispiel für shell

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Private Sub</span> btnShellCmd_Click()
<span class="TOKEN">Dim</span> pfad
<span class="TOKEN">Dim</span> test <span class="TOKEN">As</span> <span class="TOKEN">String</span>
pfad = &quot;cmd /c del c:\testldb.txt&quot;
test = Shell(pfad, 1)
&nbsp;
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span></pre></div>

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Private Sub</span> Befehl0_Click()
<span class="TOKEN">Dim</span> test
test = Shell(&quot;C:\WINDOWS\notepad.EXE c:\test.txt&quot;, 1)
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span></pre></div>

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Private Sub</span> Befehl1_Click()
<span class="TOKEN">Dim</span> test
<span class="TOKEN">Dim</span> pfad <span class="TOKEN">As</span> <span class="TOKEN">String</span>
pfad = &quot;c:\Programme\Macromedia\Dreamweaver 4\Dreamweaver.exe&quot; &amp; &quot; &quot; &amp; Me.txtPfad1
<span class="TOKEN">Debug.Print</span> pfad
test = Shell(pfad, 1)
<span class="TOKEN">Debug.Print</span> test
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span></pre></div>

http://www.mvps.org/access/api/api0018.htm

HTH