Hoe bouw ik een quiz met foto's

[MarcMangelschots]

Hoi helden,

Ik heb een heleboel foto's van vogels en ik zoek naar een manier om deze foto's in een quiz te verwerken.
Waarschijnlijk zijn er twee mogelijkheden?
Ofwel bewaar ik elke foto in een veld maar daarvan weet ik al niet of dit gaat.
Beter lijkt me om deze foto's in een directory op te slaan en in de tabel te verwijzen naar het pad en de naam van de foto.
Dus concreet zou dit zoiets kunnen worden:

[table="width: 500"]
[tr]
[td]ID[/td]
[td]naam[/td]
[td]pad[/td]
[/tr]
[tr]
[td]1[/td]
[td]Zilvermeeuw[/td]
[td]c:/quiz/zilvermeeuw.jpg[/td]
[/tr]
[tr]
[td]2[/td]
[td]Grote Stern[/td]
[td]c:/quiz/grote stern.jpg[/td]
[/tr]
[/table]


Achteraf moet deze foto dan uiteraard ook in een access-formulier kunnen getoond worden.
Ik heb echter geen idee hoe ik dit pad in de database kan krijgen, moet hiervoor een soort van koppeling (odbc??) gemaakt worden?

Heeft er iemand een idee hoe ik dit kan aanpakken?
Alvast bedankt voor jullie tijd en advies.

groetjes,

Marc

 

[OctaFish]

De tweede optie is uiteraard de beste, want die geeft de minste belasting voor de db. Het pad zou ik niet volledig opnemen, maar alleen vanaf de submap, er vanuit gaande dat de db ook in de map quiz staat. Ik zou dan de afbeeldingen plaatsen in de submap Afbeeldingen.

ID naam pad
1 Zilvermeeuw c:/quiz/afbeeldingen/zilvermeeuw.jpg
2 Grote Stern c:/quiz/afbeeldingen/grote stern.jpg

Op je formulier krijg je dan:

Private Sub Form_Current()
On Error GoTo Foutafhandeling
Dim strFotos As String, tmp As String
    
    strFotos = Application.CurrentProject.Path & "\Afbeeldingen\"
    tmp = Dir(strFotos & Me.foto)
    If tmp & "" <> "" Then
        With Me.imgProfiel
            .Visible = True
            .Picture = strFotos & tmp
            .Width = 4000
            .Height = 4000
        End With
    Else
        Me.imgProfiel.Visible = False
    End If
    Exit Sub

Foutafhandeling:
    MsgBox Err.Number & "  " & Err.Description

End Sub

En met die constructie kun je de db neerzetten waar je wilt, hij blijft altijd werken.

 

[MarcMangelschots]

Dankjewel Michel voor je snelle reactie!
Als ik het goed begrijp moet er dus zelfs geen koppeling worden gelegd, maar definieer ik het veld met de info over de foto gewoon als tekstveld en zet ik er in het concrete voorbeeld simpel zilvermeeuw.jpg in?
Dat valt mee dan, ik vreesde dat het complexer zou zijn.
Nogmaals dank voor de toelichting en ik zal de Handleidingsectie ook eens doorploegen.

groetjes,

Marc

 

[OctaFish]

Als je de fotoextensie ook opneemt in het tekstveld (wellicht gebruik je meerdere extensies) dan kan de code nog korter:

    tmp = Dir(strFotos & Me.foto)

Verder heb je het prima gesnopen