Hallo,
Ik heb een formulier waar je via een keuzelijst een afbeelding moet kiezen (je kiest de naam van de afbeelding). Deze lijst haal ik uit een tabel (tbl_logo) die 2 velden bevat, nl, 'naam' en 'logoafbeelding'.
dan druk je op print en ga je naar het rapport. Ik wil nu dat op dat rapoprt de gekozen afbeelding wordt geprint. Op het rapport heb ik een afbeelding geplaats. Ik zou nu de direcory+filenaam van de afbeelding hierin kunnen plakken. Ik weet alleen niet hoe ik aan die gegevens kom.
In het voorgaande formulier kan ik niet bij de directorynaam komen van de afbeelding via die keuzelijst. Ik heb toen een extra veld toegevoegd aan mijn tabel tbl_logo, en die noem ik 'logoplaats', waar ik dan de directory van de gekozen afbeelding in zou kunnen zetten. Als die dan gevuld is, dan gebruik ik gewoon die string in mijn rapport.
Alleen ik als ik dan de tabel tbl_logo mijn logo invoer, dan kan ik niet aan de directorynaam komen.... ik gberuik dit:
Private Sub logoafbeelding_AfterUpdate()
Dim a As String
a = Me.logoafbeelding.SourceDoc
End Sub
sourcedoc is leeg! waarom?
Ik heb een formulier waar je via een keuzelijst een afbeelding moet kiezen (je kiest de naam van de afbeelding). Deze lijst haal ik uit een tabel (tbl_logo) die 2 velden bevat, nl, 'naam' en 'logoafbeelding'.
dan druk je op print en ga je naar het rapport. Ik wil nu dat op dat rapoprt de gekozen afbeelding wordt geprint. Op het rapport heb ik een afbeelding geplaats. Ik zou nu de direcory+filenaam van de afbeelding hierin kunnen plakken. Ik weet alleen niet hoe ik aan die gegevens kom.
In het voorgaande formulier kan ik niet bij de directorynaam komen van de afbeelding via die keuzelijst. Ik heb toen een extra veld toegevoegd aan mijn tabel tbl_logo, en die noem ik 'logoplaats', waar ik dan de directory van de gekozen afbeelding in zou kunnen zetten. Als die dan gevuld is, dan gebruik ik gewoon die string in mijn rapport.
Alleen ik als ik dan de tabel tbl_logo mijn logo invoer, dan kan ik niet aan de directorynaam komen.... ik gberuik dit:
Private Sub logoafbeelding_AfterUpdate()
Dim a As String
a = Me.logoafbeelding.SourceDoc
End Sub
sourcedoc is leeg! waarom?