ole object in access

het nummer van de doos waar 2 puzzels inzitten geeft hij goed aan de namen verschillen de omschrijving van de foto's is ook verschillend maar de foto is gelijk van de bovenste omschrijving
 

Bijlagen

  • Schermafbeelding 2025-04-22 211023.png
    Schermafbeelding 2025-04-22 211023.png
    115 KB · Weergaven: 7
Ik zet de spullen morgen wel in de database :).
 
oke, zou mooi zijn ik krijg het niet zo dat ik twee verschillende foto's krijg bij 1 doos nummer
 
Even geduld nog, heb ook nog andere bezigheden in het leven :).
 
jan62 zei:
de foto is gelijk van de bovenste omschrijving
Klik om te vergroten...
Dat 'probleem' had ik al beschreven #37, maar daar is dus wel een mouw aan te passen. Om te beginnen: klik in het record wat je wilt zien; dat wordt dan actief. Je ziet dan ook het juiste plaatje, Als je dan op de afbeelding klikt, wordt de juiste foto vergroot.

In de bijlage die ik nu meestuur is e.e.a. op een iets andere manier opgelost, met VBA onder de navigatieknoppen. En er is een extra veld gemaakt in de onder het formulier liggend query waarin het ontbreken van een foto wordt afgevangen met een dummyfoto. Alle gebruikte foto's stuur ik weer mee, zodat je nu voldoende plaatjes hebt om mee te stoeien :).

Daarnaast heb ik in het subformulier de optie <Toevoegingen toestaan> uitgezet, zodat je in beginsel geen leeg record meer ziet. Daarmee heb je dus ook geen 'kopie' in beeld van het geselecteerde record als er nog geen record is. Als je op de knop <Nieuw record> klikt, wordt de status weer hersteld en krijg je gewoon een nieuw record dat je kan invoeren en bewerken. Dan kun je dus ook een nieuw plaatje toevoegen.
Daarnaast heb ik een knop <Foto vervangen> toegevoegd waarmee je het fotoveld leegmaakt, en gelijk een andere foto kan opzoeken.

Als je de rar bestanden "Afbeeldingen" weer uitpakt in de map waar de db staat, is alles in beginsel weer te gebruiken.
 

Bijlagen

En ik kan maar 10 bestanden toevoegen, dus hier de database :).
 

Bijlagen

dankjewel, en ik snap er is meer in het leven ook ik heb de nodige bezigheden die tijd in beslag nemen, mede doordat we vervelende weken hadden door ziekte van mijn vrouw. gelukkig gaat het de goed kant weer op
 
Maar 't is een leuke onderbreking om de hersenen even aan het werk te zetten :)
 
helemaal waar, ik ben met pensioen en dan is dat goed voor de brein.................:)
 
dit lijkt nu goed, ik heb nu 2 foto's van de puzzels die verschillend zijn, maar als ik op de foto's klik voor een grotere in een popup formulier dan geeft hij de bovenste weer ook als ik op de onderste klik. hen even gekeken naar de procedure code maar daar kan ik niet uit wijs worden hoe dat anders moet. Als je de ontwerpweergave doet in fpuzzels zie je ook maar 1 record waar je iets aan kan wijzigen. Dit zal zo horen anders was dit niet zo gedaan.
 

Bijlagen

  • Schermafbeelding 2025-04-24 093350.png
    Schermafbeelding 2025-04-24 093350.png
    97 KB · Weergaven: 1
jan62 zei:
Als je de ontwerpweergave doet in fpuzzels zie je ook maar 1 record waar je iets aan kan wijzigen. Dit zal zo horen anders was dit niet zo gedaan.
Klik om te vergroten...
Dát heb ik je dus uitgelegd in #47 :). Een doorlopend formulier is in feite hetzelfde als een enkelvoudig formulier (je kunt ook probleemloos switchen in de Eigenschappen van Enkelvoudig naar Meervoudig). Er staat dus maar één object van alles op het formulier. Het enige verschil is, dat een doorlopend formulier die objecten herhaalt.

Maar het probleem dat je beschrijft snap ik niet, want bij mij werkt het perfect! Er is wel een trucje aan te pas gekomen, want je ziet in een doorlopend formulier met minimaal twee records dus meerdere records, en je wilt per record de juiste afbeelding zien, en in de popup vertonen.

