Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datei aus dem Access heraus öffnen
zurück: herkunftsobjekt eines Unterformula per Button verändern weiter: Summe in Formular bilden Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
napsi
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Okt 2006, 21:34
Rufname:

Datei aus dem Access heraus öffnen - Datei aus dem Access heraus öffnen

Nach oben
       Version: Office 2003

Hallo Miteinander!

Ich habe ein Formular, welches aus den Feldern ID, Dateipfad und Beschreibung besteht.

Der "Dateiupload" (Pfad wird in Datenbank geschrieben) funktioniert eh, mit folgendem Code
Code:
    Me!Zubehoer_Datei = DateiOeffnen("Datei auswählen")
Weiters habe ich folgendes Modul eingebaut:
Code:
Public Function DateiOeffnen(Optional Titel, Optional Filter, _
                             Optional DefExtension, Optional AktDir) As String
    Dim strDateiname As String
    Dim strDlgTitel As String
    Dim strFilter As String
    Dim strDefExtension As String
    Dim strAktDir As String
    Dim strNull As String
    Dim OpenDlg As OPENFILENAME

    strNull = Chr$(0)
    strDateiname = String$(512, 0)
    If IsMissing(Titel) Then
        strDlgTitel = "Datei öffnen" & strNull
      Else
        strDlgTitel = Titel & strNull
    End If
    If IsMissing(Filter) Then
        strFilter = "Alle Dateien" & strNull & "*.*" & strNull & strNull
      Else
        strFilter = Filter & strNull
    End If
    If IsMissing(DefExtension) Then
        strDefExtension = strNull
      Else
        strDefExtension = DefExtension & strNull
    End If
    If IsMissing(AktDir) Then
        strAktDir = CurDir$ & strNull
      Else
        strAktDir = AktDir & strNull
    End If
    With OpenDlg
        .lStructSize = Len(OpenDlg)
        .hwndOwner = Screen.ActiveForm.hwnd
        .lpstrFilter = strFilter
        .nFilterIndex = 1
        .lpstrFile = strDateiname
        .nMaxFile = Len(strDateiname)
        .lpstrInitialDir = strAktDir
        .lpstrTitle = strDlgTitel
        .Flags = OFN_FILEMUSTEXIST Or OFN_READONLY
        .lpstrDefExt = strDefExtension
        If GetOpenFileName(OpenDlg) <> 0 Then
            DateiOeffnen = Left$(.lpstrFile, InStr(.lpstrFile, strNull) - 1)
          Else
            DateiOeffnen = ""
        End If
    End With
End Function
Wie gesagt der Upload funkt, jetzt will ich aber, wenn ich auf einen Button Drücke, diese DAtei öffnen.

Wie geht das Bitte

lg.

Napsi
Willi Wipp
Moderator


Verfasst am:
18. Okt 2006, 00:38
Rufname:
Wohnort: Raum Wiesbaden


Re: Datei aus dem Access heraus öffnen - Re: Datei aus dem Access heraus öffnen

Nach oben
       Version: Office 2003

Hi napsi,

das kommt auf den Dateityp an Wink bei Dateien die Du im Explorer mit Doppelklick oeffnen kannst,
kanst Du es mit FollowHyperlink Me!Zubehoer_Datei versuchen

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Mit Hilfe einer Maske ein Verzeichnis einer Datei ermitteln! 0 Steveb 473 29. Jul 2008, 07:23
Steveb Mit Hilfe einer Maske ein Verzeichnis einer Datei ermitteln!
Keine neuen Beiträge Access Tabellen & Abfragen: Webbrowser über Ereignisprozedur öffnen 2 fizlipuzli 1492 21. Mai 2008, 13:37
fizlipuzli Webbrowser über Ereignisprozedur öffnen
Keine neuen Beiträge Access Tabellen & Abfragen: Importieren von Excel Datei als Memo 0 Gustl 1093 08. Mai 2008, 14:48
Gustl Importieren von Excel Datei als Memo
Keine neuen Beiträge Access Tabellen & Abfragen: Formular öffnen nach autom. abfrage 2 Melanie08 511 26. Feb 2008, 12:24
Melanie08 Formular öffnen nach autom. abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Excel Tabelle aus Access öffnen 4 Gero16 1906 10. Feb 2008, 12:38
Gast Excel Tabelle aus Access öffnen
Keine neuen Beiträge Access Tabellen & Abfragen: "Dynamische Abfragen" Tabelle vor öffnen der Abfra 1 smux 1280 11. Jan 2007, 12:35
JörgG "Dynamische Abfragen" Tabelle vor öffnen der Abfra
Keine neuen Beiträge Access Tabellen & Abfragen: datei verlinken 2 office krüppl 677 20. Dez 2006, 10:50
Gast datei verlinken
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage nicht öffnen - trotzdem Abfragen - möglich? 3 mikase 599 01. Sep 2006, 12:50
mikase Abfrage nicht öffnen - trotzdem Abfragen - möglich?
Keine neuen Beiträge Access Tabellen & Abfragen: Kennwort in End datei 2 GuidoR 1209 08. Apr 2006, 13:23
GuidoR Kennwort in End datei
Keine neuen Beiträge Access Tabellen & Abfragen: Problem mit Tabellenerstellungsabfrage in temp. Datei 2 Uwe Schönfeld 598 23. Feb 2006, 17:25
Uwe Schönfeld Problem mit Tabellenerstellungsabfrage in temp. Datei
Keine neuen Beiträge Access Tabellen & Abfragen: Ein Formular mit Kriterien aus zwei anderen öffnen. 4 blicki 809 03. Feb 2006, 08:14
blicki Ein Formular mit Kriterien aus zwei anderen öffnen.
Keine neuen Beiträge Access Tabellen & Abfragen: Formular mit Wert abfrage aus Tabelle öffnen 2 Acidrocker 1016 23. Jan 2006, 10:23
Lamer² Formular mit Wert abfrage aus Tabelle öffnen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web