foto invoegen/ veranderen in formulier

[djutoch]

Nu snap ik er helemaal niets meer van, nu is het een functie, vorige code was een sub.
functie doe helemaal niets. Het zal op zijn minst 42 worden.

 

[edmoor]

In #1 is het een button klik.
Welk event (gebeurtenis) ben je dan naar op zoek?

Heb je #39 gelezen?

 

[OctaFish]

Ik gebruik altijd functies, omdat die veel functioneler zijn en overal gebruikt kunnen worden. Zoals ik al schreef: je moet de functiemaanroepen vanuit de knop.

 

[djutoch]

Iets in die richting ben ik op zoek in de button klik, zodanig dat de textbox wordt gevuld met de currentProject.Path link en niet met
fotoPath = CurrentProject.Path & "\Foto\" en het resultaat niet meer afhankelijk is van een hard geprogrammeerd pad.

 

[edmoor]

Haal die amp; eruit, dat hoort er niet in.
Dat is een onhebbelijke gewoonte van de forum software.

 

[djutoch]

je moet de functiemaanroepen vanuit de knop.

Hoe doe je dat, ik heb

Function PickJpgFromFotoFolder() As String

onder een knop gezet, er gebeurde niets.

 

[djutoch]

Haal die amp; eruit, dat hoort er niet in.
Dat is een onhebbelijke gewoonte van de forum software.

Staat niet in de code.

 

[OctaFish]

Al die mensen die geen verstand van Access hebben, maar wél blijven reageren... maar goed, we komen er wel;

Private Sub Cmb_00_Click()
    If PickJpgFromFotoFolder = "User cancelled" Then
        Foto.Picture = ""
    Else
        Foto.Picture = PickJpgFromFotoFolder
    End If
End Sub

Er zit een kleine foutafhandeling in om te voorkomen dat je een niet-bestaande foto inleest.

 

[edmoor]

Wel ik #44, vandaar de opmerking.
Doe wat er in #39 staat.

 

[djutoch]

Een bijlage posten heeft geen zin want dan staat het bestand op een andere machine en zijn de foto's weer niet te speuren.

 

[edmoor]

Dubbeklik dus op de knop en voeg deze regel toe:

Environ("Userprofile") & "\Downloads\Mijn 2€ verzameling\foto's\"

Dan is het onafhankelijk van de gebruiker die is ingelogd.
Als dat is wat je zoekt.

Of:

CurrentProject.Path  & "\Downloads\Mijn 2€ verzameling\foto's\"

 

[djutoch]

Dubbeklik dus op de knop en voeg deze regel toe:

Euh, krijg net hetzelfde als ik enkel klik.

 

[edmoor]

Die dubbelklik uiteraard in development mode.

 

[djutoch]

Dan gebeurd er niets.

 

[edmoor]

Vandaar dus nog steeds #39.

 

[djutoch]

Och als het moet., het is een hobby, geen bedrijfsgeheim.

 

[OctaFish]

Niet zo moeilijk doen, het pad gewoon hard programmeren.

    fotoPath = "C:\Users\phili\Downloads\Mijn 2€ verzameling\foto's\"

Dus in de functie één regel vervangen.
En leg eens uit wat je precies aan het doen bent om de foto in te lezen, want ik weet 100% zeker dat mijn functie goed werkt.

 

[OctaFish]

Ik zal zo eens kijken of ik naar je db kan kijken.

 

[djutoch]

Het komt er op neer zoals in het mapje helpmij als ik dit mapje meeneem naar een andere machine (vb mijn laptop) ik niet iedere foto weer moet opzoeken, herinzetten.
Kleine opmerking, de textbox waar de link staat is normaal verborgen.

 

[edmoor]

Hoe dat moet is al een paar keer genoemd maar ik zie in je database dat je niets van die voorstellen hebt overgenomen.
Sorry, maar ik stop er mee.