En dáár gaat het dus wat anders, want een niet-afhankelijk object, zoals het Imageframe dat voor de thumbnails wordt gebruikt, is niet aan een record gekoppeld, dus om het juiste record te zien, moet je in het doorlopend formulier eerst dat record geselecteerd hebben. Anders kan de popup niet de juiste foto laten zien.
Daar is dus een trucje voor gemaakt: een onzichtbare (transparante) opdrachtknop die net zo groot is als de Imageframe, en daar dus volledig overheen valt. In beginsel gebeuren er dus twee acties als je op een foto klikt: je start de VBA code die achter de knop hangt, én je klikt op de popup die de foto opent.
Die onzichtbare knop selecteert eerst het juiste record, zodat de juiste foto naar de popup gaat.

Code: 
Private Sub Knop47_Click()
    DoCmd.FindRecord Me.Puzzel_ID, , True, , True
    If Not Me.FotoNaam & "" = "" Or Me.FotoNaam = "No-Image.jpg" Then
        DoCmd.OpenForm "Popup_Puzzels", acNormal, , , acFormReadOnly, acDialog, _
          CurrentProject.Path & "\Afbeeldingen\" & Me.FotoNaam
    End If
End Sub

En dit is die code. Het gaat dan om de eerste regel; de andere regels openen de popup. En ik snap niet hoe die code bij jou omzeild wordt :).

Wat je eens kunt doen: zet in het VBA venster de cursor in de procedure van Knop47 op de regel "If Not Me.Fotonaam" en druk op <F9>. Er staat nu een onderbrekingspunt in de macro.
Als je het formulier vervolgens in de normale weergave opent, kun je de knop gewoon starten door 'op de foto te klikken'(wat je dus feitelijk niet meer doet). De macro start dan, en stopt op de tweede regel. Nu kun je met <F8> de regels verder uitvoeren. Als je de code náást het formulier zet (bij makkelijk, ik heb twee schermen dus de code staat op het ene scherm en het formulier op de ander. Heb jij dat niet: verklein dan de vensters zodat je beide schermen kan zien) dan zie je dat na de eerste regel het PuzzelID van het geselecteerde record geselecteerd is (zwart-wit bij mij). Dan weet je dus dat de code werkt, en dat je het juiste record en foto te pakken hebt. De rest van de code moet dan de juiste foto openen.

Gebeurt dat allemaal niet bij jou, dan is er wat aan de hand! Dan weet ik zo gauw niet wat, maar daar komen we dan wel achter (hooop ik).
 
Ha, ik ben er achter hoe dit zit doordat ik de uitvoer wat te groot vond op het beeldscherm van mij had ik de uitvoer wat aangepast zodat alles netjes zichtbaar was en toen ontdekte ik dat frame wel en vond dat al vreemd had het niet verwijderd maar het stond niet meer over het andere frame, dit nu terug aangepast en het werkt perfect dit soort truckjes had ik nooit kunnen bedenken...................
 
jan62 zei:
en het werkt perfect dit soort truckjes had ik nooit kunnen bedenken...................
Klik om te vergroten...
Daarom doe ik het al zo'n 40 jaar :). En nu niet meer omdat het moet, maar omdat het nog steeds leuk is :D.
 
De uitvoering zoals jij hebt gemaakt werkt prima, ik ben nog wat aan het uitproberen en heb daar nog een vraag over in het subformulier staat 1 record en soms 2 als er twee gelijke doosnummers zijn. de twee vensters voor de foto die over elkaar heen staan (dat truckje) daar is het ene venster en knop en het andere venster een frame met als bijschrift afbeeldingen? is dat laatste en frame?
 
Ik snap je vraag niet helemaal. Wat ik gedaan heb: op het hoofdformulier én op het subformulier staat één Image object. Op het (enkelvoudige) hoofdformulier zie je altijd maar één record, dus daar hoef je verder geen truc op los te laten als je de afbeelding wilt vergroten.

Op het subformulier werkt die techniek dus niet, omdat je altijd eerst het juiste record moet selecteren. Daarom de truc met de 'onzichtbare' knop, die eerst het record selecteert en vervolgens de juiste afbeelding opent.
Dat is dus het verschil tussen het hoofdformulier en het subformulier. Ik had overigens de techniek die onder de knop zit eerst geprobeerd op het image frame op het subformulier, maar de (exact dezelfde) code werkt dus niet als je die aan een imageframe koppelt. Wat na sich dan wel weer vreemd is :).
 
