title image


Smiley Re: Ausführen einer mdb oder mde Datenbank aus eine andere Access Anwendung
Damit kann man AFAIK alle registrierten Dateiarten öffnen/ausführen:



In einem Standartmodul:

Option Compare Database

Option Explicit



Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal Hwnd As Long, ByVal Ipoperation As String, _

ByVal Ipfile As String, ByVal Ipparameters As String, ByVal Ipdirectory As String, ByVal nshowcmd As Long) As Long





Dann im Formular z.B.:

Private Sub OpenFileBtn_Click()

On Error Resume Next

Dim DoOpenFile As Long, OpenFileVar As String



'Wenn Pfad und Datei in einem Formularfeld "Dateifld" stehen:

If Not IsNull(Me!Dateifld) Then

OpenFileVar = Me!Dateifld

DoOpenFile = ShellExecute(Me.Hwnd, vbNullString, OpenFileVar, vbNullString, vbNullString, 1)

Else

MsgBox "Es wurde keine Datei ausgewählt.", vbExclamation

End If



'bzw. gleich direkt:

OpenFileVar = "C:\BlaBla\DeineDatei.xyz" 'oder wie auch immer

DoOpenFile = ShellExecute(Me.Hwnd, vbNullString, OpenFileVar, vbNullString, vbNullString, 1)



End Sub
Gruss aus dem (wilden) Süden ;-) Karl-Heinz

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: