.jpg in rapport

[dePruts]

Dag allemaal,
Ben jarenlang gebruiker geweest van Access maar wilde mij nu toch wagen aan het opzetten van een simpele DB voor het inventariseren van inboedel met bijbehorende foto's.
DB bestaat uit 3 tabellen (Inventaris-Locatie-Eigendom), 1 formulier voor de ingave van de items en 1 rapport.
Zoals elke beginneling ben ik gestart met de niet aangewezen methode, namelijk het importeren van .bmp's in de DB wat de omvang ervan, met slechts 300 foto's erin, op 112 MB bracht.
Wat rond gekregen op dit forum en onder andere ook op de support site van Microsoft en ontdekte daar dat ik ook met bijlagen kon werken. Dat uit geprobeerd en de omvang van de DB verkleinde met een factor 10 tot 12 MB en zowel in het formulier als in het rapport zijn de foto's zichtbaar.
Echter, de laatste 20 jaar van mijn actieve carrière als verzekeringsconsulent had ik voor een bepaalde klant een Access DB gemaakt door een IT-consultant. Daarin zaten een slordige 2.700 items, waarvan er ongeveer een 2.500 met foto en onder .jpg formaat en die DK was maar 2MB groot. Ik wist dus dat het nog anders kan. Ben dan gericht gaan zoeken op HelpMij en heb in een vraag van 6 oktober 2011: "Foto's in Access Formulier" de oplossing gevonden daar aangereikt door OctaFish.
Die oplossing toegepast in mijn DB op het formulier en ze werkt. Echter, in het rapport is dat niet het geval. Ben al enkele dagen op zoek naar de oplossing, maar spijtig genoeg zonder resultaat.
Zou iemand mij een zetje in de goeie richting kunnen geven a.u.b.
Als bijlage de DB opgemaakt in Access 2010.
Met dank.
dePruts

 

[OctaFish]

Ik zal daar proberen naar te kijken vanavond, maar het zal wel morgen worden. Wat je wil kan uiteraard prima, ik zet regelmatig foto's op rapporten. En inderdaad, het is ongeveer 300 jaar geleden dat ik voor het laatst een foto binnen de db heb opgeslagen; sinds de Romeinen zijn verjaagd sla ik ze buiten de database op .

 

[PaulCr]

Wijzig Detail_Format in Details_Format in rpt_Inventaris
en declareer de variabele sCheck (Wijzig Dim MyFoto in Dim sCheck)

Dit zou moeten werken

Paul

 

[dePruts]

Dag Paul,
Heb jouw raad gevolgd en het werkt inderdaad.
Bedankt voor de snelle respons op mijn vraag.
VBA is voor mij zoals je wel zal vermoeden nog een grote onbekende, waar ik mij toch nog wat verder zal moeten in verdiepen.
Fijne avond nog.
de Pruts

 

[PaulCr]

@ dePruts

Ik ben ook maar een amateur. Er zijn nog op- / aanmerkingen op je database zoals de relaties tussen je tabellen ( je gebruikt geen referentiele integriteit waardoor er eigenlijk geen relaties zijn)
Maar het aanbrengen van deze aanmerkingen laat ik over aan een specialist zoals Octafish.

Een goede raad : lees de handleidingen van Octafish, ik heb er veel uit geleerd.

Paul

 

[OctaFish]

Het aanpassen van de variabelenaam doet in dit geval niet zoveel, omdat je variabelen niet verplicht declareren hebt gemaakt (met Option Explicit bovenin). Dus in de huidige situatie gebruik je een niet-gedefinieerde variabele (dat mag dus) en gebruik je een wél gedefinieerde variabele niet. Ook dat mag .

De ontstane fout is eigenlijk vreemd; als je het formulier in Design view hebt geopend, en je klikt op Eigenschappen van de Details sectie, dan kun je, als je de gebeurtenis <Bij opmaken> kiest, nooit een fout maken in de naamgeving van de procedure. Die krijgt automatisch de juiste syntax:

Private Sub Details_Format(Cancel As Integer, FormatCount As Integer)

End Sub

Daar hoef je dan alleen maar je code tussen te plakken. Dus eigenlijk heel vreemd dat je ergens in het proces de 's' bent kwijtgeraakt . Je had dat zelf ook kunnen controleren, want als je na het opslaan en openen van je formulier naar je Gebeurtenissen zou hebben gekeken, dan had je niks gezien bij de optie <Bij opmaken>. En daar had dus dit moeten staan: [Gebeurtenisprocedure]. Zie je dat niet, dan weet je dus dat er wat fout is gegaan.

 

[dePruts]

Dag Paul,
Bedankt voor je reactie en de handleidingen van OctaFish daar heb ik sinds ik ze eind vorig jaar heb gedownload al redelijk wat in gelezen. Wat niet wil zeggen dat ik alles voor 100% begrepen heb, maar dat ligt zeker niet aan de auteur van het handboek.
Ben toen gestart met een ander project dat momenteel bijna volledig op punt staat en waarin ik ook heel wat heb gebruikt dat ik op HelpMij vond. Heb nog 1 dingetje waarmee ik worstel en waarvoor ik naar een oplossing op zoek ben. Kom ik er niet uit, zal dat stof zijn voor mijn volgende vraag.
In de relaties heb ik ondertussen wel de referentiële integriteit ingesteld. Was ik vergeten.

OctaFish,
Zoals gezegd heb ik niet veel kaas gegeten van VBA.
Echter, uit jouw reactie leerde ik al een paar zaken.
1. Hoe je code dient in te geven, zodat je de correcte syntax krijgt.
2. Dat de naam van de syntax in kwestie verschillend was in Access 2000 en 2010.
Heb namelijk de syntax gewoon gekopieerd uit een andere DB, zijnde de Inventaris waarin 2.500 foto's zitten die ik al vermeld had in mijn 1ste bericht en waarvan schermafdruk in bijlage. En daarin werkt dat wel, dus ... ik als onwetende.

In elk geval wil ik jullie beiden danken voor de hulp.
Mede daardoor heb ik ondertussen de inventaris van de inhoud van een woning van een vriend kunnen opmaken zodat die verder kan met de afhandeling van de successie van zijn recent overleden partner.
Met vriendelijk groet.
de Pruts