Ik ben er nog mee bezig, ik kom er wel uit nu het is nu meer het wat verfraaien, ik laat de vraag nog even open voor als ik nog vragen heb deze week erg druk met andere bezigheden tot aan nu bedankt voor de hulp en leuke oplossingen
 
Ik heb nog een vraag over het opstarten van een enkelvoudig formulier puzzels waar ik bij het "laden" in het eigenschappenvenster een macro start die direct naar een nieuw record gaat. Dat werkt goed de tekstvakken foto1 en foto2 zijn leeg en ook de 2 fotoframes zijn leeg. Als ik nu dubbelklik op de tekst vakken voor het plaatsen van een nieuw record opent het frame met de locatie van de foto en de foto die ik nodig heb vult het frame, zo vul ik twee frames 1 foto van de puzzel en 1 foto van de doos, ook in de tekstvakken staan de namen die bij de foto's horen. Dit werkt goed. Nu doet zich het probleem voor als ik 2 records wil toevoegen en klik op het knopje naar een nieuwe record dat hij de tekstvakken van foto1 en foto2 wel leegmaakt maar de 2 fotoframes gevuld houd. als ik op de lege tekstvakken klik en ga naar de map afbeeldingen dan zet hij de nieuwe foto over de foto van de vorige record en laat deze ook gewoon netje staan. ik snap niet waarom hij die frames niet leegmaakt en misschien werkt dat ook wel niet zo als ik het doe.
 
jan62 zei:
Ik snap niet waarom hij die frames niet leegmaakt en misschien werkt dat ook wel niet zo als ik het doe.
Klik om te vergroten...
Ik wel :). Formulieren hebben eigen eigenschappen, en die worden doorgaans ingesteld op het moment dat je het formulier opent. Een van die eigenschappen is bijvoorbeeld de onderliggende recordset. Als daar iets aan verandert, (record toevoegen, record verwijderen) wijkt de recordset af van de eerder ingelezen bron. Gooi maar eens een record weg; dan krijg je allemaal foutmeldingen te zien omdat het formulier dan een record wil laten zien dat er niet meer is.

Dat probleem kun je (als je dat storend vindt) ondervangen door even door de records te bladeren, of extra code toe te voegen aan de knop waarmee je bijvoorbeeld Me.ReQuery uitvoert, of Me.Repaint.
Zelf zou ik me er niet aan storen, want uiteindelijk gaat het om de gegevens die je invoert, en die zie je dus correct als je even heen en weer bladert. Of de code toepast.
 
Code: 
Private Sub Knop72_Click()
Me.AllowAdditions = True
        DoCmd.GoToRecord , , acNewRec
        Me.Repaint
   End Sub

ik had onder de knop nieuwe record toevoegen deze code bij gebeurtenis maar dat gaat werkt niet. ik denk dat ik het maar accepteer.
 
Zoals je het nu doet gaat het inderdaad niet werken, want de code doet niets anders dan het formulier in de Add modus zetten, maar er ís nog geen nieuw record. Dus er is niets veranderd in de recordset :). Dat komt pas als je iets invoert in een veld. Je moet dus kijken naar de status Dirty van het formulier.
Op het formulier is dat deze event:
Code: 
Private Sub Form_Dirty(Cancel As Integer)
    Me.Repaint
End Sub
Maar dit zou ik dus van zijn levensdagen niet gebruiken, want elke wijziging op het formulier (oftewel: elke letter die je typt) verandert de status van het formulier. Big NoNo!
Dan zou ik eerder hier iets proberen:
Code: 
Private Sub Form_AfterUpdate()
    If Me.Dirty Then Me.Dirty = False
    Me.Repaint
End Sub
En
Code: 
Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me.Dirty Then Me.Dirty = False
    Me.Repaint
End Sub

Maar dit geeft vermoedelijk vergelijkbare problemen. De regel If Me.Dirty Then Me.Dirty = False gebruik ik overigens om de status van het formulier te veranderen van <Bewerken> naar <Opgeslagen>. Als een formulier is opgeslagen, kun je met Repaint het formulier verversen.

Kijk maar eens of je met dit trucje ergens op een formulier event iets kunt bereiken.
 
Je moet ingelogd zijn om te kunnen reageren. Log in | Registreer
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan