Re: Felddatentyp Hyperlink
Posted in 1998
Topics: Data Types & Schema Design
Hi, generell kann ein Hyperlink fast genau durch ein ShellExecute nachgebildet werden. Besorg dir mal die KnowHow und das Modul mdlStartDoc, da ist es beschrieben. (Siehe auch Anhang) mfg Klaus PS:Tips und Tricks zu ACCESS 97 (**neu** KnowHow-MDB **neu** Ver 1.4: 30.4.98) unter http://www.webdesigners.de/Accessware/ oder http://www.freeaccess.de PPS: bitte XXX aus meiner EMail-Adresse entfernen (SpamSchutz) Option Compare Database Option Explicit 'ShellExecute '------------ '16-bit: Declare Function ShellExecute Lib "SHELL" (ByVal _ ' hwnd As Integer, ByVal lpszOp As String, ByVal lpszFile _ ' As String, ByVal lpszParams As String, ByVal lpszDir As _ ' String, ByVal fsShowCmd As Integer) As Integer Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _ As String, ByVal lpFile As String, ByVal lpParameters _ As String, ByVal lpDirectory As String, ByVal nShowCmd _ As Long) As Long ' Mit dieser Funktion kann irgendein Shell-Prozess gestartet werden, sofern ' der 'bergebene Name mit einer Anwendung verkn'pft ist. Er wirkt wie ein ' Hyperlink-Pfad. Der 'bergebene Pfadname ist der Name des Pfades, der beim ' Start der Applikation als Start-Pfad verwendet werden soll. ' Beispiel: Nix = StartDoc("C:\\Eigene Dateien\\Test.doc", "C:\\") ' Beispiel: Nix = StartDoc("C:\\Eigene Dateien\\Test.bmp", "C:\\") ' Beispiel: Nix = StartDoc("mailto:Hugo@emil.de", "C:\\") ' Beispiel: Nix = StartDoc("http://www.microsoft.com", "C:\\") Function StartDoc(ByVal DocName As String, ByVal PathName As String) Const SW_SHOWNORMAL = 1 On Error GoTo StartDoc_Error StartDoc = ShellExecute(Application.hWndAccessApp, "Open", DocName, "", PathName, SW_SHOWNORMAL) Exit Function StartDoc_Error: MsgBox "Error: " & Err & " " & Error Exit Function End Function Harry Meyer schrieb in Nachricht <6mvml9$sfo$1@guru.freeway.de>... >ja OK, aber ich suche nach einer M'glichkeit, die Informationen aus dem >Hyperlinkfeld der Tabelle mit dem "look and feel" eines Hyperlinks in einem >Endlosformular darzustellen... und das, obwohl das zugeh'rige Tabellenfeld >in einer Informixdatenbank steht und vom Typ VARCHAR ist. > >-- >Harry Meyer hm@a-w.de >Albat + Wirsam, Linden > >