Foto in formulier

[jojans]

Voor ons kerkhof probeer ik 1500 foto's aan een database toe te voegen.
Velden:
Naam
overleden
vak
nummer
Afbeelding

Database en de map Afbeeldingen staan in dezelfde map Kerkhof.

Ik volg het advies van jullie redacteur OctaFish:
1. Maak van het veld [Plant Afbeelding] een tekstveld.
2. Typ in de records in dit veld de naam van de afbeelding.
3. Maak een map Afbeeldingen in de map waar de db in staat, en zet daar al je afbeeldingen in.
4. Maak een Image object aan op je formulier, en zet daar een willekeurige afbeelding in.
5. Verander de eigenschap <Afbeeldingstype> van <ingesloten> naar <Gekoppeld>
6. Verwijder de naam van de afbeelding; het plaatje is nu leeg.
7. Maak onderstaande code aan in het formulier bij de eigenschap <Bij aanwijzen>
Code:

Private Sub Form_Current()
    If Not Me.PlantAfbeelding & "" = "" Then
        Me.imgAfbeelding.Picture = CurrentProject.Path & "\Afbeeldingen\" & Me.PlantAfbeelding
    Else
        Me.imgAfbeelding.Picture = ""
    End If
End Sub

Mijn eigen code ziet er als volgt uit:

Private Sub Form_Current()
    If Not Me.Afbeelding & "" = "" Then
        Me.imgAfbeelding.Picture = CurrentProject.Path & "\" & Me.Afbeeldingen
    Else
        Me.imgAfbeelding.Picture = ""
    End If
End Sub

Ik krijg de foutmelding:
Compileerfout
Ik kan de methode of gegevenslid niet vinden. Met een blauwe markering van Afbeelding ( naam van het veld).


Wie kan er hulp bieden.

Gr.
Joop

 

[OctaFish]

Als je een map Afbeeldingen hebt gemaakt in de map van je db, dan moet je die map nog toevoegen aan je pad:

Me.imgAfbeelding.Picture = CurrentProject.Path & "\Afbeeldingen\" & Me.Afbeeldingen

 

[jojans]

Dank voor uw snelle reactie.
Geen foutmelding meer maar ook nog geen foto in het formulier.

kopie van de tabel.

Id Naam Overleden op Vak / Pad Nummer in vak Afbeelding
1 Aa, Chr. C. E. van der 1930-12-20 A 84 A

Joop

 

[OctaFish]

Geen idee wat je nu gepost hebt. Ik zie er in ieder geval geen naam van een afbeelding bij staan, want die heeft minstens een extensie als .jpg o.i.d.

 

[jojans]

De kopie van de tabel is iets in elkaar geschoven.
Nogmaals
Bij Afbeelding staat zeker de naam van de afbeelding: A 84.JPG

Id Naam Overleden op Vak / Pad Nummer in vak Afbeelding
1 Aa, Chr. C. E. van der 1930-12-20 A 84 A A 84.JPG


Geen foto in formulier
Afbeeldingstype: gekoppeld


Als ik van de ontwerpweergave naar de formulierweergave overschakel komt toch weer de foutmelding
Compileerfout
kan het gegevens lid niet vinden.

Private Sub Form_Current()
If Not Me.Afbeelding & "" = "" Then
Me.imgAfbeelding.Picture = CurrentProject.Path & "\Afbeeldingen\" & Me.Afbeeldingen
Else
Me.imgAfbeelding.Picture = ""
End If
End Sub

??????

 

[OctaFish]

Dan wordt het tijd voor een voorbeeldje!

 

[jojans]

Ingepakt is het voorbeeld 500kb. Te groot om als bijlage mee te sturen. Geen idee hoe onder 100kb te komen. Database is al helemaal ingekort.

Joop

 

[OctaFish]

Met Winrar kun je hem a) kleiner krijgen en b) opdelen in stukken van 100kb. En die kun je wel posten

 

[jojans]

Database gecomprimeerd in acces en daarna in Winrar. Toch zes stukken.

Voor de duidelijkheid; Veldnaam voor de fotonamen is Afbeelding.
De foto's zijn opgeslagen in de map Afbeeldingen.
De database en de map Afbeeldingen staan allebei in de map Kerkhof.

Gr.
Joop

 

[OctaFish]

Geen idee waarom jouw db zo groot is; er zit een tabel in met één record, en een formulier zonder afbeeldingen. Ik heb de tabel in het formulier in een lege db geïmporteerd, en hij is nu gecomprimeerd klein genoeg.
Jouw probleem is heel simpel: je hebt de aanwijzingen niet gevolgd. In mijn code heb je een tekstveld [Afbeelding] nodig met de naam van de afbeelding, een Afbeeldingsobject met de naam [imgAfbeelding] en een map [Afbeeldingen] waar de afbeeldingen in staan. Jij hebt geen van allen. En dan doet de procedure het uiteraard niet. Je hebt nog wel een Afbeeldingsobject met de naam [koppeling]. Die zou je kunnen hernoemen, of je gebruikt de juiste naam in de code, dat kan natuurlijk ook. Meest belangrijke fout: je tabelveld [Afbeelding] moet echt op het formulier, want waar moet de code anders de naam van de afbeelding vandaan halen?

 

[jojans]

Bedankt voor het corrigeren van de database. De aanpassing van de naam van het Afbeeldingsobject en het plaatsen van het tabelveld [Afbeelding] in het formulier.
De map Afbeeldingen en de database staan allebei in dezelfde map Kerkhof.
Toch heb ik geen foto op het formulier.
Geen idee wat er nog kan worden aangepast!

Joop

 

[OctaFish]

Dit plaatje bewijst dat de db prima werkt..... Ik heb geen idee waarom je dus niks ziet; het enige dat ik mij kan voorstellen is dat je de afbeeldingen verkeerd opslaat in je tabel. Bijvoorbeeld door geen extensie te bewaren.

 

[jojans]

Goede middag,

Alles werkt nu perfect. Ik heb wel het beveiligingsniveau moeten aanpassen om de afbeelding weer te geven.
Veel dank voor het werk en het geduld.
Groet
Joop