Billeder på formular via hyperlink

Du kan finde en vejledning på Teknologisk Instituts hjemmeside. Jeg har en komplet vejledning hjemme, som jeg kan sende dig. Men først imorgen da jeg er på tjenesterejse.

Blot læg din e-mail

Tak, men jeg har været inde på Teknologisk instituts hjemmeside, det eksempel refererer til et et tekstfelt, og ikke som jeg har et tabelfelt med et hyperlink til min billedfil som ligger udenfor databsen, i en billedmappe.

Lyder interessant med din beskrivelse, her min mail.

mvh
cuac

Skylder måske lige at sige at visningen skal ske i et billedobjekt på min formular.

mvh
cuac

Jeg har på et tidspunkt lavet en større DB til en kunstner der ønskede at holde rede på hans produktioner (ca. 600 malerier).

Jeg satte blot div. billeder direkte ind. Desværre konveterer Access dem jo så til BMP'er og DB'en bliver stor og tung, men hvis man kun skal arbejde med den en gang i mellem går det nu alligevel ... Jeg etablerede også muligheden for at se billederne i en 'Images viewer' - måske du kan bruge det til noget ...

Desværre, jeg vil gerne se dem direkte på min formular sammen med andre oplysninger som hører til posten. Jeg har prøvet at køre ovennævnte kode, men Access 2000 generer en fejl som ser således ud:

Run Time Error '2220':
Microsoft Access kan ikke åbne filen "#C:\testbibliotek\testfil.jpg#"

cuac

Hmm, har du prøvet med en .bmp (testfil.bmp) ?

På din form indsætter du et billede (billede1).

Derefter kan du bruge følgende kode:
Private Sub Form_Current()
Dim fso As New FileSystemObject 'Variabel til filsystemet
If fso.FileExists([Dit filnavnfelt]) Then 'Hvis fil eksisterer
    Billede1.Picture = [Dit filnavnfelt]
Else
    Billede1.Picture = ""
    Exit Sub
End If
End Sub

Jeg er dog i tvivl om hvordan det vil virke på et hyperlinkfelt. Hvis du har hele filstien + filnavn stående vil det garanteret virke.

Min kode ser sådan ud:
Private Sub Form_Current()
Dim fso As New FileSystemObject
If fso.FileExists("I:\intranet\personale\fotos\" & [Initialer] & ".jpg") Then
    Billede1.Picture = "I:\intranet\personale\fotos\" & [Initialer] & ".jpg"
Else
    Billede1.Picture = ""
    Exit Sub
End If
End Sub

Mugs, hvor finder man den slags koder på teknologisk instituts hjemmeside?

tipman:

http://www.cit.teknologisk.dk/brugergrupper/accesserfa/videnbase/default.asp

Private Sub Form_Current()
' Hvis vi har et billede så vis det ellers tomt felt
    If Not IsNull(Me!Billednavn) Then
        Me!Billede.Picture = CurrentProject.Path & "\Billeder\" & Me!Billednavn
        Else
        Me!Billede.Picture = ""
    End If

Hvis du har billedmappen i samme mappe som databasen kan lave den sådan her.
så behøver du kun et felt til billednavn.

cuac > hvorfor hyperlink, og ikke tekstfelt? Mangler stadig din e-mail.

Lav også en knap der åbner mappen billeder i stifinder.
Følgende kode klarer det.

  Dim Mappesti As String
Dim retval

Mappesti = CurrentProject.Path & "\Billeder\"
retval = Shell("C:\WINDOWS\EXPLORER.EXE  " & Mappesti, 1)

Tak for de mange indlæg, jeg er ny på sistet og ganske overrasket over de hurtige svar. Til mugs, grunden til at jeg har brugt hyperlink er at jeg har en funktion på min formular som indsætter hyperlink til en udvalgt fil i et postfelt i en af mine tabeller. I min kommentar til dig mugs, krydsede jeg feltet E-Mail af, og forventede så at du automatisk fik min mail????. Jeg har brugt begge løsninger fra tipman/rosco så point til jer begge - tak. Til en orientering arbejder jeg med access som frontend til en SQL 7 database, jeg har lige fundet ud af at denne ikke understøtter hyperlink i tabeller!

mvh
cuac