title image


Smiley Re: Followhyperlink ==> Web-Symbolleiste
Öffne die Dateien statt per Followhyperlink so:



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: